packages feed

gi-soup 0.2.52.10 → 0.2.52.12

raw patch · 107 files changed

+25998/−19969 lines, 107 filesdep ~gi-giodep ~gi-glibdep ~gi-gobject

Dependency ranges changed: gi-gio, gi-glib, gi-gobject, haskell-gi-base

Files

GI/Soup.hs view
@@ -1,17332 +1,40 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.Soup where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.GLib as GLib-import qualified GI.GLibAttributes as GLibA-import qualified GI.GObject as GObject-import qualified GI.GObjectAttributes as GObjectA-import qualified GI.Gio as Gio-import qualified GI.GioAttributes as GioA---- object Address -newtype Address = Address (ForeignPtr Address)-noAddress :: Maybe Address-noAddress = Nothing--foreign import ccall "soup_address_get_type"-    c_soup_address_get_type :: IO GType--type instance ParentTypes Address = '[GObject.Object, Gio.SocketConnectable]--instance GObject Address where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_address_get_type-    --class GObject o => AddressK o-instance (GObject o, IsDescendantOf Address o) => AddressK o--toAddress :: AddressK o => o -> IO Address-toAddress = unsafeCastTo Address---- method Address::new--- method type : Constructor--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_address_new" soup_address_new :: -    CString ->                              -- name : TBasicType TUTF8-    Word32 ->                               -- port : TBasicType TUInt32-    IO (Ptr Address)---addressNew ::-    (MonadIO m) =>-    T.Text ->                               -- name-    Word32 ->                               -- port-    m Address-addressNew name port = liftIO $ do-    name' <- textToCString name-    result <- soup_address_new name' port-    checkUnexpectedReturnNULL "soup_address_new" result-    result' <- (wrapObject Address) result-    freeMem name'-    return result'---- method Address::new_any--- method type : Constructor--- Args : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_address_new_any" soup_address_new_any :: -    CUInt ->                                -- family : TInterface "Soup" "AddressFamily"-    Word32 ->                               -- port : TBasicType TUInt32-    IO (Ptr Address)---addressNewAny ::-    (MonadIO m) =>-    AddressFamily ->                        -- family-    Word32 ->                               -- port-    m Address-addressNewAny family port = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- soup_address_new_any family' port-    checkUnexpectedReturnNULL "soup_address_new_any" result-    result' <- (wrapObject Address) result-    return result'---- method Address::new_from_sockaddr--- method type : Constructor--- Args : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: -    Ptr () ->                               -- sa : TBasicType TVoid-    Int32 ->                                -- len : TBasicType TInt32-    IO (Ptr Address)---addressNewFromSockaddr ::-    (MonadIO m) =>-    Ptr () ->                               -- sa-    Int32 ->                                -- len-    m Address-addressNewFromSockaddr sa len = liftIO $ do-    result <- soup_address_new_from_sockaddr sa len-    checkUnexpectedReturnNULL "soup_address_new_from_sockaddr" result-    result' <- (wrapObject Address) result-    return result'---- method Address::equal_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_address_equal_by_ip" soup_address_equal_by_ip :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"-    IO CInt---addressEqualByIp ::-    (MonadIO m, AddressK a, AddressK b) =>-    a ->                                    -- _obj-    b ->                                    -- addr2-    m Bool-addressEqualByIp _obj addr2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let addr2' = unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_ip _obj' addr2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr addr2-    return result'---- method Address::equal_by_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_address_equal_by_name" soup_address_equal_by_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"-    IO CInt---addressEqualByName ::-    (MonadIO m, AddressK a, AddressK b) =>-    a ->                                    -- _obj-    b ->                                    -- addr2-    m Bool-addressEqualByName _obj addr2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let addr2' = unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_name _obj' addr2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr addr2-    return result'---- method Address::get_gsockaddr--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "SocketAddress"--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO (Ptr Gio.SocketAddress)---addressGetGsockaddr ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m Gio.SocketAddress-addressGetGsockaddr _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_gsockaddr _obj'-    checkUnexpectedReturnNULL "soup_address_get_gsockaddr" result-    result' <- (wrapObject Gio.SocketAddress) result-    touchManagedPtr _obj-    return result'---- method Address::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_name" soup_address_get_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CString---addressGetName ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m T.Text-addressGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_name _obj'-    checkUnexpectedReturnNULL "soup_address_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Address::get_physical--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_physical" soup_address_get_physical :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CString---addressGetPhysical ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m T.Text-addressGetPhysical _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_physical _obj'-    checkUnexpectedReturnNULL "soup_address_get_physical" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Address::get_port--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_port" soup_address_get_port :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressGetPort ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m Word32-addressGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_port _obj'-    touchManagedPtr _obj-    return result---- method Address::hash_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_address_hash_by_ip" soup_address_hash_by_ip :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressHashByIp ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m Word32-addressHashByIp _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_hash_by_ip _obj'-    touchManagedPtr _obj-    return result---- method Address::hash_by_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_address_hash_by_name" soup_address_hash_by_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressHashByName ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m Word32-addressHashByName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_hash_by_name _obj'-    touchManagedPtr _obj-    return result---- method Address::is_resolved--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_address_is_resolved" soup_address_is_resolved :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CInt---addressIsResolved ::-    (MonadIO m, AddressK a) =>-    a ->                                    -- _obj-    m Bool-addressIsResolved _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_is_resolved _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Address::resolve_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_address_resolve_async" soup_address_resolve_async :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---addressResolveAsync ::-    (MonadIO m, AddressK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (GLib.MainContext) ->             -- async_context-    Maybe (b) ->                            -- cancellable-    AddressCallback ->                      -- callback-    m ()-addressResolveAsync _obj async_context cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAsync_context <- case async_context of-        Nothing -> return nullPtr-        Just jAsync_context -> do-            let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context-            return jAsync_context'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))-    callback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let user_data = nullPtr-    soup_address_resolve_async _obj' maybeAsync_context maybeCancellable callback' user_data-    touchManagedPtr _obj-    whenJust async_context touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()---- method Address::resolve_sync--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_address_resolve_sync" soup_address_resolve_sync :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO Word32---addressResolveSync ::-    (MonadIO m, AddressK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    m Word32-addressResolveSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_address_resolve_sync _obj' maybeCancellable-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result---- callback AddressCallback-addressCallbackClosure :: AddressCallback -> IO Closure-addressCallbackClosure cb = newCClosure =<< mkAddressCallback wrapped-    where wrapped = addressCallbackWrapper Nothing cb--type AddressCallbackC =-    Ptr Address ->-    Word32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkAddressCallback :: AddressCallbackC -> IO (FunPtr AddressCallbackC)--type AddressCallback =-    Address ->-    Word32 ->-    IO ()--noAddressCallback :: Maybe AddressCallback-noAddressCallback = Nothing--addressCallbackWrapper ::-    Maybe (Ptr (FunPtr (AddressCallbackC))) ->-    AddressCallback ->-    Ptr Address ->-    Word32 ->-    Ptr () ->-    IO ()-addressCallbackWrapper funptrptr _cb addr status _ = do-    addr' <- (newObject Address) addr-    _cb  addr' status-    maybeReleaseFunPtr funptrptr---- Enum AddressFamily--data AddressFamily = -      AddressFamilyInvalid-    | AddressFamilyIpv4-    | AddressFamilyIpv6-    | AnotherAddressFamily Int-    deriving (Show, Eq)--instance Enum AddressFamily where-    fromEnum AddressFamilyInvalid = -1-    fromEnum AddressFamilyIpv4 = 2-    fromEnum AddressFamilyIpv6 = 10-    fromEnum (AnotherAddressFamily k) = k--    toEnum -1 = AddressFamilyInvalid-    toEnum 2 = AddressFamilyIpv4-    toEnum 10 = AddressFamilyIpv6-    toEnum k = AnotherAddressFamily k--foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type :: -    IO GType--instance BoxedEnum AddressFamily where-    boxedEnumType _ = c_soup_address_family_get_type---- object Auth -newtype Auth = Auth (ForeignPtr Auth)-noAuth :: Maybe Auth-noAuth = Nothing--foreign import ccall "soup_auth_get_type"-    c_soup_auth_get_type :: IO GType--type instance ParentTypes Auth = '[GObject.Object]--instance GObject Auth where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_get_type-    --class GObject o => AuthK o-instance (GObject o, IsDescendantOf Auth o) => AuthK o--toAuth :: AuthK o => o -> IO Auth-toAuth = unsafeCastTo Auth---- method Auth::new--- method type : Constructor--- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Auth"--- throws : False--- Skip return : False--foreign import ccall "soup_auth_new" soup_auth_new :: -    CGType ->                               -- type : TBasicType TGType-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- auth_header : TBasicType TUTF8-    IO (Ptr Auth)---authNew ::-    (MonadIO m, MessageK a) =>-    GType ->                                -- type-    a ->                                    -- msg-    T.Text ->                               -- auth_header-    m Auth-authNew type_ msg auth_header = liftIO $ do-    let type_' = gtypeToCGType type_-    let msg' = unsafeManagedPtrCastPtr msg-    auth_header' <- textToCString auth_header-    result <- soup_auth_new type_' msg' auth_header'-    checkUnexpectedReturnNULL "soup_auth_new" result-    result' <- (wrapObject Auth) result-    touchManagedPtr msg-    freeMem auth_header'-    return result'---- method Auth::authenticate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_authenticate" soup_auth_authenticate :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authAuthenticate ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- username-    T.Text ->                               -- password-    m ()-authAuthenticate _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_authenticate _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()---- method Auth::get_authorization--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_authorization" soup_auth_get_authorization :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CString---authGetAuthorization ::-    (MonadIO m, AuthK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m T.Text-authGetAuthorization _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_get_authorization _obj' msg'-    checkUnexpectedReturnNULL "soup_auth_get_authorization" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method Auth::get_host--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_host" soup_auth_get_host :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetHost ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m T.Text-authGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_host _obj'-    checkUnexpectedReturnNULL "soup_auth_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Auth::get_info--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_info" soup_auth_get_info :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetInfo ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m T.Text-authGetInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_info _obj'-    checkUnexpectedReturnNULL "soup_auth_get_info" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Auth::get_protection_space--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_protection_space" soup_auth_get_protection_space :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr URI ->                              -- source_uri : TInterface "Soup" "URI"-    IO (Ptr (GSList CString))---authGetProtectionSpace ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    URI ->                                  -- source_uri-    m [T.Text]-authGetProtectionSpace _obj source_uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source_uri' = unsafeManagedPtrGetPtr source_uri-    result <- soup_auth_get_protection_space _obj' source_uri'-    checkUnexpectedReturnNULL "soup_auth_get_protection_space" result-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr _obj-    touchManagedPtr source_uri-    return result''---- method Auth::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_realm" soup_auth_get_realm :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetRealm ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m T.Text-authGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_realm _obj'-    checkUnexpectedReturnNULL "soup_auth_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Auth::get_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_saved_password" soup_auth_get_saved_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- user : TBasicType TUTF8-    IO CString---authGetSavedPassword ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- user-    m T.Text-authGetSavedPassword _obj user = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    user' <- textToCString user-    result <- soup_auth_get_saved_password _obj' user'-    checkUnexpectedReturnNULL "soup_auth_get_saved_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem user'-    return result'---- method Auth::get_saved_users--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_saved_users" soup_auth_get_saved_users :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO (Ptr (GSList CString))---authGetSavedUsers ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m [T.Text]-authGetSavedUsers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_saved_users _obj'-    checkUnexpectedReturnNULL "soup_auth_get_saved_users" result-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method Auth::get_scheme_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_scheme_name" soup_auth_get_scheme_name :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetSchemeName ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m T.Text-authGetSchemeName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_scheme_name _obj'-    checkUnexpectedReturnNULL "soup_auth_get_scheme_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Auth::has_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_has_saved_password" soup_auth_has_saved_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authHasSavedPassword ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- username-    T.Text ->                               -- password-    m ()-authHasSavedPassword _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_has_saved_password _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()---- method Auth::is_authenticated--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_authenticated" soup_auth_is_authenticated :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CInt---authIsAuthenticated ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m Bool-authIsAuthenticated _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_is_authenticated _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Auth::is_for_proxy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_for_proxy" soup_auth_is_for_proxy :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CInt---authIsForProxy ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    m Bool-authIsForProxy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_is_for_proxy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Auth::is_ready--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_ready" soup_auth_is_ready :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---authIsReady ::-    (MonadIO m, AuthK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Bool-authIsReady _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_is_ready _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method Auth::save_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_save_password" soup_auth_save_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authSavePassword ::-    (MonadIO m, AuthK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- username-    T.Text ->                               -- password-    m ()-authSavePassword _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_save_password _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()---- method Auth::update--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_update" soup_auth_update :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- auth_header : TBasicType TUTF8-    IO CInt---authUpdate ::-    (MonadIO m, AuthK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    T.Text ->                               -- auth_header-    m Bool-authUpdate _obj msg auth_header = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    auth_header' <- textToCString auth_header-    result <- soup_auth_update _obj' msg' auth_header'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem auth_header'-    return result'---- object AuthBasic -newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic)-noAuthBasic :: Maybe AuthBasic-noAuthBasic = Nothing--foreign import ccall "soup_auth_basic_get_type"-    c_soup_auth_basic_get_type :: IO GType--type instance ParentTypes AuthBasic = '[Auth, GObject.Object]--instance GObject AuthBasic where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_basic_get_type-    --class GObject o => AuthBasicK o-instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o--toAuthBasic :: AuthBasicK o => o -> IO AuthBasic-toAuthBasic = unsafeCastTo AuthBasic---- object AuthDigest -newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest)-noAuthDigest :: Maybe AuthDigest-noAuthDigest = Nothing--foreign import ccall "soup_auth_digest_get_type"-    c_soup_auth_digest_get_type :: IO GType--type instance ParentTypes AuthDigest = '[Auth, GObject.Object]--instance GObject AuthDigest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_digest_get_type-    --class GObject o => AuthDigestK o-instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o--toAuthDigest :: AuthDigestK o => o -> IO AuthDigest-toAuthDigest = unsafeCastTo AuthDigest---- object AuthDomain -newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain)-noAuthDomain :: Maybe AuthDomain-noAuthDomain = Nothing--foreign import ccall "soup_auth_domain_get_type"-    c_soup_auth_domain_get_type :: IO GType--type instance ParentTypes AuthDomain = '[GObject.Object]--instance GObject AuthDomain where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_get_type-    --class GObject o => AuthDomainK o-instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o--toAuthDomain :: AuthDomainK o => o -> IO AuthDomain-toAuthDomain = unsafeCastTo AuthDomain---- method AuthDomain::accepts--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CString---authDomainAccepts ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m T.Text-authDomainAccepts _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_accepts _obj' msg'-    checkUnexpectedReturnNULL "soup_auth_domain_accepts" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method AuthDomain::add_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_add_path" soup_auth_domain_add_path :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---authDomainAddPath ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- path-    m ()-authDomainAddPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_auth_domain_add_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()---- method AuthDomain::basic_set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainBasicAuthCallbackC ->  -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainBasicSetAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    AuthDomainBasicAuthCallback ->          -- callback-    m ()-authDomainBasicSetAuthCallback _obj callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback)-    let user_data = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_basic_set_auth_callback _obj' callback' user_data dnotify-    touchManagedPtr _obj-    return ()---- method AuthDomain::challenge--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---authDomainChallenge ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-authDomainChallenge _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_auth_domain_challenge _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method AuthDomain::check_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_check_password" soup_auth_domain_check_password :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO CInt---authDomainCheckPassword ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    T.Text ->                               -- username-    T.Text ->                               -- password-    m Bool-authDomainCheckPassword _obj msg username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    password' <- textToCString password-    result <- soup_auth_domain_check_password _obj' msg' username' password'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem username'-    freeMem password'-    return result'---- method AuthDomain::covers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---authDomainCovers ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Bool-authDomainCovers _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_covers _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method AuthDomain::digest_set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainDigestSetAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    AuthDomainDigestAuthCallback ->         -- callback-    m ()-authDomainDigestSetAuthCallback _obj callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback)-    let user_data = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_digest_set_auth_callback _obj' callback' user_data dnotify-    touchManagedPtr _obj-    return ()---- method AuthDomain::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    IO CString---authDomainGetRealm ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    m T.Text-authDomainGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_domain_get_realm _obj'-    checkUnexpectedReturnNULL "soup_auth_domain_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method AuthDomain::remove_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_remove_path" soup_auth_domain_remove_path :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---authDomainRemovePath ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- path-    m ()-authDomainRemovePath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_auth_domain_remove_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()---- method AuthDomain::set_filter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainFilterC ->             -- filter : TInterface "Soup" "AuthDomainFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainSetFilter ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    AuthDomainFilter ->                     -- filter-    m ()-authDomainSetFilter _obj filter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter)-    let filter_data = castFunPtrToPtr filter'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_filter _obj' filter' filter_data dnotify-    touchManagedPtr _obj-    return ()---- method AuthDomain::set_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "auth_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback"-    Ptr () ->                               -- auth_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainSetGenericAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a ->                                    -- _obj-    AuthDomainGenericAuthCallback ->        -- auth_callback-    m ()-authDomainSetGenericAuthCallback _obj auth_callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    auth_callback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing auth_callback)-    let auth_data = castFunPtrToPtr auth_callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_generic_auth_callback _obj' auth_callback' auth_data dnotify-    touchManagedPtr _obj-    return ()---- method AuthDomain::try_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- username : TBasicType TUTF8-    IO CInt---authDomainTryGenericAuthCallback ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    T.Text ->                               -- username-    m Bool-authDomainTryGenericAuthCallback _obj msg username = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    result <- soup_auth_domain_try_generic_auth_callback _obj' msg' username'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem username'-    return result'---- object AuthDomainBasic -newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic)-noAuthDomainBasic :: Maybe AuthDomainBasic-noAuthDomainBasic = Nothing--foreign import ccall "soup_auth_domain_basic_get_type"-    c_soup_auth_domain_basic_get_type :: IO GType--type instance ParentTypes AuthDomainBasic = '[AuthDomain, GObject.Object]--instance GObject AuthDomainBasic where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_basic_get_type-    --class GObject o => AuthDomainBasicK o-instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o--toAuthDomainBasic :: AuthDomainBasicK o => o -> IO AuthDomainBasic-toAuthDomainBasic = unsafeCastTo AuthDomainBasic---- callback AuthDomainBasicAuthCallback-authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure-authDomainBasicAuthCallbackClosure cb = newCClosure =<< mkAuthDomainBasicAuthCallback wrapped-    where wrapped = authDomainBasicAuthCallbackWrapper Nothing cb--type AuthDomainBasicAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallbackC -> IO (FunPtr AuthDomainBasicAuthCallbackC)--type AuthDomainBasicAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    T.Text ->-    IO Bool--noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback-noAuthDomainBasicAuthCallback = Nothing--authDomainBasicAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainBasicAuthCallbackC))) ->-    AuthDomainBasicAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt-authDomainBasicAuthCallbackWrapper funptrptr _cb domain msg username password _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    password' <- cstringToText password-    result <- _cb  domain' msg' username' password'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- object AuthDomainDigest -newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest)-noAuthDomainDigest :: Maybe AuthDomainDigest-noAuthDomainDigest = Nothing--foreign import ccall "soup_auth_domain_digest_get_type"-    c_soup_auth_domain_digest_get_type :: IO GType--type instance ParentTypes AuthDomainDigest = '[AuthDomain, GObject.Object]--instance GObject AuthDomainDigest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_digest_get_type-    --class GObject o => AuthDomainDigestK o-instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o--toAuthDomainDigest :: AuthDomainDigestK o => o -> IO AuthDomainDigest-toAuthDomainDigest = unsafeCastTo AuthDomainDigest---- method AuthDomainDigest::encode_password--- method type : MemberFunction--- Args : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password :: -    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- realm : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO CString---authDomainDigestEncodePassword ::-    (MonadIO m) =>-    T.Text ->                               -- username-    T.Text ->                               -- realm-    T.Text ->                               -- password-    m T.Text-authDomainDigestEncodePassword username realm password = liftIO $ do-    username' <- textToCString username-    realm' <- textToCString realm-    password' <- textToCString password-    result <- soup_auth_domain_digest_encode_password username' realm' password'-    checkUnexpectedReturnNULL "soup_auth_domain_digest_encode_password" result-    result' <- cstringToText result-    freeMem result-    freeMem username'-    freeMem realm'-    freeMem password'-    return result'---- callback AuthDomainDigestAuthCallback-authDomainDigestAuthCallbackClosure :: AuthDomainDigestAuthCallback -> IO Closure-authDomainDigestAuthCallbackClosure cb = newCClosure =<< mkAuthDomainDigestAuthCallback wrapped-    where wrapped = authDomainDigestAuthCallbackWrapper Nothing cb--type AuthDomainDigestAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CString--foreign import ccall "wrapper"-    mkAuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallbackC -> IO (FunPtr AuthDomainDigestAuthCallbackC)--type AuthDomainDigestAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    IO T.Text--noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback-noAuthDomainDigestAuthCallback = Nothing--authDomainDigestAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainDigestAuthCallbackC))) ->-    AuthDomainDigestAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CString-authDomainDigestAuthCallbackWrapper funptrptr _cb domain msg username _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username'-    maybeReleaseFunPtr funptrptr-    result' <- textToCString result-    return result'---- callback AuthDomainFilter-authDomainFilterClosure :: AuthDomainFilter -> IO Closure-authDomainFilterClosure cb = newCClosure =<< mkAuthDomainFilter wrapped-    where wrapped = authDomainFilterWrapper Nothing cb--type AuthDomainFilterC =-    Ptr AuthDomain ->-    Ptr Message ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainFilter :: AuthDomainFilterC -> IO (FunPtr AuthDomainFilterC)--type AuthDomainFilter =-    AuthDomain ->-    Message ->-    IO Bool--noAuthDomainFilter :: Maybe AuthDomainFilter-noAuthDomainFilter = Nothing--authDomainFilterWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainFilterC))) ->-    AuthDomainFilter ->-    Ptr AuthDomain ->-    Ptr Message ->-    Ptr () ->-    IO CInt-authDomainFilterWrapper funptrptr _cb domain msg _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    result <- _cb  domain' msg'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AuthDomainGenericAuthCallback-authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure-authDomainGenericAuthCallbackClosure cb = newCClosure =<< mkAuthDomainGenericAuthCallback wrapped-    where wrapped = authDomainGenericAuthCallbackWrapper Nothing cb--type AuthDomainGenericAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallbackC -> IO (FunPtr AuthDomainGenericAuthCallbackC)--type AuthDomainGenericAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    IO Bool--noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback-noAuthDomainGenericAuthCallback = Nothing--authDomainGenericAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainGenericAuthCallbackC))) ->-    AuthDomainGenericAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CInt-authDomainGenericAuthCallbackWrapper funptrptr _cb domain msg username _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- object AuthManager -newtype AuthManager = AuthManager (ForeignPtr AuthManager)-noAuthManager :: Maybe AuthManager-noAuthManager = Nothing--foreign import ccall "soup_auth_manager_get_type"-    c_soup_auth_manager_get_type :: IO GType--type instance ParentTypes AuthManager = '[GObject.Object, SessionFeature]--instance GObject AuthManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_manager_get_type-    --class GObject o => AuthManagerK o-instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o--toAuthManager :: AuthManagerK o => o -> IO AuthManager-toAuthManager = unsafeCastTo AuthManager---- method AuthManager::use_auth--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_auth_manager_use_auth" soup_auth_manager_use_auth :: -    Ptr AuthManager ->                      -- _obj : TInterface "Soup" "AuthManager"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    IO ()---authManagerUseAuth ::-    (MonadIO m, AuthManagerK a, AuthK b) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    b ->                                    -- auth-    m ()-authManagerUseAuth _obj uri auth = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let auth' = unsafeManagedPtrCastPtr auth-    soup_auth_manager_use_auth _obj' uri' auth'-    touchManagedPtr _obj-    touchManagedPtr uri-    touchManagedPtr auth-    return ()---- signal AuthManager::authenticate-type AuthManagerAuthenticateCallback =-    Message ->-    Auth ->-    Bool ->-    IO ()--noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback-noAuthManagerAuthenticateCallback = Nothing--type AuthManagerAuthenticateCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAuthManagerAuthenticateCallback :: AuthManagerAuthenticateCallbackC -> IO (FunPtr AuthManagerAuthenticateCallbackC)--authManagerAuthenticateClosure :: AuthManagerAuthenticateCallback -> IO Closure-authManagerAuthenticateClosure cb = newCClosure =<< mkAuthManagerAuthenticateCallback wrapped-    where wrapped = authManagerAuthenticateCallbackWrapper cb--authManagerAuthenticateCallbackWrapper ::-    AuthManagerAuthenticateCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-authManagerAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do-    msg' <- (newObject Message) msg-    auth' <- (newObject Auth) auth-    let retrying' = (/= 0) retrying-    _cb  msg' auth' retrying'--onAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-onAuthManagerAuthenticate obj cb = liftIO $ connectAuthManagerAuthenticate obj cb SignalConnectBefore-afterAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-afterAuthManagerAuthenticate obj cb = connectAuthManagerAuthenticate obj cb SignalConnectAfter--connectAuthManagerAuthenticate :: (GObject a, MonadIO m) =>-                                  a -> AuthManagerAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId-connectAuthManagerAuthenticate obj cb after = liftIO $ do-    cb' <- mkAuthManagerAuthenticateCallback (authManagerAuthenticateCallbackWrapper cb)-    connectSignalFunPtr obj "authenticate" cb' after---- object AuthNTLM -newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM)-noAuthNTLM :: Maybe AuthNTLM-noAuthNTLM = Nothing--foreign import ccall "soup_auth_ntlm_get_type"-    c_soup_auth_ntlm_get_type :: IO GType--type instance ParentTypes AuthNTLM = '[Auth, GObject.Object]--instance GObject AuthNTLM where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_ntlm_get_type-    --class GObject o => AuthNTLMK o-instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o--toAuthNTLM :: AuthNTLMK o => o -> IO AuthNTLM-toAuthNTLM = unsafeCastTo AuthNTLM---- struct Buffer-newtype Buffer = Buffer (ForeignPtr Buffer)-noBuffer :: Maybe Buffer-noBuffer = Nothing--foreign import ccall "soup_buffer_get_type" c_soup_buffer_get_type :: -    IO GType--instance BoxedObject Buffer where-    boxedType _ = c_soup_buffer_get_type--bufferReadData :: Buffer -> IO (Ptr ())-bufferReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--bufferReadLength :: Buffer -> IO Word64-bufferReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val---- method Buffer::new--- method type : Constructor--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_take" soup_buffer_new_take :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Buffer)---bufferNew ::-    (MonadIO m) =>-    ByteString ->                           -- data-    m Buffer-bufferNew data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- soup_buffer_new_take data_' length_-    checkUnexpectedReturnNULL "soup_buffer_new_take" result-    result' <- (wrapBoxed Buffer) result-    return result'---- method Buffer::new_with_owner--- method type : Constructor--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_with_owner" soup_buffer_new_with_owner :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    Ptr () ->                               -- owner : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- owner_dnotify : TInterface "GLib" "DestroyNotify"-    IO (Ptr Buffer)---bufferNewWithOwner ::-    (MonadIO m) =>-    ByteString ->                           -- data-    Ptr () ->                               -- owner-    Maybe (GLib.DestroyNotify) ->           -- owner_dnotify-    m Buffer-bufferNewWithOwner data_ owner owner_dnotify = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    ptrowner_dnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeOwner_dnotify <- case owner_dnotify of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jOwner_dnotify -> do-            jOwner_dnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrowner_dnotify) jOwner_dnotify)-            poke ptrowner_dnotify jOwner_dnotify'-            return jOwner_dnotify'-    result <- soup_buffer_new_with_owner data_' length_ owner maybeOwner_dnotify-    checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result-    result' <- (wrapBoxed Buffer) result-    freeMem data_'-    return result'---- method Buffer::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_copy" soup_buffer_copy :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO (Ptr Buffer)---bufferCopy ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    m Buffer-bufferCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_copy _obj'-    checkUnexpectedReturnNULL "soup_buffer_copy" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'---- method Buffer::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_free" soup_buffer_free :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO ()---bufferFree ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    m ()-bufferFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_buffer_free _obj'-    touchManagedPtr _obj-    return ()---- method Buffer::get_as_bytes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO (Ptr GLib.Bytes)---bufferGetAsBytes ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    m GLib.Bytes-bufferGetAsBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_get_as_bytes _obj'-    checkUnexpectedReturnNULL "soup_buffer_get_as_bytes" result-    result' <- (wrapBoxed GLib.Bytes) result-    touchManagedPtr _obj-    return result'---- method Buffer::get_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_data" soup_buffer_get_data :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO ()---bufferGetData ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    m (ByteString)-bufferGetData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_ <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    soup_buffer_get_data _obj' data_ length_-    length_' <- peek length_-    data_' <- peek data_-    data_'' <- (unpackByteStringWithLength length_') data_'-    touchManagedPtr _obj-    freeMem data_-    freeMem length_-    return data_''---- method Buffer::get_owner--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO ()---bufferGetOwner ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    m ()-bufferGetOwner _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_buffer_get_owner _obj'-    touchManagedPtr _obj-    return ()---- method Buffer::new_subbuffer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Buffer)---bufferNewSubbuffer ::-    (MonadIO m) =>-    Buffer ->                               -- _obj-    Word64 ->                               -- offset-    Word64 ->                               -- length-    m Buffer-bufferNewSubbuffer _obj offset length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_new_subbuffer _obj' offset length_-    checkUnexpectedReturnNULL "soup_buffer_new_subbuffer" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'---- object Cache -newtype Cache = Cache (ForeignPtr Cache)-noCache :: Maybe Cache-noCache = Nothing--foreign import ccall "soup_cache_get_type"-    c_soup_cache_get_type :: IO GType--type instance ParentTypes Cache = '[GObject.Object, SessionFeature]--instance GObject Cache where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cache_get_type-    --class GObject o => CacheK o-instance (GObject o, IsDescendantOf Cache o) => CacheK o--toCache :: CacheK o => o -> IO Cache-toCache = unsafeCastTo Cache---- method Cache::new--- method type : Constructor--- Args : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Cache"--- throws : False--- Skip return : False--foreign import ccall "soup_cache_new" soup_cache_new :: -    CString ->                              -- cache_dir : TBasicType TUTF8-    CUInt ->                                -- cache_type : TInterface "Soup" "CacheType"-    IO (Ptr Cache)---cacheNew ::-    (MonadIO m) =>-    T.Text ->                               -- cache_dir-    CacheType ->                            -- cache_type-    m Cache-cacheNew cache_dir cache_type = liftIO $ do-    cache_dir' <- textToCString cache_dir-    let cache_type' = (fromIntegral . fromEnum) cache_type-    result <- soup_cache_new cache_dir' cache_type'-    checkUnexpectedReturnNULL "soup_cache_new" result-    result' <- (wrapObject Cache) result-    freeMem cache_dir'-    return result'---- method Cache::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cache_clear" soup_cache_clear :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheClear ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    m ()-cacheClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_clear _obj'-    touchManagedPtr _obj-    return ()---- method Cache::dump--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cache_dump" soup_cache_dump :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheDump ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    m ()-cacheDump _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_dump _obj'-    touchManagedPtr _obj-    return ()---- method Cache::flush--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cache_flush" soup_cache_flush :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheFlush ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    m ()-cacheFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_flush _obj'-    touchManagedPtr _obj-    return ()---- method Cache::get_max_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_cache_get_max_size" soup_cache_get_max_size :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO Word32---cacheGetMaxSize ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    m Word32-cacheGetMaxSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cache_get_max_size _obj'-    touchManagedPtr _obj-    return result---- method Cache::load--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cache_load" soup_cache_load :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheLoad ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    m ()-cacheLoad _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_load _obj'-    touchManagedPtr _obj-    return ()---- method Cache::set_max_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    Word32 ->                               -- max_size : TBasicType TUInt32-    IO ()---cacheSetMaxSize ::-    (MonadIO m, CacheK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- max_size-    m ()-cacheSetMaxSize _obj max_size = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_set_max_size _obj' max_size-    touchManagedPtr _obj-    return ()---- Enum CacheResponse--data CacheResponse = -      CacheResponseFresh-    | CacheResponseNeedsValidation-    | CacheResponseStale-    | AnotherCacheResponse Int-    deriving (Show, Eq)--instance Enum CacheResponse where-    fromEnum CacheResponseFresh = 0-    fromEnum CacheResponseNeedsValidation = 1-    fromEnum CacheResponseStale = 2-    fromEnum (AnotherCacheResponse k) = k--    toEnum 0 = CacheResponseFresh-    toEnum 1 = CacheResponseNeedsValidation-    toEnum 2 = CacheResponseStale-    toEnum k = AnotherCacheResponse k--foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type :: -    IO GType--instance BoxedEnum CacheResponse where-    boxedEnumType _ = c_soup_cache_response_get_type---- Enum CacheType--data CacheType = -      CacheTypeSingleUser-    | CacheTypeShared-    | AnotherCacheType Int-    deriving (Show, Eq)--instance Enum CacheType where-    fromEnum CacheTypeSingleUser = 0-    fromEnum CacheTypeShared = 1-    fromEnum (AnotherCacheType k) = k--    toEnum 0 = CacheTypeSingleUser-    toEnum 1 = CacheTypeShared-    toEnum k = AnotherCacheType k--foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type :: -    IO GType--instance BoxedEnum CacheType where-    boxedEnumType _ = c_soup_cache_type_get_type---- Flags Cacheability--data Cacheability = -      CacheabilityCacheable-    | CacheabilityUncacheable-    | CacheabilityInvalidates-    | CacheabilityValidates-    | AnotherCacheability Int-    deriving (Show, Eq)--instance Enum Cacheability where-    fromEnum CacheabilityCacheable = 1-    fromEnum CacheabilityUncacheable = 2-    fromEnum CacheabilityInvalidates = 4-    fromEnum CacheabilityValidates = 8-    fromEnum (AnotherCacheability k) = k--    toEnum 1 = CacheabilityCacheable-    toEnum 2 = CacheabilityUncacheable-    toEnum 4 = CacheabilityInvalidates-    toEnum 8 = CacheabilityValidates-    toEnum k = AnotherCacheability k--foreign import ccall "soup_cacheability_get_type" c_soup_cacheability_get_type :: -    IO GType--instance BoxedEnum Cacheability where-    boxedEnumType _ = c_soup_cacheability_get_type--instance IsGFlag Cacheability---- callback ChunkAllocator-chunkAllocatorClosure :: ChunkAllocator -> IO Closure-chunkAllocatorClosure cb = newCClosure =<< mkChunkAllocator wrapped-    where wrapped = chunkAllocatorWrapper Nothing cb--type ChunkAllocatorC =-    Ptr Message ->-    Word64 ->-    Ptr () ->-    IO (Ptr Buffer)--foreign import ccall "wrapper"-    mkChunkAllocator :: ChunkAllocatorC -> IO (FunPtr ChunkAllocatorC)--type ChunkAllocator =-    Message ->-    Word64 ->-    IO Buffer--noChunkAllocator :: Maybe ChunkAllocator-noChunkAllocator = Nothing--chunkAllocatorWrapper ::-    Maybe (Ptr (FunPtr (ChunkAllocatorC))) ->-    ChunkAllocator ->-    Ptr Message ->-    Word64 ->-    Ptr () ->-    IO (Ptr Buffer)-chunkAllocatorWrapper funptrptr _cb msg max_len _ = do-    msg' <- (newObject Message) msg-    result <- _cb  msg' max_len-    maybeReleaseFunPtr funptrptr-    result' <- copyBoxed result-    return result'---- struct ClientContext-newtype ClientContext = ClientContext (ForeignPtr ClientContext)-noClientContext :: Maybe ClientContext-noClientContext = Nothing--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---- method ClientContext::get_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Address)--{-# DEPRECATED clientContextGetAddress ["Use soup_client_context_get_remote_address(), which returns","a #GSocketAddress."]#-}-clientContextGetAddress ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Address-clientContextGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_address _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "AuthDomain"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr AuthDomain)---clientContextGetAuthDomain ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m AuthDomain-clientContextGetAuthDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_auth_domain _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_auth_domain" result-    result' <- (newObject AuthDomain) result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_auth_user--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_auth_user" soup_client_context_get_auth_user :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO CString---clientContextGetAuthUser ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m T.Text-clientContextGetAuthUser _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_auth_user _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_auth_user" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_gsocket--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "Socket"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.Socket)---clientContextGetGsocket ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Gio.Socket-clientContextGetGsocket _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_gsocket _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_gsocket" result-    result' <- (newObject Gio.Socket) result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_host--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_host" soup_client_context_get_host :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO CString---clientContextGetHost ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m T.Text-clientContextGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_host _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "SocketAddress"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.SocketAddress)---clientContextGetLocalAddress ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Gio.SocketAddress-clientContextGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_local_address _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_local_address" result-    result' <- (newObject Gio.SocketAddress) result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "SocketAddress"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.SocketAddress)---clientContextGetRemoteAddress ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Gio.SocketAddress-clientContextGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_remote_address _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_remote_address" result-    result' <- (newObject Gio.SocketAddress) result-    touchManagedPtr _obj-    return result'---- method ClientContext::get_socket--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Socket"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Socket)--{-# DEPRECATED clientContextGetSocket ["use soup_client_context_get_gsocket(), which returns","a #GSocket."]#-}-clientContextGetSocket ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Socket-clientContextGetSocket _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_socket _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_socket" result-    result' <- (newObject Socket) result-    touchManagedPtr _obj-    return result'---- method ClientContext::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "IOStream"--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.IOStream)---clientContextStealConnection ::-    (MonadIO m) =>-    ClientContext ->                        -- _obj-    m Gio.IOStream-clientContextStealConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_steal_connection _obj'-    checkUnexpectedReturnNULL "soup_client_context_steal_connection" result-    result' <- (wrapObject Gio.IOStream) result-    touchManagedPtr _obj-    return result'---- struct Connection-newtype Connection = Connection (ForeignPtr Connection)-noConnection :: Maybe Connection-noConnection = Nothing---- Enum ConnectionState--data ConnectionState = -      ConnectionStateNew-    | ConnectionStateConnecting-    | ConnectionStateIdle-    | ConnectionStateInUse-    | ConnectionStateRemoteDisconnected-    | ConnectionStateDisconnected-    | AnotherConnectionState Int-    deriving (Show, Eq)--instance Enum ConnectionState where-    fromEnum ConnectionStateNew = 0-    fromEnum ConnectionStateConnecting = 1-    fromEnum ConnectionStateIdle = 2-    fromEnum ConnectionStateInUse = 3-    fromEnum ConnectionStateRemoteDisconnected = 4-    fromEnum ConnectionStateDisconnected = 5-    fromEnum (AnotherConnectionState k) = k--    toEnum 0 = ConnectionStateNew-    toEnum 1 = ConnectionStateConnecting-    toEnum 2 = ConnectionStateIdle-    toEnum 3 = ConnectionStateInUse-    toEnum 4 = ConnectionStateRemoteDisconnected-    toEnum 5 = ConnectionStateDisconnected-    toEnum k = AnotherConnectionState k--foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type :: -    IO GType--instance BoxedEnum ConnectionState where-    boxedEnumType _ = c_soup_connection_state_get_type---- object ContentDecoder -newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder)-noContentDecoder :: Maybe ContentDecoder-noContentDecoder = Nothing--foreign import ccall "soup_content_decoder_get_type"-    c_soup_content_decoder_get_type :: IO GType--type instance ParentTypes ContentDecoder = '[GObject.Object, SessionFeature]--instance GObject ContentDecoder where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_content_decoder_get_type-    --class GObject o => ContentDecoderK o-instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o--toContentDecoder :: ContentDecoderK o => o -> IO ContentDecoder-toContentDecoder = unsafeCastTo ContentDecoder---- object ContentSniffer -newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer)-noContentSniffer :: Maybe ContentSniffer-noContentSniffer = Nothing--foreign import ccall "soup_content_sniffer_get_type"-    c_soup_content_sniffer_get_type :: IO GType--type instance ParentTypes ContentSniffer = '[GObject.Object, SessionFeature]--instance GObject ContentSniffer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_content_sniffer_get_type-    --class GObject o => ContentSnifferK o-instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o--toContentSniffer :: ContentSnifferK o => o -> IO ContentSniffer-toContentSniffer = unsafeCastTo ContentSniffer---- method ContentSniffer::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "ContentSniffer"--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: -    IO (Ptr ContentSniffer)---contentSnifferNew ::-    (MonadIO m) =>-    m ContentSniffer-contentSnifferNew  = liftIO $ do-    result <- soup_content_sniffer_new-    checkUnexpectedReturnNULL "soup_content_sniffer_new" result-    result' <- (wrapObject ContentSniffer) result-    return result'---- method ContentSniffer::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_get_buffer_size" soup_content_sniffer_get_buffer_size :: -    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"-    IO Word64---contentSnifferGetBufferSize ::-    (MonadIO m, ContentSnifferK a) =>-    a ->                                    -- _obj-    m Word64-contentSnifferGetBufferSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_content_sniffer_get_buffer_size _obj'-    touchManagedPtr _obj-    return result---- method ContentSniffer::sniff--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_sniff" soup_content_sniffer_sniff :: -    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---contentSnifferSniff ::-    (MonadIO m, ContentSnifferK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Buffer ->                               -- buffer-    m (T.Text,(Map.Map T.Text T.Text))-contentSnifferSniff _obj msg buffer = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let buffer' = unsafeManagedPtrGetPtr buffer-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_content_sniffer_sniff _obj' msg' buffer' params-    checkUnexpectedReturnNULL "soup_content_sniffer_sniff" result-    result' <- cstringToText result-    freeMem result-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr buffer-    freeMem params-    return (result', params''''''')---- struct Cookie-newtype Cookie = Cookie (ForeignPtr Cookie)-noCookie :: Maybe Cookie-noCookie = Nothing--foreign import ccall "soup_cookie_get_type" c_soup_cookie_get_type :: -    IO GType--instance BoxedObject Cookie where-    boxedType _ = c_soup_cookie_get_type--cookieReadName :: Cookie -> IO T.Text-cookieReadName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--cookieReadValue :: Cookie -> IO T.Text-cookieReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--cookieReadDomain :: Cookie -> IO T.Text-cookieReadDomain s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--cookieReadPath :: Cookie -> IO T.Text-cookieReadPath s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'--cookieReadExpires :: Cookie -> IO Date-cookieReadExpires s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date)-    val' <- (newBoxed Date) val-    return val'--cookieReadSecure :: Cookie -> IO Bool-cookieReadSecure s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CInt-    let val' = (/= 0) val-    return val'--cookieReadHttpOnly :: Cookie -> IO Bool-cookieReadHttpOnly s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO CInt-    let val' = (/= 0) val-    return val'---- method Cookie::new--- method type : Constructor--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Cookie"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_new" soup_cookie_new :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- path : TBasicType TUTF8-    Int32 ->                                -- max_age : TBasicType TInt32-    IO (Ptr Cookie)---cookieNew ::-    (MonadIO m) =>-    T.Text ->                               -- name-    T.Text ->                               -- value-    T.Text ->                               -- domain-    T.Text ->                               -- path-    Int32 ->                                -- max_age-    m Cookie-cookieNew name value domain path max_age = liftIO $ do-    name' <- textToCString name-    value' <- textToCString value-    domain' <- textToCString domain-    path' <- textToCString path-    result <- soup_cookie_new name' value' domain' path' max_age-    checkUnexpectedReturnNULL "soup_cookie_new" result-    result' <- (wrapBoxed Cookie) result-    freeMem name'-    freeMem value'-    freeMem domain'-    freeMem path'-    return result'---- method Cookie::applies_to_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_applies_to_uri" soup_cookie_applies_to_uri :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO CInt---cookieAppliesToUri ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    URI ->                                  -- uri-    m Bool-cookieAppliesToUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    result <- soup_cookie_applies_to_uri _obj' uri'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr uri-    return result'---- method Cookie::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Cookie"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_copy" soup_cookie_copy :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO (Ptr Cookie)---cookieCopy ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m Cookie-cookieCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_copy _obj'-    checkUnexpectedReturnNULL "soup_cookie_copy" result-    result' <- (wrapBoxed Cookie) result-    touchManagedPtr _obj-    return result'---- method Cookie::domain_matches--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_domain_matches" soup_cookie_domain_matches :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- host : TBasicType TUTF8-    IO CInt---cookieDomainMatches ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    T.Text ->                               -- host-    m Bool-cookieDomainMatches _obj host = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    host' <- textToCString host-    result <- soup_cookie_domain_matches _obj' host'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem host'-    return result'---- method Cookie::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_equal" soup_cookie_equal :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr Cookie ->                           -- cookie2 : TInterface "Soup" "Cookie"-    IO CInt---cookieEqual ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    Cookie ->                               -- cookie2-    m Bool-cookieEqual _obj cookie2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let cookie2' = unsafeManagedPtrGetPtr cookie2-    result <- soup_cookie_equal _obj' cookie2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr cookie2-    return result'---- method Cookie::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_free" soup_cookie_free :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO ()---cookieFree ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m ()-cookieFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_cookie_free _obj'-    touchManagedPtr _obj-    return ()---- method Cookie::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_domain" soup_cookie_get_domain :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetDomain ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieGetDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_domain _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_domain" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Cookie::get_expires--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO (Ptr Date)---cookieGetExpires ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m Date-cookieGetExpires _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_expires _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_expires" result-    result' <- (newBoxed Date) result-    touchManagedPtr _obj-    return result'---- method Cookie::get_http_only--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_http_only" soup_cookie_get_http_only :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CInt---cookieGetHttpOnly ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m Bool-cookieGetHttpOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_http_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Cookie::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_name" soup_cookie_get_name :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetName ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_name _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Cookie::get_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_path" soup_cookie_get_path :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetPath ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_path _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Cookie::get_secure--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_secure" soup_cookie_get_secure :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CInt---cookieGetSecure ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m Bool-cookieGetSecure _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_secure _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Cookie::get_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_value" soup_cookie_get_value :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetValue ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_value _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_value" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Cookie::set_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_domain" soup_cookie_set_domain :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---cookieSetDomain ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    T.Text ->                               -- domain-    m ()-cookieSetDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    domain' <- textToCString domain-    soup_cookie_set_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()---- method Cookie::set_expires--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_expires" soup_cookie_set_expires :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr Date ->                             -- expires : TInterface "Soup" "Date"-    IO ()---cookieSetExpires ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    Date ->                                 -- expires-    m ()-cookieSetExpires _obj expires = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let expires' = unsafeManagedPtrGetPtr expires-    soup_cookie_set_expires _obj' expires'-    touchManagedPtr _obj-    touchManagedPtr expires-    return ()---- method Cookie::set_http_only--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_http_only" soup_cookie_set_http_only :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CInt ->                                 -- http_only : TBasicType TBoolean-    IO ()---cookieSetHttpOnly ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    Bool ->                                 -- http_only-    m ()-cookieSetHttpOnly _obj http_only = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let http_only' = (fromIntegral . fromEnum) http_only-    soup_cookie_set_http_only _obj' http_only'-    touchManagedPtr _obj-    return ()---- method Cookie::set_max_age--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_max_age" soup_cookie_set_max_age :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Int32 ->                                -- max_age : TBasicType TInt32-    IO ()---cookieSetMaxAge ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    Int32 ->                                -- max_age-    m ()-cookieSetMaxAge _obj max_age = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_cookie_set_max_age _obj' max_age-    touchManagedPtr _obj-    return ()---- method Cookie::set_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_name" soup_cookie_set_name :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---cookieSetName ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    T.Text ->                               -- name-    m ()-cookieSetName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    soup_cookie_set_name _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()---- method Cookie::set_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_path" soup_cookie_set_path :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---cookieSetPath ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    T.Text ->                               -- path-    m ()-cookieSetPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    soup_cookie_set_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()---- method Cookie::set_secure--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_secure" soup_cookie_set_secure :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CInt ->                                 -- secure : TBasicType TBoolean-    IO ()---cookieSetSecure ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    Bool ->                                 -- secure-    m ()-cookieSetSecure _obj secure = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let secure' = (fromIntegral . fromEnum) secure-    soup_cookie_set_secure _obj' secure'-    touchManagedPtr _obj-    return ()---- method Cookie::set_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_value" soup_cookie_set_value :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---cookieSetValue ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    T.Text ->                               -- value-    m ()-cookieSetValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    value' <- textToCString value-    soup_cookie_set_value _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()---- method Cookie::to_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_to_cookie_header" soup_cookie_to_cookie_header :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieToCookieHeader ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieToCookieHeader _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_to_cookie_header _obj'-    checkUnexpectedReturnNULL "soup_cookie_to_cookie_header" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Cookie::to_set_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_to_set_cookie_header" soup_cookie_to_set_cookie_header :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieToSetCookieHeader ::-    (MonadIO m) =>-    Cookie ->                               -- _obj-    m T.Text-cookieToSetCookieHeader _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_to_set_cookie_header _obj'-    checkUnexpectedReturnNULL "soup_cookie_to_set_cookie_header" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- object CookieJar -newtype CookieJar = CookieJar (ForeignPtr CookieJar)-noCookieJar :: Maybe CookieJar-noCookieJar = Nothing--foreign import ccall "soup_cookie_jar_get_type"-    c_soup_cookie_jar_get_type :: IO GType--type instance ParentTypes CookieJar = '[GObject.Object, SessionFeature]--instance GObject CookieJar where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_get_type-    --class GObject o => CookieJarK o-instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o--toCookieJar :: CookieJarK o => o -> IO CookieJar-toCookieJar = unsafeCastTo CookieJar---- method CookieJar::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "CookieJar"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: -    IO (Ptr CookieJar)---cookieJarNew ::-    (MonadIO m) =>-    m CookieJar-cookieJarNew  = liftIO $ do-    result <- soup_cookie_jar_new-    checkUnexpectedReturnNULL "soup_cookie_jar_new" result-    result' <- (wrapObject CookieJar) result-    return result'---- method CookieJar::add_cookie--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarAddCookie ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    Cookie ->                               -- cookie-    m ()-cookieJarAddCookie _obj cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    cookie' <- copyBoxed cookie-    soup_cookie_jar_add_cookie _obj' cookie'-    touchManagedPtr _obj-    touchManagedPtr cookie-    return ()---- method CookieJar::add_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarAddCookieWithFirstParty ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    URI ->                                  -- first_party-    Cookie ->                               -- cookie-    m ()-cookieJarAddCookieWithFirstParty _obj first_party cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let first_party' = unsafeManagedPtrGetPtr first_party-    cookie' <- copyBoxed cookie-    soup_cookie_jar_add_cookie_with_first_party _obj' first_party' cookie'-    touchManagedPtr _obj-    touchManagedPtr first_party-    touchManagedPtr cookie-    return ()---- method CookieJar::all_cookies--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO (Ptr (GSList (Ptr Cookie)))---cookieJarAllCookies ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    m [Cookie]-cookieJarAllCookies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_all_cookies _obj'-    checkUnexpectedReturnNULL "soup_cookie_jar_all_cookies" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method CookieJar::delete_cookie--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarDeleteCookie ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    Cookie ->                               -- cookie-    m ()-cookieJarDeleteCookie _obj cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cookie' = unsafeManagedPtrGetPtr cookie-    soup_cookie_jar_delete_cookie _obj' cookie'-    touchManagedPtr _obj-    touchManagedPtr cookie-    return ()---- method CookieJar::get_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "CookieJarAcceptPolicy"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO CUInt---cookieJarGetAcceptPolicy ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    m CookieJarAcceptPolicy-cookieJarGetAcceptPolicy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_get_accept_policy _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method CookieJar::get_cookie_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO (Ptr (GSList (Ptr Cookie)))---cookieJarGetCookieList ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    Bool ->                                 -- for_http-    m [Cookie]-cookieJarGetCookieList _obj uri for_http = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let for_http' = (fromIntegral . fromEnum) for_http-    result <- soup_cookie_jar_get_cookie_list _obj' uri' for_http'-    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookie_list" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr _obj-    touchManagedPtr uri-    return result''---- method CookieJar::get_cookies--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO CString---cookieJarGetCookies ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    Bool ->                                 -- for_http-    m T.Text-cookieJarGetCookies _obj uri for_http = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let for_http' = (fromIntegral . fromEnum) for_http-    result <- soup_cookie_jar_get_cookies _obj' uri' for_http'-    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookies" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr uri-    return result'---- method CookieJar::is_persistent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO CInt---cookieJarIsPersistent ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    m Bool-cookieJarIsPersistent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_is_persistent _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method CookieJar::save--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO ()--{-# DEPRECATED cookieJarSave ["This is a no-op."]#-}-cookieJarSave ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    m ()-cookieJarSave _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cookie_jar_save _obj'-    touchManagedPtr _obj-    return ()---- method CookieJar::set_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    CUInt ->                                -- policy : TInterface "Soup" "CookieJarAcceptPolicy"-    IO ()---cookieJarSetAcceptPolicy ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    CookieJarAcceptPolicy ->                -- policy-    m ()-cookieJarSetAcceptPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    soup_cookie_jar_set_accept_policy _obj' policy'-    touchManagedPtr _obj-    return ()---- method CookieJar::set_cookie--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_cookie" soup_cookie_jar_set_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()---cookieJarSetCookie ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    T.Text ->                               -- cookie-    m ()-cookieJarSetCookie _obj uri cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie _obj' uri' cookie'-    touchManagedPtr _obj-    touchManagedPtr uri-    freeMem cookie'-    return ()---- method CookieJar::set_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()---cookieJarSetCookieWithFirstParty ::-    (MonadIO m, CookieJarK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    URI ->                                  -- first_party-    T.Text ->                               -- cookie-    m ()-cookieJarSetCookieWithFirstParty _obj uri first_party cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let first_party' = unsafeManagedPtrGetPtr first_party-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie_with_first_party _obj' uri' first_party' cookie'-    touchManagedPtr _obj-    touchManagedPtr uri-    touchManagedPtr first_party-    freeMem cookie'-    return ()---- signal CookieJar::changed-type CookieJarChangedCallback =-    Cookie ->-    Cookie ->-    IO ()--noCookieJarChangedCallback :: Maybe CookieJarChangedCallback-noCookieJarChangedCallback = Nothing--type CookieJarChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Cookie ->-    Ptr Cookie ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkCookieJarChangedCallback :: CookieJarChangedCallbackC -> IO (FunPtr CookieJarChangedCallbackC)--cookieJarChangedClosure :: CookieJarChangedCallback -> IO Closure-cookieJarChangedClosure cb = newCClosure =<< mkCookieJarChangedCallback wrapped-    where wrapped = cookieJarChangedCallbackWrapper cb--cookieJarChangedCallbackWrapper ::-    CookieJarChangedCallback ->-    Ptr () ->-    Ptr Cookie ->-    Ptr Cookie ->-    Ptr () ->-    IO ()-cookieJarChangedCallbackWrapper _cb _ old_cookie new_cookie _ = do-    old_cookie' <- (newBoxed Cookie) old_cookie-    new_cookie' <- (newBoxed Cookie) new_cookie-    _cb  old_cookie' new_cookie'--onCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-onCookieJarChanged obj cb = liftIO $ connectCookieJarChanged obj cb SignalConnectBefore-afterCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-afterCookieJarChanged obj cb = connectCookieJarChanged obj cb SignalConnectAfter--connectCookieJarChanged :: (GObject a, MonadIO m) =>-                           a -> CookieJarChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectCookieJarChanged obj cb after = liftIO $ do-    cb' <- mkCookieJarChangedCallback (cookieJarChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- Enum CookieJarAcceptPolicy--data CookieJarAcceptPolicy = -      CookieJarAcceptPolicyAlways-    | CookieJarAcceptPolicyNever-    | CookieJarAcceptPolicyNoThirdParty-    | AnotherCookieJarAcceptPolicy Int-    deriving (Show, Eq)--instance Enum CookieJarAcceptPolicy where-    fromEnum CookieJarAcceptPolicyAlways = 0-    fromEnum CookieJarAcceptPolicyNever = 1-    fromEnum CookieJarAcceptPolicyNoThirdParty = 2-    fromEnum (AnotherCookieJarAcceptPolicy k) = k--    toEnum 0 = CookieJarAcceptPolicyAlways-    toEnum 1 = CookieJarAcceptPolicyNever-    toEnum 2 = CookieJarAcceptPolicyNoThirdParty-    toEnum k = AnotherCookieJarAcceptPolicy k--foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type :: -    IO GType--instance BoxedEnum CookieJarAcceptPolicy where-    boxedEnumType _ = c_soup_cookie_jar_accept_policy_get_type---- object CookieJarDB -newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB)-noCookieJarDB :: Maybe CookieJarDB-noCookieJarDB = Nothing--foreign import ccall "soup_cookie_jar_db_get_type"-    c_soup_cookie_jar_db_get_type :: IO GType--type instance ParentTypes CookieJarDB = '[CookieJar, GObject.Object, SessionFeature]--instance GObject CookieJarDB where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_db_get_type-    --class GObject o => CookieJarDBK o-instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o--toCookieJarDB :: CookieJarDBK o => o -> IO CookieJarDB-toCookieJarDB = unsafeCastTo CookieJarDB---- method CookieJarDB::new--- method type : Constructor--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "CookieJarDB"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_db_new" soup_cookie_jar_db_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CInt ->                                 -- read_only : TBasicType TBoolean-    IO (Ptr CookieJarDB)---cookieJarDBNew ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    Bool ->                                 -- read_only-    m CookieJarDB-cookieJarDBNew filename read_only = liftIO $ do-    filename' <- textToCString filename-    let read_only' = (fromIntegral . fromEnum) read_only-    result <- soup_cookie_jar_db_new filename' read_only'-    checkUnexpectedReturnNULL "soup_cookie_jar_db_new" result-    result' <- (wrapObject CookieJarDB) result-    freeMem filename'-    return result'---- object CookieJarText -newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText)-noCookieJarText :: Maybe CookieJarText-noCookieJarText = Nothing--foreign import ccall "soup_cookie_jar_text_get_type"-    c_soup_cookie_jar_text_get_type :: IO GType--type instance ParentTypes CookieJarText = '[CookieJar, GObject.Object, SessionFeature]--instance GObject CookieJarText where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_text_get_type-    --class GObject o => CookieJarTextK o-instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o--toCookieJarText :: CookieJarTextK o => o -> IO CookieJarText-toCookieJarText = unsafeCastTo CookieJarText---- method CookieJarText::new--- method type : Constructor--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "CookieJarText"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_text_new" soup_cookie_jar_text_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CInt ->                                 -- read_only : TBasicType TBoolean-    IO (Ptr CookieJarText)---cookieJarTextNew ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    Bool ->                                 -- read_only-    m CookieJarText-cookieJarTextNew filename read_only = liftIO $ do-    filename' <- textToCString filename-    let read_only' = (fromIntegral . fromEnum) read_only-    result <- soup_cookie_jar_text_new filename' read_only'-    checkUnexpectedReturnNULL "soup_cookie_jar_text_new" result-    result' <- (wrapObject CookieJarText) result-    freeMem filename'-    return result'---- struct Date-newtype Date = Date (ForeignPtr Date)-noDate :: Maybe Date-noDate = Nothing--foreign import ccall "soup_date_get_type" c_soup_date_get_type :: -    IO GType--instance BoxedObject Date where-    boxedType _ = c_soup_date_get_type--dateReadYear :: Date -> IO Int32-dateReadYear s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dateReadMonth :: Date -> IO Int32-dateReadMonth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--dateReadDay :: Date -> IO Int32-dateReadDay s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--dateReadHour :: Date -> IO Int32-dateReadHour s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--dateReadMinute :: Date -> IO Int32-dateReadMinute s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--dateReadSecond :: Date -> IO Int32-dateReadSecond s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--dateReadUtc :: Date -> IO Bool-dateReadUtc s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CInt-    let val' = (/= 0) val-    return val'--dateReadOffset :: Date -> IO Int32-dateReadOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val---- method Date::new--- method type : Constructor--- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_date_new" soup_date_new :: -    Int32 ->                                -- year : TBasicType TInt32-    Int32 ->                                -- month : TBasicType TInt32-    Int32 ->                                -- day : TBasicType TInt32-    Int32 ->                                -- hour : TBasicType TInt32-    Int32 ->                                -- minute : TBasicType TInt32-    Int32 ->                                -- second : TBasicType TInt32-    IO (Ptr Date)---dateNew ::-    (MonadIO m) =>-    Int32 ->                                -- year-    Int32 ->                                -- month-    Int32 ->                                -- day-    Int32 ->                                -- hour-    Int32 ->                                -- minute-    Int32 ->                                -- second-    m Date-dateNew year month day hour minute second = liftIO $ do-    result <- soup_date_new year month day hour minute second-    checkUnexpectedReturnNULL "soup_date_new" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_from_now--- method type : Constructor--- Args : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_now" soup_date_new_from_now :: -    Int32 ->                                -- offset_seconds : TBasicType TInt32-    IO (Ptr Date)---dateNewFromNow ::-    (MonadIO m) =>-    Int32 ->                                -- offset_seconds-    m Date-dateNewFromNow offset_seconds = liftIO $ do-    result <- soup_date_new_from_now offset_seconds-    checkUnexpectedReturnNULL "soup_date_new_from_now" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_from_string--- method type : Constructor--- Args : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_string" soup_date_new_from_string :: -    CString ->                              -- date_string : TBasicType TUTF8-    IO (Ptr Date)---dateNewFromString ::-    (MonadIO m) =>-    T.Text ->                               -- date_string-    m Date-dateNewFromString date_string = liftIO $ do-    date_string' <- textToCString date_string-    result <- soup_date_new_from_string date_string'-    checkUnexpectedReturnNULL "soup_date_new_from_string" result-    result' <- (wrapBoxed Date) result-    freeMem date_string'-    return result'---- method Date::new_from_time_t--- method type : Constructor--- Args : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: -    Int64 ->                                -- when : TBasicType TInt64-    IO (Ptr Date)---dateNewFromTimeT ::-    (MonadIO m) =>-    Int64 ->                                -- when-    m Date-dateNewFromTimeT when_ = liftIO $ do-    result <- soup_date_new_from_time_t when_-    checkUnexpectedReturnNULL "soup_date_new_from_time_t" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : False--- Skip return : False--foreign import ccall "soup_date_copy" soup_date_copy :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO (Ptr Date)---dateCopy ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Date-dateCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_copy _obj'-    checkUnexpectedReturnNULL "soup_date_copy" result-    result' <- (wrapBoxed Date) result-    touchManagedPtr _obj-    return result'---- method Date::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_date_free" soup_date_free :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO ()---dateFree ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m ()-dateFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_date_free _obj'-    touchManagedPtr _obj-    return ()---- method Date::get_day--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_day" soup_date_get_day :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetDay ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetDay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_day _obj'-    touchManagedPtr _obj-    return result---- method Date::get_hour--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_hour" soup_date_get_hour :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetHour ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetHour _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_hour _obj'-    touchManagedPtr _obj-    return result---- method Date::get_minute--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_minute" soup_date_get_minute :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetMinute ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetMinute _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_minute _obj'-    touchManagedPtr _obj-    return result---- method Date::get_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_month" soup_date_get_month :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetMonth ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_month _obj'-    touchManagedPtr _obj-    return result---- method Date::get_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_offset" soup_date_get_offset :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetOffset ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetOffset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_offset _obj'-    touchManagedPtr _obj-    return result---- method Date::get_second--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_second" soup_date_get_second :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetSecond ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetSecond _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_second _obj'-    touchManagedPtr _obj-    return result---- method Date::get_utc--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_utc" soup_date_get_utc :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetUtc ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetUtc _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_utc _obj'-    touchManagedPtr _obj-    return result---- method Date::get_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_year" soup_date_get_year :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int32-dateGetYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_year _obj'-    touchManagedPtr _obj-    return result---- method Date::is_past--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_date_is_past" soup_date_is_past :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO CInt---dateIsPast ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Bool-dateIsPast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_is_past _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Date::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_string" soup_date_to_string :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    CUInt ->                                -- format : TInterface "Soup" "DateFormat"-    IO CString---dateToString ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    DateFormat ->                           -- format-    m T.Text-dateToString _obj format = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let format' = (fromIntegral . fromEnum) format-    result <- soup_date_to_string _obj' format'-    checkUnexpectedReturnNULL "soup_date_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Date::to_time_t--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_time_t" soup_date_to_time_t :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int64---dateToTimeT ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Int64-dateToTimeT _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_to_time_t _obj'-    touchManagedPtr _obj-    return result---- method Date::to_timeval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_timeval" soup_date_to_timeval :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    Ptr GLib.TimeVal ->                     -- time : TInterface "GLib" "TimeVal"-    IO ()---dateToTimeval ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m (GLib.TimeVal)-dateToTimeval _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    time <- callocBytes 16 :: IO (Ptr GLib.TimeVal)-    soup_date_to_timeval _obj' time-    time' <- (wrapPtr GLib.TimeVal) time-    touchManagedPtr _obj-    return time'---- Enum DateFormat--data DateFormat = -      DateFormatHttp-    | DateFormatCookie-    | DateFormatRfc2822-    | DateFormatIso8601Compact-    | DateFormatIso8601Full-    | DateFormatIso8601-    | DateFormatIso8601Xmlrpc-    | AnotherDateFormat Int-    deriving (Show, Eq)--instance Enum DateFormat where-    fromEnum DateFormatHttp = 1-    fromEnum DateFormatCookie = 2-    fromEnum DateFormatRfc2822 = 3-    fromEnum DateFormatIso8601Compact = 4-    fromEnum DateFormatIso8601Full = 5-    fromEnum DateFormatIso8601 = 5-    fromEnum DateFormatIso8601Xmlrpc = 6-    fromEnum (AnotherDateFormat k) = k--    toEnum 1 = DateFormatHttp-    toEnum 2 = DateFormatCookie-    toEnum 3 = DateFormatRfc2822-    toEnum 4 = DateFormatIso8601Compact-    toEnum 5 = DateFormatIso8601Full-    toEnum 6 = DateFormatIso8601Xmlrpc-    toEnum k = AnotherDateFormat k--foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type :: -    IO GType--instance BoxedEnum DateFormat where-    boxedEnumType _ = c_soup_date_format_get_type---- Enum Encoding--data Encoding = -      EncodingUnrecognized-    | EncodingNone-    | EncodingContentLength-    | EncodingEof-    | EncodingChunked-    | EncodingByteranges-    | AnotherEncoding Int-    deriving (Show, Eq)--instance Enum Encoding where-    fromEnum EncodingUnrecognized = 0-    fromEnum EncodingNone = 1-    fromEnum EncodingContentLength = 2-    fromEnum EncodingEof = 3-    fromEnum EncodingChunked = 4-    fromEnum EncodingByteranges = 5-    fromEnum (AnotherEncoding k) = k--    toEnum 0 = EncodingUnrecognized-    toEnum 1 = EncodingNone-    toEnum 2 = EncodingContentLength-    toEnum 3 = EncodingEof-    toEnum 4 = EncodingChunked-    toEnum 5 = EncodingByteranges-    toEnum k = AnotherEncoding k--foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type :: -    IO GType--instance BoxedEnum Encoding where-    boxedEnumType _ = c_soup_encoding_get_type---- Flags Expectation--data Expectation = -      ExpectationUnrecognized-    | ExpectationContinue-    | AnotherExpectation Int-    deriving (Show, Eq)--instance Enum Expectation where-    fromEnum ExpectationUnrecognized = 1-    fromEnum ExpectationContinue = 2-    fromEnum (AnotherExpectation k) = k--    toEnum 1 = ExpectationUnrecognized-    toEnum 2 = ExpectationContinue-    toEnum k = AnotherExpectation k--foreign import ccall "soup_expectation_get_type" c_soup_expectation_get_type :: -    IO GType--instance BoxedEnum Expectation where-    boxedEnumType _ = c_soup_expectation_get_type--instance IsGFlag Expectation---- Enum HTTPVersion--data HTTPVersion = -      HTTPVersionHttp10-    | HTTPVersionHttp11-    | AnotherHTTPVersion Int-    deriving (Show, Eq)--instance Enum HTTPVersion where-    fromEnum HTTPVersionHttp10 = 0-    fromEnum HTTPVersionHttp11 = 1-    fromEnum (AnotherHTTPVersion k) = k--    toEnum 0 = HTTPVersionHttp10-    toEnum 1 = HTTPVersionHttp11-    toEnum k = AnotherHTTPVersion k--foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type :: -    IO GType--instance BoxedEnum HTTPVersion where-    boxedEnumType _ = c_soup_http_version_get_type---- Enum KnownStatusCode--data KnownStatusCode = -      KnownStatusCodeNone-    | KnownStatusCodeCancelled-    | KnownStatusCodeCantResolve-    | KnownStatusCodeCantResolveProxy-    | KnownStatusCodeCantConnect-    | KnownStatusCodeCantConnectProxy-    | KnownStatusCodeSslFailed-    | KnownStatusCodeIoError-    | KnownStatusCodeMalformed-    | KnownStatusCodeTryAgain-    | KnownStatusCodeTooManyRedirects-    | KnownStatusCodeTlsFailed-    | KnownStatusCodeContinue-    | KnownStatusCodeSwitchingProtocols-    | KnownStatusCodeProcessing-    | KnownStatusCodeOk-    | KnownStatusCodeCreated-    | KnownStatusCodeAccepted-    | KnownStatusCodeNonAuthoritative-    | KnownStatusCodeNoContent-    | KnownStatusCodeResetContent-    | KnownStatusCodePartialContent-    | KnownStatusCodeMultiStatus-    | KnownStatusCodeMultipleChoices-    | KnownStatusCodeMovedPermanently-    | KnownStatusCodeFound-    | KnownStatusCodeMovedTemporarily-    | KnownStatusCodeSeeOther-    | KnownStatusCodeNotModified-    | KnownStatusCodeUseProxy-    | KnownStatusCodeNotAppearingInThisProtocol-    | KnownStatusCodeTemporaryRedirect-    | KnownStatusCodeBadRequest-    | KnownStatusCodeUnauthorized-    | KnownStatusCodePaymentRequired-    | KnownStatusCodeForbidden-    | KnownStatusCodeNotFound-    | KnownStatusCodeMethodNotAllowed-    | KnownStatusCodeNotAcceptable-    | KnownStatusCodeProxyAuthenticationRequired-    | KnownStatusCodeProxyUnauthorized-    | KnownStatusCodeRequestTimeout-    | KnownStatusCodeConflict-    | KnownStatusCodeGone-    | KnownStatusCodeLengthRequired-    | KnownStatusCodePreconditionFailed-    | KnownStatusCodeRequestEntityTooLarge-    | KnownStatusCodeRequestUriTooLong-    | KnownStatusCodeUnsupportedMediaType-    | KnownStatusCodeRequestedRangeNotSatisfiable-    | KnownStatusCodeInvalidRange-    | KnownStatusCodeExpectationFailed-    | KnownStatusCodeUnprocessableEntity-    | KnownStatusCodeLocked-    | KnownStatusCodeFailedDependency-    | KnownStatusCodeInternalServerError-    | KnownStatusCodeNotImplemented-    | KnownStatusCodeBadGateway-    | KnownStatusCodeServiceUnavailable-    | KnownStatusCodeGatewayTimeout-    | KnownStatusCodeHttpVersionNotSupported-    | KnownStatusCodeInsufficientStorage-    | KnownStatusCodeNotExtended-    | AnotherKnownStatusCode Int-    deriving (Show, Eq)--instance Enum KnownStatusCode where-    fromEnum KnownStatusCodeNone = 0-    fromEnum KnownStatusCodeCancelled = 1-    fromEnum KnownStatusCodeCantResolve = 2-    fromEnum KnownStatusCodeCantResolveProxy = 3-    fromEnum KnownStatusCodeCantConnect = 4-    fromEnum KnownStatusCodeCantConnectProxy = 5-    fromEnum KnownStatusCodeSslFailed = 6-    fromEnum KnownStatusCodeIoError = 7-    fromEnum KnownStatusCodeMalformed = 8-    fromEnum KnownStatusCodeTryAgain = 9-    fromEnum KnownStatusCodeTooManyRedirects = 10-    fromEnum KnownStatusCodeTlsFailed = 11-    fromEnum KnownStatusCodeContinue = 100-    fromEnum KnownStatusCodeSwitchingProtocols = 101-    fromEnum KnownStatusCodeProcessing = 102-    fromEnum KnownStatusCodeOk = 200-    fromEnum KnownStatusCodeCreated = 201-    fromEnum KnownStatusCodeAccepted = 202-    fromEnum KnownStatusCodeNonAuthoritative = 203-    fromEnum KnownStatusCodeNoContent = 204-    fromEnum KnownStatusCodeResetContent = 205-    fromEnum KnownStatusCodePartialContent = 206-    fromEnum KnownStatusCodeMultiStatus = 207-    fromEnum KnownStatusCodeMultipleChoices = 300-    fromEnum KnownStatusCodeMovedPermanently = 301-    fromEnum KnownStatusCodeFound = 302-    fromEnum KnownStatusCodeMovedTemporarily = 302-    fromEnum KnownStatusCodeSeeOther = 303-    fromEnum KnownStatusCodeNotModified = 304-    fromEnum KnownStatusCodeUseProxy = 305-    fromEnum KnownStatusCodeNotAppearingInThisProtocol = 306-    fromEnum KnownStatusCodeTemporaryRedirect = 307-    fromEnum KnownStatusCodeBadRequest = 400-    fromEnum KnownStatusCodeUnauthorized = 401-    fromEnum KnownStatusCodePaymentRequired = 402-    fromEnum KnownStatusCodeForbidden = 403-    fromEnum KnownStatusCodeNotFound = 404-    fromEnum KnownStatusCodeMethodNotAllowed = 405-    fromEnum KnownStatusCodeNotAcceptable = 406-    fromEnum KnownStatusCodeProxyAuthenticationRequired = 407-    fromEnum KnownStatusCodeProxyUnauthorized = 407-    fromEnum KnownStatusCodeRequestTimeout = 408-    fromEnum KnownStatusCodeConflict = 409-    fromEnum KnownStatusCodeGone = 410-    fromEnum KnownStatusCodeLengthRequired = 411-    fromEnum KnownStatusCodePreconditionFailed = 412-    fromEnum KnownStatusCodeRequestEntityTooLarge = 413-    fromEnum KnownStatusCodeRequestUriTooLong = 414-    fromEnum KnownStatusCodeUnsupportedMediaType = 415-    fromEnum KnownStatusCodeRequestedRangeNotSatisfiable = 416-    fromEnum KnownStatusCodeInvalidRange = 416-    fromEnum KnownStatusCodeExpectationFailed = 417-    fromEnum KnownStatusCodeUnprocessableEntity = 422-    fromEnum KnownStatusCodeLocked = 423-    fromEnum KnownStatusCodeFailedDependency = 424-    fromEnum KnownStatusCodeInternalServerError = 500-    fromEnum KnownStatusCodeNotImplemented = 501-    fromEnum KnownStatusCodeBadGateway = 502-    fromEnum KnownStatusCodeServiceUnavailable = 503-    fromEnum KnownStatusCodeGatewayTimeout = 504-    fromEnum KnownStatusCodeHttpVersionNotSupported = 505-    fromEnum KnownStatusCodeInsufficientStorage = 507-    fromEnum KnownStatusCodeNotExtended = 510-    fromEnum (AnotherKnownStatusCode k) = k--    toEnum 0 = KnownStatusCodeNone-    toEnum 1 = KnownStatusCodeCancelled-    toEnum 2 = KnownStatusCodeCantResolve-    toEnum 3 = KnownStatusCodeCantResolveProxy-    toEnum 4 = KnownStatusCodeCantConnect-    toEnum 5 = KnownStatusCodeCantConnectProxy-    toEnum 6 = KnownStatusCodeSslFailed-    toEnum 7 = KnownStatusCodeIoError-    toEnum 8 = KnownStatusCodeMalformed-    toEnum 9 = KnownStatusCodeTryAgain-    toEnum 10 = KnownStatusCodeTooManyRedirects-    toEnum 11 = KnownStatusCodeTlsFailed-    toEnum 100 = KnownStatusCodeContinue-    toEnum 101 = KnownStatusCodeSwitchingProtocols-    toEnum 102 = KnownStatusCodeProcessing-    toEnum 200 = KnownStatusCodeOk-    toEnum 201 = KnownStatusCodeCreated-    toEnum 202 = KnownStatusCodeAccepted-    toEnum 203 = KnownStatusCodeNonAuthoritative-    toEnum 204 = KnownStatusCodeNoContent-    toEnum 205 = KnownStatusCodeResetContent-    toEnum 206 = KnownStatusCodePartialContent-    toEnum 207 = KnownStatusCodeMultiStatus-    toEnum 300 = KnownStatusCodeMultipleChoices-    toEnum 301 = KnownStatusCodeMovedPermanently-    toEnum 302 = KnownStatusCodeFound-    toEnum 303 = KnownStatusCodeSeeOther-    toEnum 304 = KnownStatusCodeNotModified-    toEnum 305 = KnownStatusCodeUseProxy-    toEnum 306 = KnownStatusCodeNotAppearingInThisProtocol-    toEnum 307 = KnownStatusCodeTemporaryRedirect-    toEnum 400 = KnownStatusCodeBadRequest-    toEnum 401 = KnownStatusCodeUnauthorized-    toEnum 402 = KnownStatusCodePaymentRequired-    toEnum 403 = KnownStatusCodeForbidden-    toEnum 404 = KnownStatusCodeNotFound-    toEnum 405 = KnownStatusCodeMethodNotAllowed-    toEnum 406 = KnownStatusCodeNotAcceptable-    toEnum 407 = KnownStatusCodeProxyAuthenticationRequired-    toEnum 408 = KnownStatusCodeRequestTimeout-    toEnum 409 = KnownStatusCodeConflict-    toEnum 410 = KnownStatusCodeGone-    toEnum 411 = KnownStatusCodeLengthRequired-    toEnum 412 = KnownStatusCodePreconditionFailed-    toEnum 413 = KnownStatusCodeRequestEntityTooLarge-    toEnum 414 = KnownStatusCodeRequestUriTooLong-    toEnum 415 = KnownStatusCodeUnsupportedMediaType-    toEnum 416 = KnownStatusCodeRequestedRangeNotSatisfiable-    toEnum 417 = KnownStatusCodeExpectationFailed-    toEnum 422 = KnownStatusCodeUnprocessableEntity-    toEnum 423 = KnownStatusCodeLocked-    toEnum 424 = KnownStatusCodeFailedDependency-    toEnum 500 = KnownStatusCodeInternalServerError-    toEnum 501 = KnownStatusCodeNotImplemented-    toEnum 502 = KnownStatusCodeBadGateway-    toEnum 503 = KnownStatusCodeServiceUnavailable-    toEnum 504 = KnownStatusCodeGatewayTimeout-    toEnum 505 = KnownStatusCodeHttpVersionNotSupported-    toEnum 507 = KnownStatusCodeInsufficientStorage-    toEnum 510 = KnownStatusCodeNotExtended-    toEnum k = AnotherKnownStatusCode k--foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type :: -    IO GType--instance BoxedEnum KnownStatusCode where-    boxedEnumType _ = c_soup_known_status_code_get_type---- object Logger -newtype Logger = Logger (ForeignPtr Logger)-noLogger :: Maybe Logger-noLogger = Nothing--foreign import ccall "soup_logger_get_type"-    c_soup_logger_get_type :: IO GType--type instance ParentTypes Logger = '[GObject.Object, SessionFeature]--instance GObject Logger where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_logger_get_type-    --class GObject o => LoggerK o-instance (GObject o, IsDescendantOf Logger o) => LoggerK o--toLogger :: LoggerK o => o -> IO Logger-toLogger = unsafeCastTo Logger---- method Logger::new--- method type : Constructor--- Args : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Logger"--- throws : False--- Skip return : False--foreign import ccall "soup_logger_new" soup_logger_new :: -    CUInt ->                                -- level : TInterface "Soup" "LoggerLogLevel"-    Int32 ->                                -- max_body_size : TBasicType TInt32-    IO (Ptr Logger)---loggerNew ::-    (MonadIO m) =>-    LoggerLogLevel ->                       -- level-    Int32 ->                                -- max_body_size-    m Logger-loggerNew level max_body_size = liftIO $ do-    let level' = (fromIntegral . fromEnum) level-    result <- soup_logger_new level' max_body_size-    checkUnexpectedReturnNULL "soup_logger_new" result-    result' <- (wrapObject Logger) result-    return result'---- method Logger::attach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_logger_attach" soup_logger_attach :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()--{-# DEPRECATED loggerAttach ["Use soup_session_add_feature() instead."]#-}-loggerAttach ::-    (MonadIO m, LoggerK a, SessionK b) =>-    a ->                                    -- _obj-    b ->                                    -- session-    m ()-loggerAttach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_logger_attach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()---- method Logger::detach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_logger_detach" soup_logger_detach :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()--{-# DEPRECATED loggerDetach ["Use soup_session_remove_feature() instead."]#-}-loggerDetach ::-    (MonadIO m, LoggerK a, SessionK b) =>-    a ->                                    -- _obj-    b ->                                    -- session-    m ()-loggerDetach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_logger_detach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()---- method Logger::set_printer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "printer_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_printer" soup_logger_set_printer :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerPrinterC ->                -- printer : TInterface "Soup" "LoggerPrinter"-    Ptr () ->                               -- printer_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetPrinter ::-    (MonadIO m, LoggerK a) =>-    a ->                                    -- _obj-    LoggerPrinter ->                        -- printer-    m ()-loggerSetPrinter _obj printer = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer)-    let printer_data = castFunPtrToPtr printer'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_printer _obj' printer' printer_data destroy-    touchManagedPtr _obj-    return ()---- method Logger::set_request_filter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerFilterC ->                 -- request_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetRequestFilter ::-    (MonadIO m, LoggerK a) =>-    a ->                                    -- _obj-    LoggerFilter ->                         -- request_filter-    m ()-loggerSetRequestFilter _obj request_filter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    request_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing request_filter)-    let filter_data = castFunPtrToPtr request_filter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_request_filter _obj' request_filter' filter_data destroy-    touchManagedPtr _obj-    return ()---- method Logger::set_response_filter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerFilterC ->                 -- response_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetResponseFilter ::-    (MonadIO m, LoggerK a) =>-    a ->                                    -- _obj-    LoggerFilter ->                         -- response_filter-    m ()-loggerSetResponseFilter _obj response_filter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    response_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing response_filter)-    let filter_data = castFunPtrToPtr response_filter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_response_filter _obj' response_filter' filter_data destroy-    touchManagedPtr _obj-    return ()---- callback LoggerFilter-loggerFilterClosure :: LoggerFilter -> IO Closure-loggerFilterClosure cb = newCClosure =<< mkLoggerFilter wrapped-    where wrapped = loggerFilterWrapper Nothing cb--type LoggerFilterC =-    Ptr Logger ->-    Ptr Message ->-    Ptr () ->-    IO CUInt--foreign import ccall "wrapper"-    mkLoggerFilter :: LoggerFilterC -> IO (FunPtr LoggerFilterC)--type LoggerFilter =-    Logger ->-    Message ->-    IO LoggerLogLevel--noLoggerFilter :: Maybe LoggerFilter-noLoggerFilter = Nothing--loggerFilterWrapper ::-    Maybe (Ptr (FunPtr (LoggerFilterC))) ->-    LoggerFilter ->-    Ptr Logger ->-    Ptr Message ->-    Ptr () ->-    IO CUInt-loggerFilterWrapper funptrptr _cb logger msg _ = do-    logger' <- (newObject Logger) logger-    msg' <- (newObject Message) msg-    result <- _cb  logger' msg'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- Enum LoggerLogLevel--data LoggerLogLevel = -      LoggerLogLevelNone-    | LoggerLogLevelMinimal-    | LoggerLogLevelHeaders-    | LoggerLogLevelBody-    | AnotherLoggerLogLevel Int-    deriving (Show, Eq)--instance Enum LoggerLogLevel where-    fromEnum LoggerLogLevelNone = 0-    fromEnum LoggerLogLevelMinimal = 1-    fromEnum LoggerLogLevelHeaders = 2-    fromEnum LoggerLogLevelBody = 3-    fromEnum (AnotherLoggerLogLevel k) = k--    toEnum 0 = LoggerLogLevelNone-    toEnum 1 = LoggerLogLevelMinimal-    toEnum 2 = LoggerLogLevelHeaders-    toEnum 3 = LoggerLogLevelBody-    toEnum k = AnotherLoggerLogLevel k--foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type :: -    IO GType--instance BoxedEnum LoggerLogLevel where-    boxedEnumType _ = c_soup_logger_log_level_get_type---- callback LoggerPrinter-loggerPrinterClosure :: LoggerPrinter -> IO Closure-loggerPrinterClosure cb = newCClosure =<< mkLoggerPrinter wrapped-    where wrapped = loggerPrinterWrapper Nothing cb--type LoggerPrinterC =-    Ptr Logger ->-    CUInt ->-    Int8 ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkLoggerPrinter :: LoggerPrinterC -> IO (FunPtr LoggerPrinterC)--type LoggerPrinter =-    Logger ->-    LoggerLogLevel ->-    Int8 ->-    T.Text ->-    IO ()--noLoggerPrinter :: Maybe LoggerPrinter-noLoggerPrinter = Nothing--loggerPrinterWrapper ::-    Maybe (Ptr (FunPtr (LoggerPrinterC))) ->-    LoggerPrinter ->-    Ptr Logger ->-    CUInt ->-    Int8 ->-    CString ->-    Ptr () ->-    IO ()-loggerPrinterWrapper funptrptr _cb logger level direction data_ _ = do-    logger' <- (newObject Logger) logger-    let level' = (toEnum . fromIntegral) level-    data_' <- cstringToText data_-    _cb  logger' level' direction data_'-    maybeReleaseFunPtr funptrptr---- Enum MemoryUse--data MemoryUse = -      MemoryUseStatic-    | MemoryUseTake-    | MemoryUseCopy-    | MemoryUseTemporary-    | AnotherMemoryUse Int-    deriving (Show, Eq)--instance Enum MemoryUse where-    fromEnum MemoryUseStatic = 0-    fromEnum MemoryUseTake = 1-    fromEnum MemoryUseCopy = 2-    fromEnum MemoryUseTemporary = 3-    fromEnum (AnotherMemoryUse k) = k--    toEnum 0 = MemoryUseStatic-    toEnum 1 = MemoryUseTake-    toEnum 2 = MemoryUseCopy-    toEnum 3 = MemoryUseTemporary-    toEnum k = AnotherMemoryUse k--foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type :: -    IO GType--instance BoxedEnum MemoryUse where-    boxedEnumType _ = c_soup_memory_use_get_type---- object Message -newtype Message = Message (ForeignPtr Message)-noMessage :: Maybe Message-noMessage = Nothing--foreign import ccall "soup_message_get_type"-    c_soup_message_get_type :: IO GType--type instance ParentTypes Message = '[GObject.Object]--instance GObject Message where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_message_get_type-    --class GObject o => MessageK o-instance (GObject o, IsDescendantOf Message o) => MessageK o--toMessage :: MessageK o => o -> IO Message-toMessage = unsafeCastTo Message---- method Message::new--- method type : Constructor--- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_message_new" soup_message_new :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr Message)---messageNew ::-    (MonadIO m) =>-    T.Text ->                               -- method-    T.Text ->                               -- uri_string-    m Message-messageNew method uri_string = liftIO $ do-    method' <- textToCString method-    uri_string' <- textToCString uri_string-    result <- soup_message_new method' uri_string'-    checkUnexpectedReturnNULL "soup_message_new" result-    result' <- (wrapObject Message) result-    freeMem method'-    freeMem uri_string'-    return result'---- method Message::new_from_uri--- method type : Constructor--- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: -    CString ->                              -- method : TBasicType TUTF8-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO (Ptr Message)---messageNewFromUri ::-    (MonadIO m) =>-    T.Text ->                               -- method-    URI ->                                  -- uri-    m Message-messageNewFromUri method uri = liftIO $ do-    method' <- textToCString method-    let uri' = unsafeManagedPtrGetPtr uri-    result <- soup_message_new_from_uri method' uri'-    checkUnexpectedReturnNULL "soup_message_new_from_uri" result-    result' <- (wrapObject Message) result-    touchManagedPtr uri-    freeMem method'-    return result'---- method Message::content_sniffed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_content_sniffed" soup_message_content_sniffed :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---messageContentSniffed ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- content_type-    Map.Map (Ptr ()) (Ptr ()) ->            -- params-    m ()-messageContentSniffed _obj content_type params = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    content_type' <- textToCString content_type-    let params' = Map.toList params-    let params'' = mapFirst ptrPackPtr params'-    let params''' = mapSecond ptrPackPtr params''-    params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params'''-    soup_message_content_sniffed _obj' content_type' params''''-    touchManagedPtr _obj-    freeMem content_type'-    unrefGHashTable params''''-    return ()---- method Message::disable_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_disable_feature" soup_message_disable_feature :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---messageDisableFeature ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m ()-messageDisableFeature _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    soup_message_disable_feature _obj' feature_type'-    touchManagedPtr _obj-    return ()---- method Message::finished--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_finished" soup_message_finished :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageFinished ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageFinished _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_finished _obj'-    touchManagedPtr _obj-    return ()---- method Message::get_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_address" soup_message_get_address :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr Address)---messageGetAddress ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m Address-messageGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_address _obj'-    checkUnexpectedReturnNULL "soup_message_get_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'---- method Message::get_first_party--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr URI)---messageGetFirstParty ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m URI-messageGetFirstParty _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_first_party _obj'-    checkUnexpectedReturnNULL "soup_message_get_first_party" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'---- method Message::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MessageFlags"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_flags" soup_message_get_flags :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetFlags ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m [MessageFlags]-messageGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Message::get_http_version--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "HTTPVersion"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetHttpVersion ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m HTTPVersion-messageGetHttpVersion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_http_version _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Message::get_https_status--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_https_status" soup_message_get_https_status :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr (Ptr Gio.TlsCertificate) ->         -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr CUInt ->                            -- errors : TInterface "Gio" "TlsCertificateFlags"-    IO CInt---messageGetHttpsStatus ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])-messageGetHttpsStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate))-    errors <- allocMem :: IO (Ptr CUInt)-    result <- soup_message_get_https_status _obj' certificate errors-    let result' = (/= 0) result-    certificate' <- peek certificate-    certificate'' <- (newObject Gio.TlsCertificate) certificate'-    errors' <- peek errors-    let errors'' = wordToGFlags errors'-    touchManagedPtr _obj-    freeMem certificate-    freeMem errors-    return (result', certificate'', errors'')---- method Message::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MessagePriority"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_priority" soup_message_get_priority :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetPriority ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m MessagePriority-messageGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_priority _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Message::get_soup_request--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Request"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr Request)---messageGetSoupRequest ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m Request-messageGetSoupRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_soup_request _obj'-    checkUnexpectedReturnNULL "soup_message_get_soup_request" result-    result' <- (newObject Request) result-    touchManagedPtr _obj-    return result'---- method Message::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_uri" soup_message_get_uri :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr URI)---messageGetUri ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m URI-messageGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_uri _obj'-    checkUnexpectedReturnNULL "soup_message_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'---- method Message::got_body--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_body" soup_message_got_body :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotBody ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageGotBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_body _obj'-    touchManagedPtr _obj-    return ()---- method Message::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_chunk" soup_message_got_chunk :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageGotChunk ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Buffer ->                               -- chunk-    m ()-messageGotChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_got_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()---- method Message::got_headers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_headers" soup_message_got_headers :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotHeaders ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageGotHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_headers _obj'-    touchManagedPtr _obj-    return ()---- method Message::got_informational--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_informational" soup_message_got_informational :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotInformational ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageGotInformational _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_informational _obj'-    touchManagedPtr _obj-    return ()---- method Message::is_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_is_keepalive" soup_message_is_keepalive :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CInt---messageIsKeepalive ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m Bool-messageIsKeepalive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_is_keepalive _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Message::restarted--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_restarted" soup_message_restarted :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageRestarted ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageRestarted _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_restarted _obj'-    touchManagedPtr _obj-    return ()---- method Message::set_chunk_allocator--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    FunPtr ChunkAllocatorC ->               -- allocator : TInterface "Soup" "ChunkAllocator"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy_notify : TInterface "GLib" "DestroyNotify"-    IO ()--{-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-}-messageSetChunkAllocator ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    ChunkAllocator ->                       -- allocator-    m ()-messageSetChunkAllocator _obj allocator = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator)-    let user_data = castFunPtrToPtr allocator'-    let destroy_notify = safeFreeFunPtrPtr-    soup_message_set_chunk_allocator _obj' allocator' user_data destroy_notify-    touchManagedPtr _obj-    return ()---- method Message::set_first_party--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_first_party" soup_message_set_first_party :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    IO ()---messageSetFirstParty ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    URI ->                                  -- first_party-    m ()-messageSetFirstParty _obj first_party = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let first_party' = unsafeManagedPtrGetPtr first_party-    soup_message_set_first_party _obj' first_party'-    touchManagedPtr _obj-    touchManagedPtr first_party-    return ()---- method Message::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_flags" soup_message_set_flags :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- flags : TInterface "Soup" "MessageFlags"-    IO ()---messageSetFlags ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    [MessageFlags] ->                       -- flags-    m ()-messageSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    soup_message_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()---- method Message::set_http_version--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_http_version" soup_message_set_http_version :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- version : TInterface "Soup" "HTTPVersion"-    IO ()---messageSetHttpVersion ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    HTTPVersion ->                          -- version-    m ()-messageSetHttpVersion _obj version = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let version' = (fromIntegral . fromEnum) version-    soup_message_set_http_version _obj' version'-    touchManagedPtr _obj-    return ()---- method Message::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_priority" soup_message_set_priority :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- priority : TInterface "Soup" "MessagePriority"-    IO ()---messageSetPriority ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    MessagePriority ->                      -- priority-    m ()-messageSetPriority _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let priority' = (fromIntegral . fromEnum) priority-    soup_message_set_priority _obj' priority'-    touchManagedPtr _obj-    return ()---- method Message::set_redirect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_redirect" soup_message_set_redirect :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32-    CString ->                              -- redirect_uri : TBasicType TUTF8-    IO ()---messageSetRedirect ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- status_code-    T.Text ->                               -- redirect_uri-    m ()-messageSetRedirect _obj status_code redirect_uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    redirect_uri' <- textToCString redirect_uri-    soup_message_set_redirect _obj' status_code redirect_uri'-    touchManagedPtr _obj-    freeMem redirect_uri'-    return ()---- method Message::set_request--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_request" soup_message_set_request :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- req_use : TInterface "Soup" "MemoryUse"-    Ptr Word8 ->                            -- req_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- req_length : TBasicType TUInt64-    IO ()---messageSetRequest ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- content_type-    MemoryUse ->                            -- req_use-    Maybe (ByteString) ->                   -- req_body-    m ()-messageSetRequest _obj content_type req_use req_body = liftIO $ do-    let req_length = case req_body of-            Nothing -> 0-            Just jReq_body -> fromIntegral $ B.length jReq_body-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeContent_type <- case content_type of-        Nothing -> return nullPtr-        Just jContent_type -> do-            jContent_type' <- textToCString jContent_type-            return jContent_type'-    let req_use' = (fromIntegral . fromEnum) req_use-    maybeReq_body <- case req_body of-        Nothing -> return nullPtr-        Just jReq_body -> do-            jReq_body' <- packByteString jReq_body-            return jReq_body'-    soup_message_set_request _obj' maybeContent_type req_use' maybeReq_body req_length-    touchManagedPtr _obj-    freeMem maybeContent_type-    freeMem maybeReq_body-    return ()---- method Message::set_response--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_response" soup_message_set_response :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- resp_use : TInterface "Soup" "MemoryUse"-    Ptr Word8 ->                            -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- resp_length : TBasicType TUInt64-    IO ()---messageSetResponse ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- content_type-    MemoryUse ->                            -- resp_use-    Maybe (ByteString) ->                   -- resp_body-    m ()-messageSetResponse _obj content_type resp_use resp_body = liftIO $ do-    let resp_length = case resp_body of-            Nothing -> 0-            Just jResp_body -> fromIntegral $ B.length jResp_body-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeContent_type <- case content_type of-        Nothing -> return nullPtr-        Just jContent_type -> do-            jContent_type' <- textToCString jContent_type-            return jContent_type'-    let resp_use' = (fromIntegral . fromEnum) resp_use-    maybeResp_body <- case resp_body of-        Nothing -> return nullPtr-        Just jResp_body -> do-            jResp_body' <- packByteString jResp_body-            return jResp_body'-    soup_message_set_response _obj' maybeContent_type resp_use' maybeResp_body resp_length-    touchManagedPtr _obj-    freeMem maybeContent_type-    freeMem maybeResp_body-    return ()---- method Message::set_status--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_status" soup_message_set_status :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32-    IO ()---messageSetStatus ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- status_code-    m ()-messageSetStatus _obj status_code = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_set_status _obj' status_code-    touchManagedPtr _obj-    return ()---- method Message::set_status_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_status_full" soup_message_set_status_full :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32-    CString ->                              -- reason_phrase : TBasicType TUTF8-    IO ()---messageSetStatusFull ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- status_code-    T.Text ->                               -- reason_phrase-    m ()-messageSetStatusFull _obj status_code reason_phrase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    reason_phrase' <- textToCString reason_phrase-    soup_message_set_status_full _obj' status_code reason_phrase'-    touchManagedPtr _obj-    freeMem reason_phrase'-    return ()---- method Message::set_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_uri" soup_message_set_uri :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO ()---messageSetUri ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    m ()-messageSetUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    soup_message_set_uri _obj' uri'-    touchManagedPtr _obj-    touchManagedPtr uri-    return ()---- method Message::starting--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_starting" soup_message_starting :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageStarting ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageStarting _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_starting _obj'-    touchManagedPtr _obj-    return ()---- method Message::wrote_body--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_body" soup_message_wrote_body :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteBody ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageWroteBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_body _obj'-    touchManagedPtr _obj-    return ()---- method Message::wrote_body_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_body_data" soup_message_wrote_body_data :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageWroteBodyData ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    Buffer ->                               -- chunk-    m ()-messageWroteBodyData _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_wrote_body_data _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()---- method Message::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_chunk" soup_message_wrote_chunk :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteChunk ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageWroteChunk _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_chunk _obj'-    touchManagedPtr _obj-    return ()---- method Message::wrote_headers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_headers" soup_message_wrote_headers :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteHeaders ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageWroteHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_headers _obj'-    touchManagedPtr _obj-    return ()---- method Message::wrote_informational--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_informational" soup_message_wrote_informational :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteInformational ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- _obj-    m ()-messageWroteInformational _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_informational _obj'-    touchManagedPtr _obj-    return ()---- signal Message::content-sniffed-type MessageContentSniffedCallback =-    T.Text ->-    Map.Map T.Text T.Text ->-    IO ()--noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback-noMessageContentSniffedCallback = Nothing--type MessageContentSniffedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC)--messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure-messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped-    where wrapped = messageContentSniffedCallbackWrapper cb--messageContentSniffedCallbackWrapper ::-    MessageContentSniffedCallback ->-    Ptr () ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr () ->-    IO ()-messageContentSniffedCallbackWrapper _cb _ type_ params _ = do-    type_' <- cstringToText type_-    params' <- unpackGHashTable params-    let params'' = mapFirst cstringUnpackPtr params'-    params''' <- mapFirstA cstringToText params''-    let params'''' = mapSecond cstringUnpackPtr params'''-    params''''' <- mapSecondA cstringToText params''''-    let params'''''' = Map.fromList params'''''-    _cb  type_' params''''''--onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore-afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter--connectMessageContentSniffed :: (GObject a, MonadIO m) =>-                                a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageContentSniffed obj cb after = liftIO $ do-    cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb)-    connectSignalFunPtr obj "content-sniffed" cb' after---- signal Message::finished-type MessageFinishedCallback =-    IO ()--noMessageFinishedCallback :: Maybe MessageFinishedCallback-noMessageFinishedCallback = Nothing--type MessageFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC)--messageFinishedClosure :: MessageFinishedCallback -> IO Closure-messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped-    where wrapped = messageFinishedCallbackWrapper cb--messageFinishedCallbackWrapper ::-    MessageFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageFinishedCallbackWrapper _cb _ _ = do-    _cb --onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore-afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter--connectMessageFinished :: (GObject a, MonadIO m) =>-                          a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageFinished obj cb after = liftIO $ do-    cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal Message::got-body-type MessageGotBodyCallback =-    IO ()--noMessageGotBodyCallback :: Maybe MessageGotBodyCallback-noMessageGotBodyCallback = Nothing--type MessageGotBodyCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC)--messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure-messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped-    where wrapped = messageGotBodyCallbackWrapper cb--messageGotBodyCallbackWrapper ::-    MessageGotBodyCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotBodyCallbackWrapper _cb _ _ = do-    _cb --onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore-afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter--connectMessageGotBody :: (GObject a, MonadIO m) =>-                         a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotBody obj cb after = liftIO $ do-    cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb)-    connectSignalFunPtr obj "got-body" cb' after---- signal Message::got-chunk-type MessageGotChunkCallback =-    Buffer ->-    IO ()--noMessageGotChunkCallback :: Maybe MessageGotChunkCallback-noMessageGotChunkCallback = Nothing--type MessageGotChunkCallbackC =-    Ptr () ->                               -- object-    Ptr Buffer ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC)--messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure-messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped-    where wrapped = messageGotChunkCallbackWrapper cb--messageGotChunkCallbackWrapper ::-    MessageGotChunkCallback ->-    Ptr () ->-    Ptr Buffer ->-    Ptr () ->-    IO ()-messageGotChunkCallbackWrapper _cb _ chunk _ = do-    chunk' <- (newBoxed Buffer) chunk-    _cb  chunk'--onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore-afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter--connectMessageGotChunk :: (GObject a, MonadIO m) =>-                          a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotChunk obj cb after = liftIO $ do-    cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb)-    connectSignalFunPtr obj "got-chunk" cb' after---- signal Message::got-headers-type MessageGotHeadersCallback =-    IO ()--noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback-noMessageGotHeadersCallback = Nothing--type MessageGotHeadersCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC)--messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure-messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped-    where wrapped = messageGotHeadersCallbackWrapper cb--messageGotHeadersCallbackWrapper ::-    MessageGotHeadersCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotHeadersCallbackWrapper _cb _ _ = do-    _cb --onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore-afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter--connectMessageGotHeaders :: (GObject a, MonadIO m) =>-                            a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotHeaders obj cb after = liftIO $ do-    cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb)-    connectSignalFunPtr obj "got-headers" cb' after---- signal Message::got-informational-type MessageGotInformationalCallback =-    IO ()--noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback-noMessageGotInformationalCallback = Nothing--type MessageGotInformationalCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC)--messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure-messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped-    where wrapped = messageGotInformationalCallbackWrapper cb--messageGotInformationalCallbackWrapper ::-    MessageGotInformationalCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotInformationalCallbackWrapper _cb _ _ = do-    _cb --onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore-afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter--connectMessageGotInformational :: (GObject a, MonadIO m) =>-                                  a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotInformational obj cb after = liftIO $ do-    cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb)-    connectSignalFunPtr obj "got-informational" cb' after---- signal Message::network-event-type MessageNetworkEventCallback =-    Gio.SocketClientEvent ->-    Gio.IOStream ->-    IO ()--noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback-noMessageNetworkEventCallback = Nothing--type MessageNetworkEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC)--messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure-messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped-    where wrapped = messageNetworkEventCallbackWrapper cb--messageNetworkEventCallbackWrapper ::-    MessageNetworkEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->-    IO ()-messageNetworkEventCallbackWrapper _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream) connection-    _cb  event' connection'--onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore-afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter--connectMessageNetworkEvent :: (GObject a, MonadIO m) =>-                              a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageNetworkEvent obj cb after = liftIO $ do-    cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb)-    connectSignalFunPtr obj "network-event" cb' after---- signal Message::restarted-type MessageRestartedCallback =-    IO ()--noMessageRestartedCallback :: Maybe MessageRestartedCallback-noMessageRestartedCallback = Nothing--type MessageRestartedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC)--messageRestartedClosure :: MessageRestartedCallback -> IO Closure-messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped-    where wrapped = messageRestartedCallbackWrapper cb--messageRestartedCallbackWrapper ::-    MessageRestartedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageRestartedCallbackWrapper _cb _ _ = do-    _cb --onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore-afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter--connectMessageRestarted :: (GObject a, MonadIO m) =>-                           a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageRestarted obj cb after = liftIO $ do-    cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb)-    connectSignalFunPtr obj "restarted" cb' after---- signal Message::starting-type MessageStartingCallback =-    IO ()--noMessageStartingCallback :: Maybe MessageStartingCallback-noMessageStartingCallback = Nothing--type MessageStartingCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC)--messageStartingClosure :: MessageStartingCallback -> IO Closure-messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped-    where wrapped = messageStartingCallbackWrapper cb--messageStartingCallbackWrapper ::-    MessageStartingCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageStartingCallbackWrapper _cb _ _ = do-    _cb --onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore-afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter--connectMessageStarting :: (GObject a, MonadIO m) =>-                          a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageStarting obj cb after = liftIO $ do-    cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb)-    connectSignalFunPtr obj "starting" cb' after---- signal Message::wrote-body-type MessageWroteBodyCallback =-    IO ()--noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback-noMessageWroteBodyCallback = Nothing--type MessageWroteBodyCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC)--messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure-messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped-    where wrapped = messageWroteBodyCallbackWrapper cb--messageWroteBodyCallbackWrapper ::-    MessageWroteBodyCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteBodyCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore-afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter--connectMessageWroteBody :: (GObject a, MonadIO m) =>-                           a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteBody obj cb after = liftIO $ do-    cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-body" cb' after---- signal Message::wrote-body-data-type MessageWroteBodyDataCallback =-    Buffer ->-    IO ()--noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback-noMessageWroteBodyDataCallback = Nothing--type MessageWroteBodyDataCallbackC =-    Ptr () ->                               -- object-    Ptr Buffer ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC)--messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure-messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped-    where wrapped = messageWroteBodyDataCallbackWrapper cb--messageWroteBodyDataCallbackWrapper ::-    MessageWroteBodyDataCallback ->-    Ptr () ->-    Ptr Buffer ->-    Ptr () ->-    IO ()-messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do-    chunk' <- (newBoxed Buffer) chunk-    _cb  chunk'--onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore-afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter--connectMessageWroteBodyData :: (GObject a, MonadIO m) =>-                               a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteBodyData obj cb after = liftIO $ do-    cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-body-data" cb' after---- signal Message::wrote-chunk-type MessageWroteChunkCallback =-    IO ()--noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback-noMessageWroteChunkCallback = Nothing--type MessageWroteChunkCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC)--messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure-messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped-    where wrapped = messageWroteChunkCallbackWrapper cb--messageWroteChunkCallbackWrapper ::-    MessageWroteChunkCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteChunkCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore-afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter--connectMessageWroteChunk :: (GObject a, MonadIO m) =>-                            a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteChunk obj cb after = liftIO $ do-    cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-chunk" cb' after---- signal Message::wrote-headers-type MessageWroteHeadersCallback =-    IO ()--noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback-noMessageWroteHeadersCallback = Nothing--type MessageWroteHeadersCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC)--messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure-messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped-    where wrapped = messageWroteHeadersCallbackWrapper cb--messageWroteHeadersCallbackWrapper ::-    MessageWroteHeadersCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteHeadersCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore-afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter--connectMessageWroteHeaders :: (GObject a, MonadIO m) =>-                              a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteHeaders obj cb after = liftIO $ do-    cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-headers" cb' after---- signal Message::wrote-informational-type MessageWroteInformationalCallback =-    IO ()--noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback-noMessageWroteInformationalCallback = Nothing--type MessageWroteInformationalCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC)--messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure-messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped-    where wrapped = messageWroteInformationalCallbackWrapper cb--messageWroteInformationalCallbackWrapper ::-    MessageWroteInformationalCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteInformationalCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore-afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter--connectMessageWroteInformational :: (GObject a, MonadIO m) =>-                                    a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteInformational obj cb after = liftIO $ do-    cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-informational" cb' after---- struct MessageBody-newtype MessageBody = MessageBody (ForeignPtr MessageBody)-noMessageBody :: Maybe MessageBody-noMessageBody = Nothing--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--messageBodyReadData :: MessageBody -> IO T.Text-messageBodyReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--messageBodyReadLength :: MessageBody -> IO Int64-messageBodyReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val---- method MessageBody::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "MessageBody"--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_new" soup_message_body_new :: -    IO (Ptr MessageBody)---messageBodyNew ::-    (MonadIO m) =>-    m MessageBody-messageBodyNew  = liftIO $ do-    result <- soup_message_body_new-    checkUnexpectedReturnNULL "soup_message_body_new" result-    result' <- (wrapBoxed MessageBody) result-    return result'---- method MessageBody::append_buffer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_append_buffer" soup_message_body_append_buffer :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"-    IO ()---messageBodyAppendBuffer ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    Buffer ->                               -- buffer-    m ()-messageBodyAppendBuffer _obj buffer = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let buffer' = unsafeManagedPtrGetPtr buffer-    soup_message_body_append_buffer _obj' buffer'-    touchManagedPtr _obj-    touchManagedPtr buffer-    return ()---- method MessageBody::append--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_append_take" soup_message_body_append_take :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---messageBodyAppend ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    ByteString ->                           -- data-    m ()-messageBodyAppend _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- packByteString data_-    soup_message_body_append_take _obj' data_' length_-    touchManagedPtr _obj-    return ()---- method MessageBody::complete--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_complete" soup_message_body_complete :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyComplete ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    m ()-messageBodyComplete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_complete _obj'-    touchManagedPtr _obj-    return ()---- method MessageBody::flatten--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO (Ptr Buffer)---messageBodyFlatten ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    m Buffer-messageBodyFlatten _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_flatten _obj'-    checkUnexpectedReturnNULL "soup_message_body_flatten" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'---- method MessageBody::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_free" soup_message_body_free :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyFree ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    m ()-messageBodyFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_free _obj'-    touchManagedPtr _obj-    return ()---- method MessageBody::get_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_get_accumulate" soup_message_body_get_accumulate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO CInt---messageBodyGetAccumulate ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    m Bool-messageBodyGetAccumulate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_get_accumulate _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MessageBody::get_chunk--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Buffer"--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Int64 ->                                -- offset : TBasicType TInt64-    IO (Ptr Buffer)---messageBodyGetChunk ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    Int64 ->                                -- offset-    m Buffer-messageBodyGetChunk _obj offset = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_get_chunk _obj' offset-    checkUnexpectedReturnNULL "soup_message_body_get_chunk" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'---- method MessageBody::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_got_chunk" soup_message_body_got_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageBodyGotChunk ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    Buffer ->                               -- chunk-    m ()-messageBodyGotChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_body_got_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()---- method MessageBody::set_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_set_accumulate" soup_message_body_set_accumulate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    CInt ->                                 -- accumulate : TBasicType TBoolean-    IO ()---messageBodySetAccumulate ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    Bool ->                                 -- accumulate-    m ()-messageBodySetAccumulate _obj accumulate = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let accumulate' = (fromIntegral . fromEnum) accumulate-    soup_message_body_set_accumulate _obj' accumulate'-    touchManagedPtr _obj-    return ()---- method MessageBody::truncate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_truncate" soup_message_body_truncate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyTruncate ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    m ()-messageBodyTruncate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_truncate _obj'-    touchManagedPtr _obj-    return ()---- method MessageBody::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_wrote_chunk" soup_message_body_wrote_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageBodyWroteChunk ::-    (MonadIO m) =>-    MessageBody ->                          -- _obj-    Buffer ->                               -- chunk-    m ()-messageBodyWroteChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_body_wrote_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()---- Flags MessageFlags--data MessageFlags = -      MessageFlagsNoRedirect-    | MessageFlagsCanRebuild-    | MessageFlagsOverwriteChunks-    | MessageFlagsContentDecoded-    | MessageFlagsCertificateTrusted-    | MessageFlagsNewConnection-    | MessageFlagsIdempotent-    | MessageFlagsIgnoreConnectionLimits-    | AnotherMessageFlags Int-    deriving (Show, Eq)--instance Enum MessageFlags where-    fromEnum MessageFlagsNoRedirect = 2-    fromEnum MessageFlagsCanRebuild = 4-    fromEnum MessageFlagsOverwriteChunks = 8-    fromEnum MessageFlagsContentDecoded = 16-    fromEnum MessageFlagsCertificateTrusted = 32-    fromEnum MessageFlagsNewConnection = 64-    fromEnum MessageFlagsIdempotent = 128-    fromEnum MessageFlagsIgnoreConnectionLimits = 256-    fromEnum (AnotherMessageFlags k) = k--    toEnum 2 = MessageFlagsNoRedirect-    toEnum 4 = MessageFlagsCanRebuild-    toEnum 8 = MessageFlagsOverwriteChunks-    toEnum 16 = MessageFlagsContentDecoded-    toEnum 32 = MessageFlagsCertificateTrusted-    toEnum 64 = MessageFlagsNewConnection-    toEnum 128 = MessageFlagsIdempotent-    toEnum 256 = MessageFlagsIgnoreConnectionLimits-    toEnum k = AnotherMessageFlags k--foreign import ccall "soup_message_flags_get_type" c_soup_message_flags_get_type :: -    IO GType--instance BoxedEnum MessageFlags where-    boxedEnumType _ = c_soup_message_flags_get_type--instance IsGFlag MessageFlags---- struct MessageHeaders-newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)-noMessageHeaders :: Maybe MessageHeaders-noMessageHeaders = Nothing--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---- method MessageHeaders::new--- method type : Constructor--- Args : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MessageHeaders"--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_new" soup_message_headers_new :: -    CUInt ->                                -- type : TInterface "Soup" "MessageHeadersType"-    IO (Ptr MessageHeaders)---messageHeadersNew ::-    (MonadIO m) =>-    MessageHeadersType ->                   -- type-    m MessageHeaders-messageHeadersNew type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- soup_message_headers_new type_'-    checkUnexpectedReturnNULL "soup_message_headers_new" result-    result' <- (wrapBoxed MessageHeaders) result-    return result'---- method MessageHeaders::append--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_append" soup_message_headers_append :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---messageHeadersAppend ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    T.Text ->                               -- value-    m ()-messageHeadersAppend _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_append _obj' name' value'-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return ()---- method MessageHeaders::clean_connection_headers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_clean_connection_headers" soup_message_headers_clean_connection_headers :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersCleanConnectionHeaders ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m ()-messageHeadersCleanConnectionHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_clean_connection_headers _obj'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_clear" soup_message_headers_clear :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersClear ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m ()-messageHeadersClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_clear _obj'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::foreach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_foreach" soup_message_headers_foreach :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    FunPtr MessageHeadersForeachFuncC ->    -- func : TInterface "Soup" "MessageHeadersForeachFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---messageHeadersForeach ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    MessageHeadersForeachFunc ->            -- func-    m ()-messageHeadersForeach _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- mkMessageHeadersForeachFunc (messageHeadersForeachFuncWrapper Nothing func)-    let user_data = nullPtr-    soup_message_headers_foreach _obj' func' user_data-    safeFreeFunPtr $ castFunPtrToPtr func'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_free" soup_message_headers_free :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersFree ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m ()-messageHeadersFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_free _obj'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::free_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_free_ranges" soup_message_headers_free_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"-    IO ()---messageHeadersFreeRanges ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Range ->                                -- ranges-    m ()-messageHeadersFreeRanges _obj ranges = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let ranges' = unsafeManagedPtrGetPtr ranges-    soup_message_headers_free_ranges _obj' ranges'-    touchManagedPtr _obj-    touchManagedPtr ranges-    return ()---- method MessageHeaders::get--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get" soup_message_headers_get :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{-# DEPRECATED messageHeadersGet ["Use soup_message_headers_get_one() or","soup_message_headers_get_list() instead."]#-}-messageHeadersGet ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    m T.Text-messageHeadersGet _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get _obj' name'-    checkUnexpectedReturnNULL "soup_message_headers_get" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem name'-    return result'---- method MessageHeaders::get_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_disposition" soup_message_headers_get_content_disposition :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr CString ->                          -- disposition : TBasicType TUTF8-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CInt---messageHeadersGetContentDisposition ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m (Bool,T.Text,(Map.Map T.Text T.Text))-messageHeadersGetContentDisposition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    disposition <- allocMem :: IO (Ptr CString)-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_disposition _obj' disposition params-    let result' = (/= 0) result-    disposition' <- peek disposition-    disposition'' <- cstringToText disposition'-    freeMem disposition'-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    freeMem disposition-    freeMem params-    return (result', disposition'', params''''''')---- method MessageHeaders::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_length" soup_message_headers_get_content_length :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO Int64---messageHeadersGetContentLength ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m Int64-messageHeadersGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_content_length _obj'-    touchManagedPtr _obj-    return result---- method MessageHeaders::get_content_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_range" soup_message_headers_get_content_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    Int64 ->                                -- total_length : TBasicType TInt64-    IO CInt---messageHeadersGetContentRange ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Int64 ->                                -- start-    Int64 ->                                -- end-    Int64 ->                                -- total_length-    m Bool-messageHeadersGetContentRange _obj start end total_length = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_content_range _obj' start end total_length-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MessageHeaders::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_type" soup_message_headers_get_content_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---messageHeadersGetContentType ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m (T.Text,(Map.Map T.Text T.Text))-messageHeadersGetContentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_type _obj' params-    checkUnexpectedReturnNULL "soup_message_headers_get_content_type" result-    result' <- cstringToText result-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    freeMem params-    return (result', params''''''')---- method MessageHeaders::get_encoding--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Encoding"--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_encoding" soup_message_headers_get_encoding :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetEncoding ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m Encoding-messageHeadersGetEncoding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_encoding _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method MessageHeaders::get_expectations--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Expectation"--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_expectations" soup_message_headers_get_expectations :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetExpectations ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m [Expectation]-messageHeadersGetExpectations _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_expectations _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method MessageHeaders::get_headers_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MessageHeadersType"--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_headers_type" soup_message_headers_get_headers_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetHeadersType ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    m MessageHeadersType-messageHeadersGetHeadersType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_headers_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method MessageHeaders::get_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_list" soup_message_headers_get_list :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---messageHeadersGetList ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    m T.Text-messageHeadersGetList _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get_list _obj' name'-    checkUnexpectedReturnNULL "soup_message_headers_get_list" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem name'-    return result'---- method MessageHeaders::get_one--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_one" soup_message_headers_get_one :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---messageHeadersGetOne ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    m T.Text-messageHeadersGetOne _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get_one _obj' name'-    checkUnexpectedReturnNULL "soup_message_headers_get_one" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem name'-    return result'---- method MessageHeaders::get_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TCArray False (-1) 3 (TInterface "Soup" "Range"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_ranges" soup_message_headers_get_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- total_length : TBasicType TInt64-    Ptr (Ptr Range) ->                      -- ranges : TCArray False (-1) 3 (TInterface "Soup" "Range")-    Ptr Int32 ->                            -- length : TBasicType TInt32-    IO CInt---messageHeadersGetRanges ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Int64 ->                                -- total_length-    m (Bool,[Range])-messageHeadersGetRanges _obj total_length = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ranges <- allocMem :: IO (Ptr (Ptr Range))-    length_ <- allocMem :: IO (Ptr Int32)-    result <- soup_message_headers_get_ranges _obj' total_length ranges length_-    length_' <- peek length_-    let result' = (/= 0) result-    ranges' <- peek ranges-    ranges'' <- (unpackBlockArrayWithLength 16 length_') ranges'-    ranges''' <- mapM (wrapPtr Range) ranges''-    freeMem ranges'-    touchManagedPtr _obj-    freeMem ranges-    freeMem length_-    return (result', ranges''')---- method MessageHeaders::header_contains--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_header_contains" soup_message_headers_header_contains :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- token : TBasicType TUTF8-    IO CInt---messageHeadersHeaderContains ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    T.Text ->                               -- token-    m Bool-messageHeadersHeaderContains _obj name token = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    token' <- textToCString token-    result <- soup_message_headers_header_contains _obj' name' token'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    freeMem token'-    return result'---- method MessageHeaders::header_equals--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_header_equals" soup_message_headers_header_equals :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO CInt---messageHeadersHeaderEquals ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    T.Text ->                               -- value-    m Bool-messageHeadersHeaderEquals _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    result <- soup_message_headers_header_equals _obj' name' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return result'---- method MessageHeaders::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_remove" soup_message_headers_remove :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---messageHeadersRemove ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    m ()-messageHeadersRemove _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    soup_message_headers_remove _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()---- method MessageHeaders::replace--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_replace" soup_message_headers_replace :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---messageHeadersReplace ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- name-    T.Text ->                               -- value-    m ()-messageHeadersReplace _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_replace _obj' name' value'-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return ()---- method MessageHeaders::set_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_disposition" soup_message_headers_set_content_disposition :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- disposition : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---messageHeadersSetContentDisposition ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- disposition-    Maybe (Map.Map T.Text T.Text) ->        -- params-    m ()-messageHeadersSetContentDisposition _obj disposition params = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    disposition' <- textToCString disposition-    maybeParams <- case params of-        Nothing -> return nullPtr-        Just jParams -> do-            let jParams' = Map.toList jParams-            jParams'' <- mapFirstA textToCString jParams'-            jParams''' <- mapSecondA textToCString jParams''-            let jParams'''' = mapFirst cstringPackPtr jParams'''-            let jParams''''' = mapSecond cstringPackPtr jParams''''-            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''-            return jParams''''''-    soup_message_headers_set_content_disposition _obj' disposition' maybeParams-    touchManagedPtr _obj-    freeMem disposition'-    unrefGHashTable maybeParams-    return ()---- method MessageHeaders::set_content_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_length" soup_message_headers_set_content_length :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- content_length : TBasicType TInt64-    IO ()---messageHeadersSetContentLength ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Int64 ->                                -- content_length-    m ()-messageHeadersSetContentLength _obj content_length = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_content_length _obj' content_length-    touchManagedPtr _obj-    return ()---- method MessageHeaders::set_content_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_range" soup_message_headers_set_content_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    Int64 ->                                -- total_length : TBasicType TInt64-    IO ()---messageHeadersSetContentRange ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Int64 ->                                -- start-    Int64 ->                                -- end-    Int64 ->                                -- total_length-    m ()-messageHeadersSetContentRange _obj start end total_length = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_content_range _obj' start end total_length-    touchManagedPtr _obj-    return ()---- method MessageHeaders::set_content_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_type" soup_message_headers_set_content_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---messageHeadersSetContentType ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    T.Text ->                               -- content_type-    Maybe (Map.Map T.Text T.Text) ->        -- params-    m ()-messageHeadersSetContentType _obj content_type params = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    content_type' <- textToCString content_type-    maybeParams <- case params of-        Nothing -> return nullPtr-        Just jParams -> do-            let jParams' = Map.toList jParams-            jParams'' <- mapFirstA textToCString jParams'-            jParams''' <- mapSecondA textToCString jParams''-            let jParams'''' = mapFirst cstringPackPtr jParams'''-            let jParams''''' = mapSecond cstringPackPtr jParams''''-            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''-            return jParams''''''-    soup_message_headers_set_content_type _obj' content_type' maybeParams-    touchManagedPtr _obj-    freeMem content_type'-    unrefGHashTable maybeParams-    return ()---- method MessageHeaders::set_encoding--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_encoding" soup_message_headers_set_encoding :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CUInt ->                                -- encoding : TInterface "Soup" "Encoding"-    IO ()---messageHeadersSetEncoding ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Encoding ->                             -- encoding-    m ()-messageHeadersSetEncoding _obj encoding = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let encoding' = (fromIntegral . fromEnum) encoding-    soup_message_headers_set_encoding _obj' encoding'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::set_expectations--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_expectations" soup_message_headers_set_expectations :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CUInt ->                                -- expectations : TInterface "Soup" "Expectation"-    IO ()---messageHeadersSetExpectations ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    [Expectation] ->                        -- expectations-    m ()-messageHeadersSetExpectations _obj expectations = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let expectations' = gflagsToWord expectations-    soup_message_headers_set_expectations _obj' expectations'-    touchManagedPtr _obj-    return ()---- method MessageHeaders::set_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_range" soup_message_headers_set_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    IO ()---messageHeadersSetRange ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Int64 ->                                -- start-    Int64 ->                                -- end-    m ()-messageHeadersSetRange _obj start end = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_range _obj' start end-    touchManagedPtr _obj-    return ()---- method MessageHeaders::set_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_ranges" soup_message_headers_set_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"-    Int32 ->                                -- length : TBasicType TInt32-    IO ()---messageHeadersSetRanges ::-    (MonadIO m) =>-    MessageHeaders ->                       -- _obj-    Range ->                                -- ranges-    Int32 ->                                -- length-    m ()-messageHeadersSetRanges _obj ranges length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let ranges' = unsafeManagedPtrGetPtr ranges-    soup_message_headers_set_ranges _obj' ranges' length_-    touchManagedPtr _obj-    touchManagedPtr ranges-    return ()---- callback MessageHeadersForeachFunc-messageHeadersForeachFuncClosure :: MessageHeadersForeachFunc -> IO Closure-messageHeadersForeachFuncClosure cb = newCClosure =<< mkMessageHeadersForeachFunc wrapped-    where wrapped = messageHeadersForeachFuncWrapper Nothing cb--type MessageHeadersForeachFuncC =-    CString ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMessageHeadersForeachFunc :: MessageHeadersForeachFuncC -> IO (FunPtr MessageHeadersForeachFuncC)--type MessageHeadersForeachFunc =-    T.Text ->-    T.Text ->-    IO ()--noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc-noMessageHeadersForeachFunc = Nothing--messageHeadersForeachFuncWrapper ::-    Maybe (Ptr (FunPtr (MessageHeadersForeachFuncC))) ->-    MessageHeadersForeachFunc ->-    CString ->-    CString ->-    Ptr () ->-    IO ()-messageHeadersForeachFuncWrapper funptrptr _cb name value _ = do-    name' <- cstringToText name-    value' <- cstringToText value-    _cb  name' value'-    maybeReleaseFunPtr funptrptr---- struct MessageHeadersIter-newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter)-noMessageHeadersIter :: Maybe MessageHeadersIter-noMessageHeadersIter = Nothing---- method MessageHeadersIter::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_iter_next" soup_message_headers_iter_next :: -    Ptr MessageHeadersIter ->               -- _obj : TInterface "Soup" "MessageHeadersIter"-    Ptr CString ->                          -- name : TBasicType TUTF8-    Ptr CString ->                          -- value : TBasicType TUTF8-    IO CInt---messageHeadersIterNext ::-    (MonadIO m) =>-    MessageHeadersIter ->                   -- _obj-    m (Bool,T.Text,T.Text)-messageHeadersIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr CString)-    result <- soup_message_headers_iter_next _obj' name value-    let result' = (/= 0) result-    name' <- peek name-    name'' <- cstringToText name'-    value' <- peek value-    value'' <- cstringToText value'-    touchManagedPtr _obj-    freeMem name-    freeMem value-    return (result', name'', value'')---- Enum MessageHeadersType--data MessageHeadersType = -      MessageHeadersTypeRequest-    | MessageHeadersTypeResponse-    | MessageHeadersTypeMultipart-    | AnotherMessageHeadersType Int-    deriving (Show, Eq)--instance Enum MessageHeadersType where-    fromEnum MessageHeadersTypeRequest = 0-    fromEnum MessageHeadersTypeResponse = 1-    fromEnum MessageHeadersTypeMultipart = 2-    fromEnum (AnotherMessageHeadersType k) = k--    toEnum 0 = MessageHeadersTypeRequest-    toEnum 1 = MessageHeadersTypeResponse-    toEnum 2 = MessageHeadersTypeMultipart-    toEnum k = AnotherMessageHeadersType k--foreign import ccall "soup_message_headers_type_get_type" c_soup_message_headers_type_get_type :: -    IO GType--instance BoxedEnum MessageHeadersType where-    boxedEnumType _ = c_soup_message_headers_type_get_type---- Enum MessagePriority--data MessagePriority = -      MessagePriorityVeryLow-    | MessagePriorityLow-    | MessagePriorityNormal-    | MessagePriorityHigh-    | MessagePriorityVeryHigh-    | AnotherMessagePriority Int-    deriving (Show, Eq)--instance Enum MessagePriority where-    fromEnum MessagePriorityVeryLow = 0-    fromEnum MessagePriorityLow = 1-    fromEnum MessagePriorityNormal = 2-    fromEnum MessagePriorityHigh = 3-    fromEnum MessagePriorityVeryHigh = 4-    fromEnum (AnotherMessagePriority k) = k--    toEnum 0 = MessagePriorityVeryLow-    toEnum 1 = MessagePriorityLow-    toEnum 2 = MessagePriorityNormal-    toEnum 3 = MessagePriorityHigh-    toEnum 4 = MessagePriorityVeryHigh-    toEnum k = AnotherMessagePriority k--foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type :: -    IO GType--instance BoxedEnum MessagePriority where-    boxedEnumType _ = c_soup_message_priority_get_type---- struct MessageQueue-newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue)-noMessageQueue :: Maybe MessageQueue-noMessageQueue = Nothing---- struct MessageQueueItem-newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem)-noMessageQueueItem :: Maybe MessageQueueItem-noMessageQueueItem = Nothing---- struct Multipart-newtype Multipart = Multipart (ForeignPtr Multipart)-noMultipart :: Maybe Multipart-noMultipart = Nothing--foreign import ccall "soup_multipart_get_type" c_soup_multipart_get_type :: -    IO GType--instance BoxedObject Multipart where-    boxedType _ = c_soup_multipart_get_type---- method Multipart::new--- method type : Constructor--- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Multipart"--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new" soup_multipart_new :: -    CString ->                              -- mime_type : TBasicType TUTF8-    IO (Ptr Multipart)---multipartNew ::-    (MonadIO m) =>-    T.Text ->                               -- mime_type-    m Multipart-multipartNew mime_type = liftIO $ do-    mime_type' <- textToCString mime_type-    result <- soup_multipart_new mime_type'-    checkUnexpectedReturnNULL "soup_multipart_new" result-    result' <- (wrapBoxed Multipart) result-    freeMem mime_type'-    return result'---- method Multipart::new_from_message--- method type : Constructor--- Args : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Multipart"--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: -    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr MessageBody ->                      -- body : TInterface "Soup" "MessageBody"-    IO (Ptr Multipart)---multipartNewFromMessage ::-    (MonadIO m) =>-    MessageHeaders ->                       -- headers-    MessageBody ->                          -- body-    m Multipart-multipartNewFromMessage headers body = liftIO $ do-    let headers' = unsafeManagedPtrGetPtr headers-    let body' = unsafeManagedPtrGetPtr body-    result <- soup_multipart_new_from_message headers' body'-    checkUnexpectedReturnNULL "soup_multipart_new_from_message" result-    result' <- (wrapBoxed Multipart) result-    touchManagedPtr headers-    touchManagedPtr body-    return result'---- method Multipart::append_form_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_form_file" soup_multipart_append_form_file :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO ()---multipartAppendFormFile ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    T.Text ->                               -- control_name-    T.Text ->                               -- filename-    T.Text ->                               -- content_type-    Buffer ->                               -- body-    m ()-multipartAppendFormFile _obj control_name filename content_type body = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    control_name' <- textToCString control_name-    filename' <- textToCString filename-    content_type' <- textToCString content_type-    let body' = unsafeManagedPtrGetPtr body-    soup_multipart_append_form_file _obj' control_name' filename' content_type' body'-    touchManagedPtr _obj-    touchManagedPtr body-    freeMem control_name'-    freeMem filename'-    freeMem content_type'-    return ()---- method Multipart::append_form_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_form_string" soup_multipart_append_form_string :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- data : TBasicType TUTF8-    IO ()---multipartAppendFormString ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    T.Text ->                               -- control_name-    T.Text ->                               -- data-    m ()-multipartAppendFormString _obj control_name data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    control_name' <- textToCString control_name-    data_' <- textToCString data_-    soup_multipart_append_form_string _obj' control_name' data_'-    touchManagedPtr _obj-    freeMem control_name'-    freeMem data_'-    return ()---- method Multipart::append_part--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_part" soup_multipart_append_part :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO ()---multipartAppendPart ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    MessageHeaders ->                       -- headers-    Buffer ->                               -- body-    m ()-multipartAppendPart _obj headers body = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let headers' = unsafeManagedPtrGetPtr headers-    let body' = unsafeManagedPtrGetPtr body-    soup_multipart_append_part _obj' headers' body'-    touchManagedPtr _obj-    touchManagedPtr headers-    touchManagedPtr body-    return ()---- method Multipart::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_free" soup_multipart_free :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    IO ()---multipartFree ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    m ()-multipartFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_multipart_free _obj'-    touchManagedPtr _obj-    return ()---- method Multipart::get_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_get_length" soup_multipart_get_length :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    IO Int32---multipartGetLength ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    m Int32-multipartGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_multipart_get_length _obj'-    touchManagedPtr _obj-    return result---- method Multipart::get_part--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_get_part" soup_multipart_get_part :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Int32 ->                                -- part : TBasicType TInt32-    Ptr (Ptr MessageHeaders) ->             -- headers : TInterface "Soup" "MessageHeaders"-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO CInt---multipartGetPart ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    Int32 ->                                -- part-    m (Bool,MessageHeaders,Buffer)-multipartGetPart _obj part = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    headers <- allocMem :: IO (Ptr (Ptr MessageHeaders))-    body <- callocBoxedBytes 16 :: IO (Ptr Buffer)-    result <- soup_multipart_get_part _obj' part headers body-    let result' = (/= 0) result-    headers' <- peek headers-    headers'' <- (newBoxed MessageHeaders) headers'-    body' <- (wrapBoxed Buffer) body-    touchManagedPtr _obj-    freeMem headers-    return (result', headers'', body')---- method Multipart::to_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_to_message" soup_multipart_to_message :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Ptr MessageHeaders ->                   -- dest_headers : TInterface "Soup" "MessageHeaders"-    Ptr MessageBody ->                      -- dest_body : TInterface "Soup" "MessageBody"-    IO ()---multipartToMessage ::-    (MonadIO m) =>-    Multipart ->                            -- _obj-    MessageHeaders ->                       -- dest_headers-    MessageBody ->                          -- dest_body-    m ()-multipartToMessage _obj dest_headers dest_body = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let dest_headers' = unsafeManagedPtrGetPtr dest_headers-    let dest_body' = unsafeManagedPtrGetPtr dest_body-    soup_multipart_to_message _obj' dest_headers' dest_body'-    touchManagedPtr _obj-    touchManagedPtr dest_headers-    touchManagedPtr dest_body-    return ()---- object MultipartInputStream -newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream)-noMultipartInputStream :: Maybe MultipartInputStream-noMultipartInputStream = Nothing--foreign import ccall "soup_multipart_input_stream_get_type"-    c_soup_multipart_input_stream_get_type :: IO GType--type instance ParentTypes MultipartInputStream = '[Gio.FilterInputStream, Gio.InputStream, GObject.Object, Gio.PollableInputStream]--instance GObject MultipartInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_multipart_input_stream_get_type-    --class GObject o => MultipartInputStreamK o-instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o--toMultipartInputStream :: MultipartInputStreamK o => o -> IO MultipartInputStream-toMultipartInputStream = unsafeCastTo MultipartInputStream---- method MultipartInputStream::new--- method type : Constructor--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MultipartInputStream"--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.InputStream ->                  -- base_stream : TInterface "Gio" "InputStream"-    IO (Ptr MultipartInputStream)---multipartInputStreamNew ::-    (MonadIO m, MessageK a, Gio.InputStreamK b) =>-    a ->                                    -- msg-    b ->                                    -- base_stream-    m MultipartInputStream-multipartInputStreamNew msg base_stream = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    let base_stream' = unsafeManagedPtrCastPtr base_stream-    result <- soup_multipart_input_stream_new msg' base_stream'-    checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result-    result' <- (wrapObject MultipartInputStream) result-    touchManagedPtr msg-    touchManagedPtr base_stream-    return result'---- method MultipartInputStream::get_headers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "MessageHeaders"--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    IO (Ptr MessageHeaders)---multipartInputStreamGetHeaders ::-    (MonadIO m, MultipartInputStreamK a) =>-    a ->                                    -- _obj-    m MessageHeaders-multipartInputStreamGetHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_multipart_input_stream_get_headers _obj'-    checkUnexpectedReturnNULL "soup_multipart_input_stream_get_headers" result-    result' <- (newBoxed MessageHeaders) result-    touchManagedPtr _obj-    return result'---- method MultipartInputStream::next_part--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---multipartInputStreamNextPart ::-    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    m Gio.InputStream-multipartInputStreamNextPart _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part _obj' maybeCancellable-        checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )---- method MultipartInputStream::next_part_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Int32 ->                                -- io_priority : TBasicType TInt32-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---multipartInputStreamNextPartAsync ::-    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Int32 ->                                -- io_priority-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-multipartInputStreamNextPartAsync _obj io_priority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let data_ = nullPtr-    soup_multipart_input_stream_next_part_async _obj' io_priority maybeCancellable maybeCallback data_-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- method MultipartInputStream::next_part_finish--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part_finish" soup_multipart_input_stream_next_part_finish :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---multipartInputStreamNextPartFinish ::-    (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m Gio.InputStream-multipartInputStreamNextPartFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- interface PasswordManager --newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager)-noPasswordManager :: Maybe PasswordManager-noPasswordManager = Nothing--foreign import ccall "soup_password_manager_get_type"-    c_soup_password_manager_get_type :: IO GType--type instance ParentTypes PasswordManager = '[SessionFeature, GObject.Object]--instance GObject PasswordManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_password_manager_get_type-    --class GObject o => PasswordManagerK o-instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o--toPasswordManager :: PasswordManagerK o => o -> IO PasswordManager-toPasswordManager = unsafeCastTo PasswordManager---- method PasswordManager::get_passwords_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_password_manager_get_passwords_async" soup_password_manager_get_passwords_async :: -    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    CInt ->                                 -- retrying : TBasicType TBoolean-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr PasswordManagerCallbackC ->      -- callback : TInterface "Soup" "PasswordManagerCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---passwordManagerGetPasswordsAsync ::-    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    c ->                                    -- auth-    Bool ->                                 -- retrying-    GLib.MainContext ->                     -- async_context-    Maybe (d) ->                            -- cancellable-    PasswordManagerCallback ->              -- callback-    m ()-passwordManagerGetPasswordsAsync _obj msg auth retrying async_context cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let auth' = unsafeManagedPtrCastPtr auth-    let retrying' = (fromIntegral . fromEnum) retrying-    let async_context' = unsafeManagedPtrGetPtr async_context-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr PasswordManagerCallbackC))-    callback' <- mkPasswordManagerCallback (passwordManagerCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let user_data = nullPtr-    soup_password_manager_get_passwords_async _obj' msg' auth' retrying' async_context' maybeCancellable callback' user_data-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr auth-    touchManagedPtr async_context-    whenJust cancellable touchManagedPtr-    return ()---- method PasswordManager::get_passwords_sync--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_password_manager_get_passwords_sync" soup_password_manager_get_passwords_sync :: -    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO ()---passwordManagerGetPasswordsSync ::-    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    c ->                                    -- auth-    Maybe (d) ->                            -- cancellable-    m ()-passwordManagerGetPasswordsSync _obj msg auth cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let auth' = unsafeManagedPtrCastPtr auth-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    soup_password_manager_get_passwords_sync _obj' msg' auth' maybeCancellable-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr auth-    whenJust cancellable touchManagedPtr-    return ()---- callback PasswordManagerCallback-passwordManagerCallbackClosure :: PasswordManagerCallback -> IO Closure-passwordManagerCallbackClosure cb = newCClosure =<< mkPasswordManagerCallback wrapped-    where wrapped = passwordManagerCallbackWrapper Nothing cb--type PasswordManagerCallbackC =-    Ptr PasswordManager ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkPasswordManagerCallback :: PasswordManagerCallbackC -> IO (FunPtr PasswordManagerCallbackC)--type PasswordManagerCallback =-    PasswordManager ->-    Message ->-    Auth ->-    Bool ->-    IO ()--noPasswordManagerCallback :: Maybe PasswordManagerCallback-noPasswordManagerCallback = Nothing--passwordManagerCallbackWrapper ::-    Maybe (Ptr (FunPtr (PasswordManagerCallbackC))) ->-    PasswordManagerCallback ->-    Ptr PasswordManager ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-passwordManagerCallbackWrapper funptrptr _cb password_manager msg auth retrying _ = do-    password_manager' <- (newObject PasswordManager) password_manager-    msg' <- (newObject Message) msg-    auth' <- (newObject Auth) auth-    let retrying' = (/= 0) retrying-    _cb  password_manager' msg' auth' retrying'-    maybeReleaseFunPtr funptrptr---- object ProxyResolverDefault -newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault)-noProxyResolverDefault :: Maybe ProxyResolverDefault-noProxyResolverDefault = Nothing--foreign import ccall "soup_proxy_resolver_default_get_type"-    c_soup_proxy_resolver_default_get_type :: IO GType--type instance ParentTypes ProxyResolverDefault = '[GObject.Object, ProxyURIResolver, SessionFeature]--instance GObject ProxyResolverDefault where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_proxy_resolver_default_get_type-    --class GObject o => ProxyResolverDefaultK o-instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o--toProxyResolverDefault :: ProxyResolverDefaultK o => o -> IO ProxyResolverDefault-toProxyResolverDefault = unsafeCastTo ProxyResolverDefault---- interface ProxyURIResolver --newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver)-noProxyURIResolver :: Maybe ProxyURIResolver-noProxyURIResolver = Nothing--foreign import ccall "soup_proxy_uri_resolver_get_type"-    c_soup_proxy_uri_resolver_get_type :: IO GType--type instance ParentTypes ProxyURIResolver = '[SessionFeature, GObject.Object]--instance GObject ProxyURIResolver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_proxy_uri_resolver_get_type-    --class GObject o => ProxyURIResolverK o-instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o--toProxyURIResolver :: ProxyURIResolverK o => o -> IO ProxyURIResolver-toProxyURIResolver = unsafeCastTo ProxyURIResolver---- method ProxyURIResolver::get_proxy_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_async" soup_proxy_uri_resolver_get_proxy_uri_async :: -    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr ProxyURIResolverCallbackC ->     -- callback : TInterface "Soup" "ProxyURIResolverCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()--{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}-proxyURIResolverGetProxyUriAsync ::-    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    Maybe (GLib.MainContext) ->             -- async_context-    Maybe (b) ->                            -- cancellable-    ProxyURIResolverCallback ->             -- callback-    m ()-proxyURIResolverGetProxyUriAsync _obj uri async_context cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    maybeAsync_context <- case async_context of-        Nothing -> return nullPtr-        Just jAsync_context -> do-            let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context-            return jAsync_context'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr ProxyURIResolverCallbackC))-    callback' <- mkProxyURIResolverCallback (proxyURIResolverCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let user_data = nullPtr-    soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsync_context maybeCancellable callback' user_data-    touchManagedPtr _obj-    touchManagedPtr uri-    whenJust async_context touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()---- method ProxyURIResolver::get_proxy_uri_sync--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_sync" soup_proxy_uri_resolver_get_proxy_uri_sync :: -    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr URI ->                              -- proxy_uri : TInterface "Soup" "URI"-    IO Word32--{-# DEPRECATED proxyURIResolverGetProxyUriSync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}-proxyURIResolverGetProxyUriSync ::-    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    Maybe (b) ->                            -- cancellable-    m (Word32,URI)-proxyURIResolverGetProxyUriSync _obj uri cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    proxy_uri <- callocBoxedBytes 64 :: IO (Ptr URI)-    result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxy_uri-    proxy_uri' <- (wrapBoxed URI) proxy_uri-    touchManagedPtr _obj-    touchManagedPtr uri-    whenJust cancellable touchManagedPtr-    return (result, proxy_uri')---- callback ProxyURIResolverCallback-proxyURIResolverCallbackClosure :: ProxyURIResolverCallback -> IO Closure-proxyURIResolverCallbackClosure cb = newCClosure =<< mkProxyURIResolverCallback wrapped-    where wrapped = proxyURIResolverCallbackWrapper Nothing cb--type ProxyURIResolverCallbackC =-    Ptr ProxyURIResolver ->-    Word32 ->-    Ptr URI ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkProxyURIResolverCallback :: ProxyURIResolverCallbackC -> IO (FunPtr ProxyURIResolverCallbackC)--type ProxyURIResolverCallback =-    ProxyURIResolver ->-    Word32 ->-    URI ->-    IO ()--noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback-noProxyURIResolverCallback = Nothing--proxyURIResolverCallbackWrapper ::-    Maybe (Ptr (FunPtr (ProxyURIResolverCallbackC))) ->-    ProxyURIResolverCallback ->-    Ptr ProxyURIResolver ->-    Word32 ->-    Ptr URI ->-    Ptr () ->-    IO ()-proxyURIResolverCallbackWrapper funptrptr _cb resolver status proxy_uri _ = do-    resolver' <- (newObject ProxyURIResolver) resolver-    proxy_uri' <- (newBoxed URI) proxy_uri-    _cb  resolver' status proxy_uri'-    maybeReleaseFunPtr funptrptr---- struct Range-newtype Range = Range (ForeignPtr Range)-noRange :: Maybe Range-noRange = Nothing--rangeReadStart :: Range -> IO Int64-rangeReadStart s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int64-    return val--rangeReadEnd :: Range -> IO Int64-rangeReadEnd s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val---- object Request -newtype Request = Request (ForeignPtr Request)-noRequest :: Maybe Request-noRequest = Nothing--foreign import ccall "soup_request_get_type"-    c_soup_request_get_type :: IO GType--type instance ParentTypes Request = '[GObject.Object, Gio.Initable]--instance GObject Request where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_get_type-    --class GObject o => RequestK o-instance (GObject o, IsDescendantOf Request o) => RequestK o--toRequest :: RequestK o => o -> IO Request-toRequest = unsafeCastTo Request---- method Request::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_content_length" soup_request_get_content_length :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO Int64---requestGetContentLength ::-    (MonadIO m, RequestK a) =>-    a ->                                    -- _obj-    m Int64-requestGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_content_length _obj'-    touchManagedPtr _obj-    return result---- method Request::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_content_type" soup_request_get_content_type :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO CString---requestGetContentType ::-    (MonadIO m, RequestK a) =>-    a ->                                    -- _obj-    m T.Text-requestGetContentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_content_type _obj'-    checkUnexpectedReturnNULL "soup_request_get_content_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Request::get_session--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Session"--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_session" soup_request_get_session :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO (Ptr Session)---requestGetSession ::-    (MonadIO m, RequestK a) =>-    a ->                                    -- _obj-    m Session-requestGetSession _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_session _obj'-    checkUnexpectedReturnNULL "soup_request_get_session" result-    result' <- (newObject Session) result-    touchManagedPtr _obj-    return result'---- method Request::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_uri" soup_request_get_uri :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO (Ptr URI)---requestGetUri ::-    (MonadIO m, RequestK a) =>-    a ->                                    -- _obj-    m URI-requestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_uri _obj'-    checkUnexpectedReturnNULL "soup_request_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'---- method Request::send--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_request_send" soup_request_send :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---requestSend ::-    (MonadIO m, RequestK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    m Gio.InputStream-requestSend _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_request_send _obj' maybeCancellable-        checkUnexpectedReturnNULL "soup_request_send" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )---- method Request::send_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_request_send_async" soup_request_send_async :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---requestSendAsync ::-    (MonadIO m, RequestK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-requestSendAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let user_data = nullPtr-    soup_request_send_async _obj' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- method Request::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_request_send_finish" soup_request_send_finish :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---requestSendFinish ::-    (MonadIO m, RequestK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m Gio.InputStream-requestSendFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_request_send_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_request_send_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- object RequestData -newtype RequestData = RequestData (ForeignPtr RequestData)-noRequestData :: Maybe RequestData-noRequestData = Nothing--foreign import ccall "soup_request_data_get_type"-    c_soup_request_data_get_type :: IO GType--type instance ParentTypes RequestData = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestData where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_data_get_type-    --class GObject o => RequestDataK o-instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o--toRequestData :: RequestDataK o => o -> IO RequestData-toRequestData = unsafeCastTo RequestData---- Enum RequestError--data RequestError = -      RequestErrorBadUri-    | RequestErrorUnsupportedUriScheme-    | RequestErrorParsing-    | RequestErrorEncoding-    | AnotherRequestError Int-    deriving (Show, Eq)--instance Enum RequestError where-    fromEnum RequestErrorBadUri = 0-    fromEnum RequestErrorUnsupportedUriScheme = 1-    fromEnum RequestErrorParsing = 2-    fromEnum RequestErrorEncoding = 3-    fromEnum (AnotherRequestError k) = k--    toEnum 0 = RequestErrorBadUri-    toEnum 1 = RequestErrorUnsupportedUriScheme-    toEnum 2 = RequestErrorParsing-    toEnum 3 = RequestErrorEncoding-    toEnum k = AnotherRequestError k--instance GErrorClass RequestError where-    gerrorClassDomain _ = "soup_request_error_quark"--catchRequestError ::-    IO a ->-    (RequestError -> GErrorMessage -> IO a) ->-    IO a-catchRequestError = catchGErrorJustDomain--handleRequestError ::-    (RequestError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleRequestError = handleGErrorJustDomain--foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type :: -    IO GType--instance BoxedEnum RequestError where-    boxedEnumType _ = c_soup_request_error_get_type---- object RequestFile -newtype RequestFile = RequestFile (ForeignPtr RequestFile)-noRequestFile :: Maybe RequestFile-noRequestFile = Nothing--foreign import ccall "soup_request_file_get_type"-    c_soup_request_file_get_type :: IO GType--type instance ParentTypes RequestFile = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestFile where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_file_get_type-    --class GObject o => RequestFileK o-instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o--toRequestFile :: RequestFileK o => o -> IO RequestFile-toRequestFile = unsafeCastTo RequestFile---- method RequestFile::get_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "File"--- throws : False--- Skip return : False--foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: -    Ptr RequestFile ->                      -- _obj : TInterface "Soup" "RequestFile"-    IO (Ptr Gio.File)---requestFileGetFile ::-    (MonadIO m, RequestFileK a) =>-    a ->                                    -- _obj-    m Gio.File-requestFileGetFile _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_file_get_file _obj'-    checkUnexpectedReturnNULL "soup_request_file_get_file" result-    result' <- (wrapObject Gio.File) result-    touchManagedPtr _obj-    return result'---- object RequestHTTP -newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP)-noRequestHTTP :: Maybe RequestHTTP-noRequestHTTP = Nothing--foreign import ccall "soup_request_http_get_type"-    c_soup_request_http_get_type :: IO GType--type instance ParentTypes RequestHTTP = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestHTTP where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_http_get_type-    --class GObject o => RequestHTTPK o-instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o--toRequestHTTP :: RequestHTTPK o => o -> IO RequestHTTP-toRequestHTTP = unsafeCastTo RequestHTTP---- method RequestHTTP::get_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: -    Ptr RequestHTTP ->                      -- _obj : TInterface "Soup" "RequestHTTP"-    IO (Ptr Message)---requestHTTPGetMessage ::-    (MonadIO m, RequestHTTPK a) =>-    a ->                                    -- _obj-    m Message-requestHTTPGetMessage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_http_get_message _obj'-    checkUnexpectedReturnNULL "soup_request_http_get_message" result-    result' <- (wrapObject Message) result-    touchManagedPtr _obj-    return result'---- object Requester -newtype Requester = Requester (ForeignPtr Requester)-noRequester :: Maybe Requester-noRequester = Nothing--foreign import ccall "soup_requester_get_type"-    c_soup_requester_get_type :: IO GType--type instance ParentTypes Requester = '[GObject.Object, SessionFeature]--instance GObject Requester where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_requester_get_type-    --class GObject o => RequesterK o-instance (GObject o, IsDescendantOf Requester o) => RequesterK o--toRequester :: RequesterK o => o -> IO Requester-toRequester = unsafeCastTo Requester---- method Requester::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "Requester"--- throws : False--- Skip return : False--foreign import ccall "soup_requester_new" soup_requester_new :: -    IO (Ptr Requester)---requesterNew ::-    (MonadIO m) =>-    m Requester-requesterNew  = liftIO $ do-    result <- soup_requester_new-    checkUnexpectedReturnNULL "soup_requester_new" result-    result' <- (wrapObject Requester) result-    return result'---- method Requester::request--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Request"--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request" soup_requester_request :: -    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---requesterRequest ::-    (MonadIO m, RequesterK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri_string-    m Request-requesterRequest _obj uri_string = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri_string' <- textToCString uri_string-    onException (do-        result <- propagateGError $ soup_requester_request _obj' uri_string'-        checkUnexpectedReturnNULL "soup_requester_request" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        freeMem uri_string'-        return result'-     ) (do-        freeMem uri_string'-     )---- method Requester::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Request"--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: -    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---requesterRequestUri ::-    (MonadIO m, RequesterK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    m Request-requesterRequestUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_requester_request_uri _obj' uri'-        checkUnexpectedReturnNULL "soup_requester_request_uri" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )---- Enum RequesterError--data RequesterError = -      RequesterErrorBadUri-    | RequesterErrorUnsupportedUriScheme-    | AnotherRequesterError Int-    deriving (Show, Eq)--instance Enum RequesterError where-    fromEnum RequesterErrorBadUri = 0-    fromEnum RequesterErrorUnsupportedUriScheme = 1-    fromEnum (AnotherRequesterError k) = k--    toEnum 0 = RequesterErrorBadUri-    toEnum 1 = RequesterErrorUnsupportedUriScheme-    toEnum k = AnotherRequesterError k--instance GErrorClass RequesterError where-    gerrorClassDomain _ = "soup_requester_error_quark"--catchRequesterError ::-    IO a ->-    (RequesterError -> GErrorMessage -> IO a) ->-    IO a-catchRequesterError = catchGErrorJustDomain--handleRequesterError ::-    (RequesterError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleRequesterError = handleGErrorJustDomain--foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type :: -    IO GType--instance BoxedEnum RequesterError where-    boxedEnumType _ = c_soup_requester_error_get_type---- object Server -newtype Server = Server (ForeignPtr Server)-noServer :: Maybe Server-noServer = Nothing--foreign import ccall "soup_server_get_type"-    c_soup_server_get_type :: IO GType--type instance ParentTypes Server = '[GObject.Object]--instance GObject Server where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_server_get_type-    --class GObject o => ServerK o-instance (GObject o, IsDescendantOf Server o) => ServerK o--toServer :: ServerK o => o -> IO Server-toServer = unsafeCastTo Server---- method Server::accept_iostream--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"-    Ptr Gio.SocketAddress ->                -- local_addr : TInterface "Gio" "SocketAddress"-    Ptr Gio.SocketAddress ->                -- remote_addr : TInterface "Gio" "SocketAddress"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverAcceptIostream ::-    (MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) =>-    a ->                                    -- _obj-    b ->                                    -- stream-    Maybe (c) ->                            -- local_addr-    Maybe (d) ->                            -- remote_addr-    m ()-serverAcceptIostream _obj stream local_addr remote_addr = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream' = unsafeManagedPtrCastPtr stream-    maybeLocal_addr <- case local_addr of-        Nothing -> return nullPtr-        Just jLocal_addr -> do-            let jLocal_addr' = unsafeManagedPtrCastPtr jLocal_addr-            return jLocal_addr'-    maybeRemote_addr <- case remote_addr of-        Nothing -> return nullPtr-        Just jRemote_addr -> do-            let jRemote_addr' = unsafeManagedPtrCastPtr jRemote_addr-            return jRemote_addr'-    onException (do-        _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocal_addr maybeRemote_addr-        touchManagedPtr _obj-        touchManagedPtr stream-        whenJust local_addr touchManagedPtr-        whenJust remote_addr touchManagedPtr-        return ()-     ) (do-        return ()-     )---- method Server::add_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"-    IO ()---serverAddAuthDomain ::-    (MonadIO m, ServerK a, AuthDomainK b) =>-    a ->                                    -- _obj-    b ->                                    -- auth_domain-    m ()-serverAddAuthDomain _obj auth_domain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let auth_domain' = unsafeManagedPtrCastPtr auth_domain-    soup_server_add_auth_domain _obj' auth_domain'-    touchManagedPtr _obj-    touchManagedPtr auth_domain-    return ()---- method Server::add_early_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddEarlyHandler ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- path-    ServerCallback ->                       -- callback-    m ()-serverAddEarlyHandler _obj path callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)-    let user_data = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_early_handler _obj' maybePath callback' user_data destroy-    touchManagedPtr _obj-    freeMem maybePath-    return ()---- method Server::add_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_handler" soup_server_add_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddHandler ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- path-    ServerCallback ->                       -- callback-    m ()-serverAddHandler _obj path callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)-    let user_data = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_handler _obj' maybePath callback' user_data destroy-    touchManagedPtr _obj-    freeMem maybePath-    return ()---- method Server::add_websocket_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    FunPtr ServerWebsocketCallbackC ->      -- callback : TInterface "Soup" "ServerWebsocketCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddWebsocketHandler ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- path-    Maybe (T.Text) ->                       -- origin-    Maybe ([T.Text]) ->                     -- protocols-    ServerWebsocketCallback ->              -- callback-    m ()-serverAddWebsocketHandler _obj path origin protocols callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    callback' <- mkServerWebsocketCallback (serverWebsocketCallbackWrapper Nothing callback)-    let user_data = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' user_data destroy-    touchManagedPtr _obj-    freeMem maybePath-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()---- method Server::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_disconnect" soup_server_disconnect :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()---serverDisconnect ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m ()-serverDisconnect _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_disconnect _obj'-    touchManagedPtr _obj-    return ()---- method Server::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr GLib.MainContext)--{-# DEPRECATED serverGetAsyncContext ["If you are using soup_server_listen(), etc, then","the server listens on the thread-default #GMainContext, and this","property is ignored."]#-}-serverGetAsyncContext ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m GLib.MainContext-serverGetAsyncContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_async_context _obj'-    checkUnexpectedReturnNULL "soup_server_get_async_context" result-    result' <- (newBoxed GLib.MainContext) result-    touchManagedPtr _obj-    return result'---- method Server::get_listener--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Socket"--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listener" soup_server_get_listener :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr Socket)--{-# DEPRECATED serverGetListener ["If you are using soup_server_listen(), etc, then use","soup_server_get_listeners() to get a list of all listening sockets,","but note that that function returns #GSockets, not #SoupSockets."]#-}-serverGetListener ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m Socket-serverGetListener _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_listener _obj'-    checkUnexpectedReturnNULL "soup_server_get_listener" result-    result' <- (newObject Socket) result-    touchManagedPtr _obj-    return result'---- method Server::get_listeners--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Gio" "Socket")--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr (GSList (Ptr Gio.Socket)))---serverGetListeners ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m [Gio.Socket]-serverGetListeners _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_listeners _obj'-    checkUnexpectedReturnNULL "soup_server_get_listeners" result-    result' <- unpackGSList result-    result'' <- mapM (newObject Gio.Socket) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method Server::get_port--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_port" soup_server_get_port :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO Word32--{-# DEPRECATED serverGetPort ["If you are using soup_server_listen(), etc, then use","soup_server_get_uris() to get a list of all listening addresses."]#-}-serverGetPort ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m Word32-serverGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_port _obj'-    touchManagedPtr _obj-    return result---- method Server::get_uris--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_uris" soup_server_get_uris :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr (GSList (Ptr URI)))---serverGetUris ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m [URI]-serverGetUris _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_uris _obj'-    checkUnexpectedReturnNULL "soup_server_get_uris" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed URI) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method Server::is_https--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_server_is_https" soup_server_is_https :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO CInt---serverIsHttps ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m Bool-serverIsHttps _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_is_https _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Server::listen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen" soup_server_listen :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.SocketAddress ->                -- address : TInterface "Gio" "SocketAddress"-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListen ::-    (MonadIO m, ServerK a, Gio.SocketAddressK b) =>-    a ->                                    -- _obj-    b ->                                    -- address-    [ServerListenOptions] ->                -- options-    m ()-serverListen _obj address options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen _obj' address' options'-        touchManagedPtr _obj-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )---- method Server::listen_all--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_all" soup_server_listen_all :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Word32 ->                               -- port : TBasicType TUInt32-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenAll ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- port-    [ServerListenOptions] ->                -- options-    m ()-serverListenAll _obj port options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_all _obj' port options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method Server::listen_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_fd" soup_server_listen_fd :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Int32 ->                                -- fd : TBasicType TInt32-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenFd ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- fd-    [ServerListenOptions] ->                -- options-    m ()-serverListenFd _obj fd options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_fd _obj' fd options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method Server::listen_local--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_local" soup_server_listen_local :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Word32 ->                               -- port : TBasicType TUInt32-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenLocal ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- port-    [ServerListenOptions] ->                -- options-    m ()-serverListenLocal _obj port options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_local _obj' port options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method Server::listen_socket--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_socket" soup_server_listen_socket :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.Socket ->                       -- socket : TInterface "Gio" "Socket"-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenSocket ::-    (MonadIO m, ServerK a, Gio.SocketK b) =>-    a ->                                    -- _obj-    b ->                                    -- socket-    [ServerListenOptions] ->                -- options-    m ()-serverListenSocket _obj socket options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let socket' = unsafeManagedPtrCastPtr socket-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_socket _obj' socket' options'-        touchManagedPtr _obj-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )---- method Server::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_pause_message" soup_server_pause_message :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---serverPauseMessage ::-    (MonadIO m, ServerK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-serverPauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_server_pause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Server::quit--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_quit" soup_server_quit :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverQuit ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverQuit ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m ()-serverQuit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_quit _obj'-    touchManagedPtr _obj-    return ()---- method Server::remove_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"-    IO ()---serverRemoveAuthDomain ::-    (MonadIO m, ServerK a, AuthDomainK b) =>-    a ->                                    -- _obj-    b ->                                    -- auth_domain-    m ()-serverRemoveAuthDomain _obj auth_domain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let auth_domain' = unsafeManagedPtrCastPtr auth_domain-    soup_server_remove_auth_domain _obj' auth_domain'-    touchManagedPtr _obj-    touchManagedPtr auth_domain-    return ()---- method Server::remove_handler--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_remove_handler" soup_server_remove_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---serverRemoveHandler ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- path-    m ()-serverRemoveHandler _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_server_remove_handler _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()---- method Server::run--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_run" soup_server_run :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverRun ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverRun ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m ()-serverRun _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_run _obj'-    touchManagedPtr _obj-    return ()---- method Server::run_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_run_async" soup_server_run_async :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverRunAsync ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverRunAsync ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    m ()-serverRunAsync _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_run_async _obj'-    touchManagedPtr _obj-    return ()---- method Server::set_ssl_cert_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_server_set_ssl_cert_file" soup_server_set_ssl_cert_file :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- ssl_cert_file : TBasicType TUTF8-    CString ->                              -- ssl_key_file : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverSetSslCertFile ::-    (MonadIO m, ServerK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- ssl_cert_file-    T.Text ->                               -- ssl_key_file-    m ()-serverSetSslCertFile _obj ssl_cert_file ssl_key_file = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ssl_cert_file' <- textToCString ssl_cert_file-    ssl_key_file' <- textToCString ssl_key_file-    onException (do-        _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' ssl_cert_file' ssl_key_file'-        touchManagedPtr _obj-        freeMem ssl_cert_file'-        freeMem ssl_key_file'-        return ()-     ) (do-        freeMem ssl_cert_file'-        freeMem ssl_key_file'-     )---- method Server::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_server_unpause_message" soup_server_unpause_message :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---serverUnpauseMessage ::-    (MonadIO m, ServerK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-serverUnpauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_server_unpause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- signal Server::request-aborted-type ServerRequestAbortedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback-noServerRequestAbortedCallback = Nothing--type ServerRequestAbortedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestAbortedCallback :: ServerRequestAbortedCallbackC -> IO (FunPtr ServerRequestAbortedCallbackC)--serverRequestAbortedClosure :: ServerRequestAbortedCallback -> IO Closure-serverRequestAbortedClosure cb = newCClosure =<< mkServerRequestAbortedCallback wrapped-    where wrapped = serverRequestAbortedCallbackWrapper cb--serverRequestAbortedCallbackWrapper ::-    ServerRequestAbortedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestAbortedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-onServerRequestAborted obj cb = liftIO $ connectServerRequestAborted obj cb SignalConnectBefore-afterServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-afterServerRequestAborted obj cb = connectServerRequestAborted obj cb SignalConnectAfter--connectServerRequestAborted :: (GObject a, MonadIO m) =>-                               a -> ServerRequestAbortedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestAborted obj cb after = liftIO $ do-    cb' <- mkServerRequestAbortedCallback (serverRequestAbortedCallbackWrapper cb)-    connectSignalFunPtr obj "request-aborted" cb' after---- signal Server::request-finished-type ServerRequestFinishedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback-noServerRequestFinishedCallback = Nothing--type ServerRequestFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestFinishedCallback :: ServerRequestFinishedCallbackC -> IO (FunPtr ServerRequestFinishedCallbackC)--serverRequestFinishedClosure :: ServerRequestFinishedCallback -> IO Closure-serverRequestFinishedClosure cb = newCClosure =<< mkServerRequestFinishedCallback wrapped-    where wrapped = serverRequestFinishedCallbackWrapper cb--serverRequestFinishedCallbackWrapper ::-    ServerRequestFinishedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestFinishedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-onServerRequestFinished obj cb = liftIO $ connectServerRequestFinished obj cb SignalConnectBefore-afterServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-afterServerRequestFinished obj cb = connectServerRequestFinished obj cb SignalConnectAfter--connectServerRequestFinished :: (GObject a, MonadIO m) =>-                                a -> ServerRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestFinished obj cb after = liftIO $ do-    cb' <- mkServerRequestFinishedCallback (serverRequestFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "request-finished" cb' after---- signal Server::request-read-type ServerRequestReadCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestReadCallback :: Maybe ServerRequestReadCallback-noServerRequestReadCallback = Nothing--type ServerRequestReadCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestReadCallback :: ServerRequestReadCallbackC -> IO (FunPtr ServerRequestReadCallbackC)--serverRequestReadClosure :: ServerRequestReadCallback -> IO Closure-serverRequestReadClosure cb = newCClosure =<< mkServerRequestReadCallback wrapped-    where wrapped = serverRequestReadCallbackWrapper cb--serverRequestReadCallbackWrapper ::-    ServerRequestReadCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestReadCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-onServerRequestRead obj cb = liftIO $ connectServerRequestRead obj cb SignalConnectBefore-afterServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-afterServerRequestRead obj cb = connectServerRequestRead obj cb SignalConnectAfter--connectServerRequestRead :: (GObject a, MonadIO m) =>-                            a -> ServerRequestReadCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestRead obj cb after = liftIO $ do-    cb' <- mkServerRequestReadCallback (serverRequestReadCallbackWrapper cb)-    connectSignalFunPtr obj "request-read" cb' after---- signal Server::request-started-type ServerRequestStartedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback-noServerRequestStartedCallback = Nothing--type ServerRequestStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestStartedCallback :: ServerRequestStartedCallbackC -> IO (FunPtr ServerRequestStartedCallbackC)--serverRequestStartedClosure :: ServerRequestStartedCallback -> IO Closure-serverRequestStartedClosure cb = newCClosure =<< mkServerRequestStartedCallback wrapped-    where wrapped = serverRequestStartedCallbackWrapper cb--serverRequestStartedCallbackWrapper ::-    ServerRequestStartedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestStartedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-onServerRequestStarted obj cb = liftIO $ connectServerRequestStarted obj cb SignalConnectBefore-afterServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-afterServerRequestStarted obj cb = connectServerRequestStarted obj cb SignalConnectAfter--connectServerRequestStarted :: (GObject a, MonadIO m) =>-                               a -> ServerRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestStarted obj cb after = liftIO $ do-    cb' <- mkServerRequestStartedCallback (serverRequestStartedCallbackWrapper cb)-    connectSignalFunPtr obj "request-started" cb' after---- callback ServerCallback-serverCallbackClosure :: ServerCallback -> IO Closure-serverCallbackClosure cb = newCClosure =<< mkServerCallback wrapped-    where wrapped = serverCallbackWrapper Nothing cb--type ServerCallbackC =-    Ptr Server ->-    Ptr Message ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkServerCallback :: ServerCallbackC -> IO (FunPtr ServerCallbackC)--type ServerCallback =-    Server ->-    Message ->-    T.Text ->-    Maybe (Map.Map T.Text T.Text) ->-    ClientContext ->-    IO ()--noServerCallback :: Maybe ServerCallback-noServerCallback = Nothing--serverCallbackWrapper ::-    Maybe (Ptr (FunPtr (ServerCallbackC))) ->-    ServerCallback ->-    Ptr Server ->-    Ptr Message ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverCallbackWrapper funptrptr _cb server msg path query client _ = do-    server' <- (newObject Server) server-    msg' <- (newObject Message) msg-    path' <- cstringToText path-    maybeQuery <--        if query == nullPtr-        then return Nothing-        else do-            query' <- unpackGHashTable query-            let query'' = mapFirst cstringUnpackPtr query'-            query''' <- mapFirstA cstringToText query''-            let query'''' = mapSecond cstringUnpackPtr query'''-            query''''' <- mapSecondA cstringToText query''''-            let query'''''' = Map.fromList query'''''-            return $ Just query''''''-    client' <- (newBoxed ClientContext) client-    _cb  server' msg' path' maybeQuery client'-    maybeReleaseFunPtr funptrptr---- Flags ServerListenOptions--data ServerListenOptions = -      ServerListenOptionsHttps-    | ServerListenOptionsIpv4Only-    | ServerListenOptionsIpv6Only-    | AnotherServerListenOptions Int-    deriving (Show, Eq)--instance Enum ServerListenOptions where-    fromEnum ServerListenOptionsHttps = 1-    fromEnum ServerListenOptionsIpv4Only = 2-    fromEnum ServerListenOptionsIpv6Only = 4-    fromEnum (AnotherServerListenOptions k) = k--    toEnum 1 = ServerListenOptionsHttps-    toEnum 2 = ServerListenOptionsIpv4Only-    toEnum 4 = ServerListenOptionsIpv6Only-    toEnum k = AnotherServerListenOptions k--foreign import ccall "soup_server_listen_options_get_type" c_soup_server_listen_options_get_type :: -    IO GType--instance BoxedEnum ServerListenOptions where-    boxedEnumType _ = c_soup_server_listen_options_get_type--instance IsGFlag ServerListenOptions---- callback ServerWebsocketCallback-serverWebsocketCallbackClosure :: ServerWebsocketCallback -> IO Closure-serverWebsocketCallbackClosure cb = newCClosure =<< mkServerWebsocketCallback wrapped-    where wrapped = serverWebsocketCallbackWrapper Nothing cb--type ServerWebsocketCallbackC =-    Ptr Server ->-    Ptr WebsocketConnection ->-    CString ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkServerWebsocketCallback :: ServerWebsocketCallbackC -> IO (FunPtr ServerWebsocketCallbackC)--type ServerWebsocketCallback =-    Server ->-    WebsocketConnection ->-    T.Text ->-    ClientContext ->-    IO ()--noServerWebsocketCallback :: Maybe ServerWebsocketCallback-noServerWebsocketCallback = Nothing--serverWebsocketCallbackWrapper ::-    Maybe (Ptr (FunPtr (ServerWebsocketCallbackC))) ->-    ServerWebsocketCallback ->-    Ptr Server ->-    Ptr WebsocketConnection ->-    CString ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverWebsocketCallbackWrapper funptrptr _cb server connection path client _ = do-    server' <- (newObject Server) server-    connection' <- (newObject WebsocketConnection) connection-    path' <- cstringToText path-    client' <- (newBoxed ClientContext) client-    _cb  server' connection' path' client'-    maybeReleaseFunPtr funptrptr---- object Session -newtype Session = Session (ForeignPtr Session)-noSession :: Maybe Session-noSession = Nothing--foreign import ccall "soup_session_get_type"-    c_soup_session_get_type :: IO GType--type instance ParentTypes Session = '[GObject.Object]--instance GObject Session where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_get_type-    --class GObject o => SessionK o-instance (GObject o, IsDescendantOf Session o) => SessionK o--toSession :: SessionK o => o -> IO Session-toSession = unsafeCastTo Session---- method Session::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "Session"--- throws : False--- Skip return : False--foreign import ccall "soup_session_new" soup_session_new :: -    IO (Ptr Session)---sessionNew ::-    (MonadIO m) =>-    m Session-sessionNew  = liftIO $ do-    result <- soup_session_new-    checkUnexpectedReturnNULL "soup_session_new" result-    result' <- (wrapObject Session) result-    return result'---- method Session::abort--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_abort" soup_session_abort :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    IO ()---sessionAbort ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    m ()-sessionAbort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_session_abort _obj'-    touchManagedPtr _obj-    return ()---- method Session::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_add_feature" soup_session_add_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"-    IO ()---sessionAddFeature ::-    (MonadIO m, SessionK a, SessionFeatureK b) =>-    a ->                                    -- _obj-    b ->                                    -- feature-    m ()-sessionAddFeature _obj feature = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature' = unsafeManagedPtrCastPtr feature-    soup_session_add_feature _obj' feature'-    touchManagedPtr _obj-    touchManagedPtr feature-    return ()---- method Session::add_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---sessionAddFeatureByType ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m ()-sessionAddFeatureByType _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    soup_session_add_feature_by_type _obj' feature_type'-    touchManagedPtr _obj-    return ()---- method Session::cancel_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_cancel_message" soup_session_cancel_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32-    IO ()---sessionCancelMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Word32 ->                               -- status_code-    m ()-sessionCancelMessage _obj msg status_code = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_cancel_message _obj' msg' status_code-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Session::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    IO (Ptr GLib.MainContext)---sessionGetAsyncContext ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    m GLib.MainContext-sessionGetAsyncContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_session_get_async_context _obj'-    checkUnexpectedReturnNULL "soup_session_get_async_context" result-    result' <- (newBoxed GLib.MainContext) result-    touchManagedPtr _obj-    return result'---- method Session::get_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "SessionFeature"--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature" soup_session_get_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr SessionFeature)---sessionGetFeature ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m SessionFeature-sessionGetFeature _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    result <- soup_session_get_feature _obj' feature_type'-    checkUnexpectedReturnNULL "soup_session_get_feature" result-    result' <- (newObject SessionFeature) result-    touchManagedPtr _obj-    return result'---- method Session::get_feature_for_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "SessionFeature"--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr SessionFeature)---sessionGetFeatureForMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    b ->                                    -- msg-    m SessionFeature-sessionGetFeatureForMessage _obj feature_type msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_get_feature_for_message _obj' feature_type' msg'-    checkUnexpectedReturnNULL "soup_session_get_feature_for_message" result-    result' <- (newObject SessionFeature) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method Session::get_features--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "SessionFeature")--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_features" soup_session_get_features :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr (GSList (Ptr SessionFeature)))---sessionGetFeatures ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m [SessionFeature]-sessionGetFeatures _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    result <- soup_session_get_features _obj' feature_type'-    checkUnexpectedReturnNULL "soup_session_get_features" result-    result' <- unpackGSList result-    result'' <- mapM (newObject SessionFeature) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method Session::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_has_feature" soup_session_has_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO CInt---sessionHasFeature ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m Bool-sessionHasFeature _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    result <- soup_session_has_feature _obj' feature_type'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Session::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_pause_message" soup_session_pause_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionPauseMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-sessionPauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_pause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Session::prefetch_dns--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---sessionPrefetchDns ::-    (MonadIO m, SessionK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    T.Text ->                               -- hostname-    Maybe (b) ->                            -- cancellable-    Maybe (AddressCallback) ->              -- callback-    m ()-sessionPrefetchDns _obj hostname cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let user_data = nullPtr-    soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()---- method Session::prepare_for_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO ()--{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use soup_session_prefetch_dns() instead"]#-}-sessionPrepareForUri ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    m ()-sessionPrepareForUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    soup_session_prepare_for_uri _obj' uri'-    touchManagedPtr _obj-    touchManagedPtr uri-    return ()---- method Session::queue_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_queue_message" soup_session_queue_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    FunPtr SessionCallbackC ->              -- callback : TInterface "Soup" "SessionCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---sessionQueueMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Maybe (SessionCallback) ->              -- callback-    m ()-sessionQueueMessage _obj msg callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    msg' <- refObject msg-    ptrcallback <- callocMem :: IO (Ptr (FunPtr SessionCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkSessionCallback (sessionCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let user_data = nullPtr-    soup_session_queue_message _obj' msg' maybeCallback user_data-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Session::redirect_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_redirect_message" soup_session_redirect_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---sessionRedirectMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Bool-sessionRedirectMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_redirect_message _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method Session::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_remove_feature" soup_session_remove_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"-    IO ()---sessionRemoveFeature ::-    (MonadIO m, SessionK a, SessionFeatureK b) =>-    a ->                                    -- _obj-    b ->                                    -- feature-    m ()-sessionRemoveFeature _obj feature = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature' = unsafeManagedPtrCastPtr feature-    soup_session_remove_feature _obj' feature'-    touchManagedPtr _obj-    touchManagedPtr feature-    return ()---- method Session::remove_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---sessionRemoveFeatureByType ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    GType ->                                -- feature_type-    m ()-sessionRemoveFeatureByType _obj feature_type = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature_type' = gtypeToCGType feature_type-    soup_session_remove_feature_by_type _obj' feature_type'-    touchManagedPtr _obj-    return ()---- method Session::request--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Request"--- throws : True--- Skip return : False--foreign import ccall "soup_session_request" soup_session_request :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---sessionRequest ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri_string-    m Request-sessionRequest _obj uri_string = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri_string' <- textToCString uri_string-    onException (do-        result <- propagateGError $ soup_session_request _obj' uri_string'-        checkUnexpectedReturnNULL "soup_session_request" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        freeMem uri_string'-        return result'-     ) (do-        freeMem uri_string'-     )---- method Session::request_http--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "RequestHTTP"--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http" soup_session_request_http :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr RequestHTTP)---sessionRequestHttp ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- method-    T.Text ->                               -- uri_string-    m RequestHTTP-sessionRequestHttp _obj method uri_string = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    method' <- textToCString method-    uri_string' <- textToCString uri_string-    onException (do-        result <- propagateGError $ soup_session_request_http _obj' method' uri_string'-        checkUnexpectedReturnNULL "soup_session_request_http" result-        result' <- (wrapObject RequestHTTP) result-        touchManagedPtr _obj-        freeMem method'-        freeMem uri_string'-        return result'-     ) (do-        freeMem method'-        freeMem uri_string'-     )---- method Session::request_http_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "RequestHTTP"--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- method : TBasicType TUTF8-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr RequestHTTP)---sessionRequestHttpUri ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- method-    URI ->                                  -- uri-    m RequestHTTP-sessionRequestHttpUri _obj method uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    method' <- textToCString method-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_http_uri _obj' method' uri'-        checkUnexpectedReturnNULL "soup_session_request_http_uri" result-        result' <- (wrapObject RequestHTTP) result-        touchManagedPtr _obj-        touchManagedPtr uri-        freeMem method'-        return result'-     ) (do-        freeMem method'-     )---- method Session::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Request"--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_uri" soup_session_request_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---sessionRequestUri ::-    (MonadIO m, SessionK a) =>-    a ->                                    -- _obj-    URI ->                                  -- uri-    m Request-sessionRequestUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_uri _obj' uri'-        checkUnexpectedReturnNULL "soup_session_request_uri" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )---- method Session::requeue_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_requeue_message" soup_session_requeue_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionRequeueMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-sessionRequeueMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_requeue_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Session::send--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_session_send" soup_session_send :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---sessionSend ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Maybe (c) ->                            -- cancellable-    m Gio.InputStream-sessionSend _obj msg cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_session_send _obj' msg' maybeCancellable-        checkUnexpectedReturnNULL "soup_session_send" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr msg-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )---- method Session::send_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_send_async" soup_session_send_async :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---sessionSendAsync ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Maybe (c) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-sessionSendAsync _obj msg cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let user_data = nullPtr-    soup_session_send_async _obj' msg' maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    return ()---- method Session::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "InputStream"--- throws : True--- Skip return : False--foreign import ccall "soup_session_send_finish" soup_session_send_finish :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---sessionSendFinish ::-    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m Gio.InputStream-sessionSendFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_send_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_session_send_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- method Session::send_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_session_send_message" soup_session_send_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO Word32---sessionSendMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Word32-sessionSendMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_send_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return result---- method Session::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "IOStream"--- throws : False--- Skip return : False--foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr Gio.IOStream)---sessionStealConnection ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Gio.IOStream-sessionStealConnection _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_steal_connection _obj' msg'-    checkUnexpectedReturnNULL "soup_session_steal_connection" result-    result' <- (wrapObject Gio.IOStream) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- method Session::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_unpause_message" soup_session_unpause_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionUnpauseMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m ()-sessionUnpauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_unpause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()---- method Session::websocket_connect_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---sessionWebsocketConnectAsync ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    Maybe (T.Text) ->                       -- origin-    Maybe ([T.Text]) ->                     -- protocols-    Maybe (c) ->                            -- cancellable-    Maybe (Gio.AsyncReadyCallback) ->       -- callback-    m ()-sessionWebsocketConnectAsync _obj msg origin protocols cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let user_data = nullPtr-    soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback user_data-    touchManagedPtr _obj-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()---- method Session::websocket_connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "WebsocketConnection"--- throws : True--- Skip return : False--foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr WebsocketConnection)---sessionWebsocketConnectFinish ::-    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>-    a ->                                    -- _obj-    b ->                                    -- result-    m WebsocketConnection-sessionWebsocketConnectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_websocket_connect_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_session_websocket_connect_finish" result-        result' <- (wrapObject WebsocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )---- method Session::would_redirect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_would_redirect" soup_session_would_redirect :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---sessionWouldRedirect ::-    (MonadIO m, SessionK a, MessageK b) =>-    a ->                                    -- _obj-    b ->                                    -- msg-    m Bool-sessionWouldRedirect _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_would_redirect _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'---- signal Session::authenticate-type SessionAuthenticateCallback =-    Message ->-    Auth ->-    Bool ->-    IO ()--noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback-noSessionAuthenticateCallback = Nothing--type SessionAuthenticateCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionAuthenticateCallback :: SessionAuthenticateCallbackC -> IO (FunPtr SessionAuthenticateCallbackC)--sessionAuthenticateClosure :: SessionAuthenticateCallback -> IO Closure-sessionAuthenticateClosure cb = newCClosure =<< mkSessionAuthenticateCallback wrapped-    where wrapped = sessionAuthenticateCallbackWrapper cb--sessionAuthenticateCallbackWrapper ::-    SessionAuthenticateCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-sessionAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do-    msg' <- (newObject Message) msg-    auth' <- (newObject Auth) auth-    let retrying' = (/= 0) retrying-    _cb  msg' auth' retrying'--onSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId-onSessionAuthenticate obj cb = liftIO $ connectSessionAuthenticate obj cb SignalConnectBefore-afterSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId-afterSessionAuthenticate obj cb = connectSessionAuthenticate obj cb SignalConnectAfter--connectSessionAuthenticate :: (GObject a, MonadIO m) =>-                              a -> SessionAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionAuthenticate obj cb after = liftIO $ do-    cb' <- mkSessionAuthenticateCallback (sessionAuthenticateCallbackWrapper cb)-    connectSignalFunPtr obj "authenticate" cb' after---- signal Session::connection-created-type SessionConnectionCreatedCallback =-    GObject.Object ->-    IO ()--noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback-noSessionConnectionCreatedCallback = Nothing--type SessionConnectionCreatedCallbackC =-    Ptr () ->                               -- object-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionConnectionCreatedCallback :: SessionConnectionCreatedCallbackC -> IO (FunPtr SessionConnectionCreatedCallbackC)--sessionConnectionCreatedClosure :: SessionConnectionCreatedCallback -> IO Closure-sessionConnectionCreatedClosure cb = newCClosure =<< mkSessionConnectionCreatedCallback wrapped-    where wrapped = sessionConnectionCreatedCallbackWrapper cb--sessionConnectionCreatedCallbackWrapper ::-    SessionConnectionCreatedCallback ->-    Ptr () ->-    Ptr GObject.Object ->-    Ptr () ->-    IO ()-sessionConnectionCreatedCallbackWrapper _cb _ connection _ = do-    connection' <- (newObject GObject.Object) connection-    _cb  connection'--onSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId-onSessionConnectionCreated obj cb = liftIO $ connectSessionConnectionCreated obj cb SignalConnectBefore-afterSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId-afterSessionConnectionCreated obj cb = connectSessionConnectionCreated obj cb SignalConnectAfter--connectSessionConnectionCreated :: (GObject a, MonadIO m) =>-                                   a -> SessionConnectionCreatedCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionConnectionCreated obj cb after = liftIO $ do-    cb' <- mkSessionConnectionCreatedCallback (sessionConnectionCreatedCallbackWrapper cb)-    connectSignalFunPtr obj "connection-created" cb' after---- signal Session::request-queued-type SessionRequestQueuedCallback =-    Message ->-    IO ()--noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback-noSessionRequestQueuedCallback = Nothing--type SessionRequestQueuedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestQueuedCallback :: SessionRequestQueuedCallbackC -> IO (FunPtr SessionRequestQueuedCallbackC)--sessionRequestQueuedClosure :: SessionRequestQueuedCallback -> IO Closure-sessionRequestQueuedClosure cb = newCClosure =<< mkSessionRequestQueuedCallback wrapped-    where wrapped = sessionRequestQueuedCallbackWrapper cb--sessionRequestQueuedCallbackWrapper ::-    SessionRequestQueuedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionRequestQueuedCallbackWrapper _cb _ msg _ = do-    msg' <- (newObject Message) msg-    _cb  msg'--onSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId-onSessionRequestQueued obj cb = liftIO $ connectSessionRequestQueued obj cb SignalConnectBefore-afterSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId-afterSessionRequestQueued obj cb = connectSessionRequestQueued obj cb SignalConnectAfter--connectSessionRequestQueued :: (GObject a, MonadIO m) =>-                               a -> SessionRequestQueuedCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionRequestQueued obj cb after = liftIO $ do-    cb' <- mkSessionRequestQueuedCallback (sessionRequestQueuedCallbackWrapper cb)-    connectSignalFunPtr obj "request-queued" cb' after---- signal Session::request-started-type SessionRequestStartedCallback =-    Message ->-    Socket ->-    IO ()--noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback-noSessionRequestStartedCallback = Nothing--type SessionRequestStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestStartedCallback :: SessionRequestStartedCallbackC -> IO (FunPtr SessionRequestStartedCallbackC)--sessionRequestStartedClosure :: SessionRequestStartedCallback -> IO Closure-sessionRequestStartedClosure cb = newCClosure =<< mkSessionRequestStartedCallback wrapped-    where wrapped = sessionRequestStartedCallbackWrapper cb--sessionRequestStartedCallbackWrapper ::-    SessionRequestStartedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Socket ->-    Ptr () ->-    IO ()-sessionRequestStartedCallbackWrapper _cb _ msg socket _ = do-    msg' <- (newObject Message) msg-    socket' <- (newObject Socket) socket-    _cb  msg' socket'--onSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId-onSessionRequestStarted obj cb = liftIO $ connectSessionRequestStarted obj cb SignalConnectBefore-afterSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId-afterSessionRequestStarted obj cb = connectSessionRequestStarted obj cb SignalConnectAfter--connectSessionRequestStarted :: (GObject a, MonadIO m) =>-                                a -> SessionRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionRequestStarted obj cb after = liftIO $ do-    cb' <- mkSessionRequestStartedCallback (sessionRequestStartedCallbackWrapper cb)-    connectSignalFunPtr obj "request-started" cb' after---- signal Session::request-unqueued-type SessionRequestUnqueuedCallback =-    Message ->-    IO ()--noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback-noSessionRequestUnqueuedCallback = Nothing--type SessionRequestUnqueuedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestUnqueuedCallback :: SessionRequestUnqueuedCallbackC -> IO (FunPtr SessionRequestUnqueuedCallbackC)--sessionRequestUnqueuedClosure :: SessionRequestUnqueuedCallback -> IO Closure-sessionRequestUnqueuedClosure cb = newCClosure =<< mkSessionRequestUnqueuedCallback wrapped-    where wrapped = sessionRequestUnqueuedCallbackWrapper cb--sessionRequestUnqueuedCallbackWrapper ::-    SessionRequestUnqueuedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionRequestUnqueuedCallbackWrapper _cb _ msg _ = do-    msg' <- (newObject Message) msg-    _cb  msg'--onSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId-onSessionRequestUnqueued obj cb = liftIO $ connectSessionRequestUnqueued obj cb SignalConnectBefore-afterSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId-afterSessionRequestUnqueued obj cb = connectSessionRequestUnqueued obj cb SignalConnectAfter--connectSessionRequestUnqueued :: (GObject a, MonadIO m) =>-                                 a -> SessionRequestUnqueuedCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionRequestUnqueued obj cb after = liftIO $ do-    cb' <- mkSessionRequestUnqueuedCallback (sessionRequestUnqueuedCallbackWrapper cb)-    connectSignalFunPtr obj "request-unqueued" cb' after---- signal Session::tunneling-type SessionTunnelingCallback =-    GObject.Object ->-    IO ()--noSessionTunnelingCallback :: Maybe SessionTunnelingCallback-noSessionTunnelingCallback = Nothing--type SessionTunnelingCallbackC =-    Ptr () ->                               -- object-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionTunnelingCallback :: SessionTunnelingCallbackC -> IO (FunPtr SessionTunnelingCallbackC)--sessionTunnelingClosure :: SessionTunnelingCallback -> IO Closure-sessionTunnelingClosure cb = newCClosure =<< mkSessionTunnelingCallback wrapped-    where wrapped = sessionTunnelingCallbackWrapper cb--sessionTunnelingCallbackWrapper ::-    SessionTunnelingCallback ->-    Ptr () ->-    Ptr GObject.Object ->-    Ptr () ->-    IO ()-sessionTunnelingCallbackWrapper _cb _ connection _ = do-    connection' <- (newObject GObject.Object) connection-    _cb  connection'--onSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId-onSessionTunneling obj cb = liftIO $ connectSessionTunneling obj cb SignalConnectBefore-afterSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId-afterSessionTunneling obj cb = connectSessionTunneling obj cb SignalConnectAfter--connectSessionTunneling :: (GObject a, MonadIO m) =>-                           a -> SessionTunnelingCallback -> SignalConnectMode -> m SignalHandlerId-connectSessionTunneling obj cb after = liftIO $ do-    cb' <- mkSessionTunnelingCallback (sessionTunnelingCallbackWrapper cb)-    connectSignalFunPtr obj "tunneling" cb' after---- object SessionAsync -newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync)-noSessionAsync :: Maybe SessionAsync-noSessionAsync = Nothing--foreign import ccall "soup_session_async_get_type"-    c_soup_session_async_get_type :: IO GType--type instance ParentTypes SessionAsync = '[Session, GObject.Object]--instance GObject SessionAsync where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_async_get_type-    --class GObject o => SessionAsyncK o-instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o--toSessionAsync :: SessionAsyncK o => o -> IO SessionAsync-toSessionAsync = unsafeCastTo SessionAsync---- method SessionAsync::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "SessionAsync"--- throws : False--- Skip return : False--foreign import ccall "soup_session_async_new" soup_session_async_new :: -    IO (Ptr SessionAsync)--{-# DEPRECATED sessionAsyncNew ["#SoupSessionAsync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}-sessionAsyncNew ::-    (MonadIO m) =>-    m SessionAsync-sessionAsyncNew  = liftIO $ do-    result <- soup_session_async_new-    checkUnexpectedReturnNULL "soup_session_async_new" result-    result' <- (wrapObject SessionAsync) result-    return result'---- callback SessionCallback-sessionCallbackClosure :: SessionCallback -> IO Closure-sessionCallbackClosure cb = newCClosure =<< mkSessionCallback wrapped-    where wrapped = sessionCallbackWrapper Nothing cb--type SessionCallbackC =-    Ptr Session ->-    Ptr Message ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSessionCallback :: SessionCallbackC -> IO (FunPtr SessionCallbackC)--type SessionCallback =-    Session ->-    Message ->-    IO ()--noSessionCallback :: Maybe SessionCallback-noSessionCallback = Nothing--sessionCallbackWrapper ::-    Maybe (Ptr (FunPtr (SessionCallbackC))) ->-    SessionCallback ->-    Ptr Session ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionCallbackWrapper funptrptr _cb session msg _ = do-    session' <- (newObject Session) session-    msg' <- (newObject Message) msg-    _cb  session' msg'-    maybeReleaseFunPtr funptrptr---- interface SessionFeature --newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature)-noSessionFeature :: Maybe SessionFeature-noSessionFeature = Nothing--foreign import ccall "soup_session_feature_get_type"-    c_soup_session_feature_get_type :: IO GType--type instance ParentTypes SessionFeature = '[GObject.Object]--instance GObject SessionFeature where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_feature_get_type-    --class GObject o => SessionFeatureK o-instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o--toSessionFeature :: SessionFeatureK o => o -> IO SessionFeature-toSessionFeature = unsafeCastTo SessionFeature---- method SessionFeature::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_add_feature" soup_session_feature_add_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureAddFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    m Bool-sessionFeatureAddFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_add_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method SessionFeature::attach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_attach" soup_session_feature_attach :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()---sessionFeatureAttach ::-    (MonadIO m, SessionFeatureK a, SessionK b) =>-    a ->                                    -- _obj-    b ->                                    -- session-    m ()-sessionFeatureAttach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_session_feature_attach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()---- method SessionFeature::detach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_detach" soup_session_feature_detach :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()---sessionFeatureDetach ::-    (MonadIO m, SessionFeatureK a, SessionK b) =>-    a ->                                    -- _obj-    b ->                                    -- session-    m ()-sessionFeatureDetach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_session_feature_detach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()---- method SessionFeature::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_has_feature" soup_session_feature_has_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureHasFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    m Bool-sessionFeatureHasFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_has_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method SessionFeature::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_remove_feature" soup_session_feature_remove_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureRemoveFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a ->                                    -- _obj-    GType ->                                -- type-    m Bool-sessionFeatureRemoveFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_remove_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- object SessionSync -newtype SessionSync = SessionSync (ForeignPtr SessionSync)-noSessionSync :: Maybe SessionSync-noSessionSync = Nothing--foreign import ccall "soup_session_sync_get_type"-    c_soup_session_sync_get_type :: IO GType--type instance ParentTypes SessionSync = '[Session, GObject.Object]--instance GObject SessionSync where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_sync_get_type-    --class GObject o => SessionSyncK o-instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o--toSessionSync :: SessionSyncK o => o -> IO SessionSync-toSessionSync = unsafeCastTo SessionSync---- method SessionSync::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Soup" "SessionSync"--- throws : False--- Skip return : False--foreign import ccall "soup_session_sync_new" soup_session_sync_new :: -    IO (Ptr SessionSync)--{-# DEPRECATED sessionSyncNew ["#SoupSessionSync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}-sessionSyncNew ::-    (MonadIO m) =>-    m SessionSync-sessionSyncNew  = liftIO $ do-    result <- soup_session_sync_new-    checkUnexpectedReturnNULL "soup_session_sync_new" result-    result' <- (wrapObject SessionSync) result-    return result'---- object Socket -newtype Socket = Socket (ForeignPtr Socket)-noSocket :: Maybe Socket-noSocket = Nothing--foreign import ccall "soup_socket_get_type"-    c_soup_socket_get_type :: IO GType--type instance ParentTypes Socket = '[GObject.Object, Gio.Initable]--instance GObject Socket where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_socket_get_type-    --class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o--toSocket :: SocketK o => o -> IO Socket-toSocket = unsafeCastTo Socket---- method Socket::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_socket_connect_async" soup_socket_connect_async :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr SocketCallbackC ->               -- callback : TInterface "Soup" "SocketCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---socketConnectAsync ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    SocketCallback ->                       -- callback-    m ()-socketConnectAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr SocketCallbackC))-    callback' <- mkSocketCallback (socketCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let user_data = nullPtr-    soup_socket_connect_async _obj' maybeCancellable callback' user_data-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()---- method Socket::connect_sync--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_socket_connect_sync" soup_socket_connect_sync :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO Word32---socketConnectSync ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    m Word32-socketConnectSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_connect_sync _obj' maybeCancellable-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result---- method Socket::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_socket_disconnect" soup_socket_disconnect :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO ()---socketDisconnect ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m ()-socketDisconnect _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_socket_disconnect _obj'-    touchManagedPtr _obj-    return ()---- method Socket::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_fd" soup_socket_get_fd :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO Int32---socketGetFd ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Int32-socketGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_fd _obj'-    touchManagedPtr _obj-    return result---- method Socket::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO (Ptr Address)---socketGetLocalAddress ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Address-socketGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_local_address _obj'-    checkUnexpectedReturnNULL "soup_socket_get_local_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'---- method Socket::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Address"--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO (Ptr Address)---socketGetRemoteAddress ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Address-socketGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_remote_address _obj'-    checkUnexpectedReturnNULL "soup_socket_get_remote_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'---- method Socket::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_socket_is_connected" soup_socket_is_connected :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketIsConnected ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Bool-socketIsConnected _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_is_connected _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Socket::is_ssl--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_socket_is_ssl" soup_socket_is_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketIsSsl ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Bool-socketIsSsl _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_is_ssl _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Socket::listen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_socket_listen" soup_socket_listen :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketListen ::-    (MonadIO m, SocketK a) =>-    a ->                                    -- _obj-    m Bool-socketListen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_listen _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Socket::read--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "SocketIOStatus"--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read" soup_socket_read :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nread : TBasicType TUInt64-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketRead ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    ByteString ->                           -- buffer-    Maybe (b) ->                            -- cancellable-    m (SocketIOStatus,Word64)-socketRead _obj buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read _obj' buffer' len nread maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )---- method Socket::read_until--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "SocketIOStatus"--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read_until" soup_socket_read_until :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr () ->                               -- boundary : TBasicType TVoid-    Word64 ->                               -- boundary_len : TBasicType TUInt64-    Ptr Word64 ->                           -- nread : TBasicType TUInt64-    CInt ->                                 -- got_boundary : TBasicType TBoolean-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketReadUntil ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    ByteString ->                           -- buffer-    Ptr () ->                               -- boundary-    Word64 ->                               -- boundary_len-    Bool ->                                 -- got_boundary-    Maybe (b) ->                            -- cancellable-    m (SocketIOStatus,Word64)-socketReadUntil _obj buffer boundary boundary_len got_boundary cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    let got_boundary' = (fromIntegral . fromEnum) got_boundary-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read_until _obj' buffer' len boundary boundary_len nread got_boundary' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )---- method Socket::start_proxy_ssl--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_socket_start_proxy_ssl" soup_socket_start_proxy_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    CString ->                              -- ssl_host : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO CInt---socketStartProxySsl ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    T.Text ->                               -- ssl_host-    Maybe (b) ->                            -- cancellable-    m Bool-socketStartProxySsl _obj ssl_host cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ssl_host' <- textToCString ssl_host-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_proxy_ssl _obj' ssl_host' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem ssl_host'-    return result'---- method Socket::start_ssl--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_socket_start_ssl" soup_socket_start_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO CInt---socketStartSsl ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    Maybe (b) ->                            -- cancellable-    m Bool-socketStartSsl _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_ssl _obj' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'---- method Socket::write--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "SocketIOStatus"--- throws : True--- Skip return : False--foreign import ccall "soup_socket_write" soup_socket_write :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nwrote : TBasicType TUInt64-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketWrite ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a ->                                    -- _obj-    ByteString ->                           -- buffer-    Maybe (b) ->                            -- cancellable-    m (SocketIOStatus,Word64)-socketWrite _obj buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nwrote <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_write _obj' buffer' len nwrote maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nwrote' <- peek nwrote-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nwrote-        return (result', nwrote')-     ) (do-        freeMem buffer'-        freeMem nwrote-     )---- signal Socket::disconnected-type SocketDisconnectedCallback =-    IO ()--noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback-noSocketDisconnectedCallback = Nothing--type SocketDisconnectedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketDisconnectedCallback :: SocketDisconnectedCallbackC -> IO (FunPtr SocketDisconnectedCallbackC)--socketDisconnectedClosure :: SocketDisconnectedCallback -> IO Closure-socketDisconnectedClosure cb = newCClosure =<< mkSocketDisconnectedCallback wrapped-    where wrapped = socketDisconnectedCallbackWrapper cb--socketDisconnectedCallbackWrapper ::-    SocketDisconnectedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketDisconnectedCallbackWrapper _cb _ _ = do-    _cb --onSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-onSocketDisconnected obj cb = liftIO $ connectSocketDisconnected obj cb SignalConnectBefore-afterSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-afterSocketDisconnected obj cb = connectSocketDisconnected obj cb SignalConnectAfter--connectSocketDisconnected :: (GObject a, MonadIO m) =>-                             a -> SocketDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketDisconnected obj cb after = liftIO $ do-    cb' <- mkSocketDisconnectedCallback (socketDisconnectedCallbackWrapper cb)-    connectSignalFunPtr obj "disconnected" cb' after---- signal Socket::event-type SocketEventCallback =-    Gio.SocketClientEvent ->-    Gio.IOStream ->-    IO ()--noSocketEventCallback :: Maybe SocketEventCallback-noSocketEventCallback = Nothing--type SocketEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketEventCallback :: SocketEventCallbackC -> IO (FunPtr SocketEventCallbackC)--socketEventClosure :: SocketEventCallback -> IO Closure-socketEventClosure cb = newCClosure =<< mkSocketEventCallback wrapped-    where wrapped = socketEventCallbackWrapper cb--socketEventCallbackWrapper ::-    SocketEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->-    IO ()-socketEventCallbackWrapper _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream) connection-    _cb  event' connection'--onSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-onSocketEvent obj cb = liftIO $ connectSocketEvent obj cb SignalConnectBefore-afterSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-afterSocketEvent obj cb = connectSocketEvent obj cb SignalConnectAfter--connectSocketEvent :: (GObject a, MonadIO m) =>-                      a -> SocketEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketEvent obj cb after = liftIO $ do-    cb' <- mkSocketEventCallback (socketEventCallbackWrapper cb)-    connectSignalFunPtr obj "event" cb' after---- signal Socket::new-connection-type SocketNewConnectionCallback =-    Socket ->-    IO ()--noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback-noSocketNewConnectionCallback = Nothing--type SocketNewConnectionCallbackC =-    Ptr () ->                               -- object-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketNewConnectionCallback :: SocketNewConnectionCallbackC -> IO (FunPtr SocketNewConnectionCallbackC)--socketNewConnectionClosure :: SocketNewConnectionCallback -> IO Closure-socketNewConnectionClosure cb = newCClosure =<< mkSocketNewConnectionCallback wrapped-    where wrapped = socketNewConnectionCallbackWrapper cb--socketNewConnectionCallbackWrapper ::-    SocketNewConnectionCallback ->-    Ptr () ->-    Ptr Socket ->-    Ptr () ->-    IO ()-socketNewConnectionCallbackWrapper _cb _ new _ = do-    new' <- (newObject Socket) new-    _cb  new'--onSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-onSocketNewConnection obj cb = liftIO $ connectSocketNewConnection obj cb SignalConnectBefore-afterSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-afterSocketNewConnection obj cb = connectSocketNewConnection obj cb SignalConnectAfter--connectSocketNewConnection :: (GObject a, MonadIO m) =>-                              a -> SocketNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketNewConnection obj cb after = liftIO $ do-    cb' <- mkSocketNewConnectionCallback (socketNewConnectionCallbackWrapper cb)-    connectSignalFunPtr obj "new-connection" cb' after---- signal Socket::readable-type SocketReadableCallback =-    IO ()--noSocketReadableCallback :: Maybe SocketReadableCallback-noSocketReadableCallback = Nothing--type SocketReadableCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketReadableCallback :: SocketReadableCallbackC -> IO (FunPtr SocketReadableCallbackC)--socketReadableClosure :: SocketReadableCallback -> IO Closure-socketReadableClosure cb = newCClosure =<< mkSocketReadableCallback wrapped-    where wrapped = socketReadableCallbackWrapper cb--socketReadableCallbackWrapper ::-    SocketReadableCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketReadableCallbackWrapper _cb _ _ = do-    _cb --onSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-onSocketReadable obj cb = liftIO $ connectSocketReadable obj cb SignalConnectBefore-afterSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-afterSocketReadable obj cb = connectSocketReadable obj cb SignalConnectAfter--connectSocketReadable :: (GObject a, MonadIO m) =>-                         a -> SocketReadableCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketReadable obj cb after = liftIO $ do-    cb' <- mkSocketReadableCallback (socketReadableCallbackWrapper cb)-    connectSignalFunPtr obj "readable" cb' after---- signal Socket::writable-type SocketWritableCallback =-    IO ()--noSocketWritableCallback :: Maybe SocketWritableCallback-noSocketWritableCallback = Nothing--type SocketWritableCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketWritableCallback :: SocketWritableCallbackC -> IO (FunPtr SocketWritableCallbackC)--socketWritableClosure :: SocketWritableCallback -> IO Closure-socketWritableClosure cb = newCClosure =<< mkSocketWritableCallback wrapped-    where wrapped = socketWritableCallbackWrapper cb--socketWritableCallbackWrapper ::-    SocketWritableCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketWritableCallbackWrapper _cb _ _ = do-    _cb --onSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-onSocketWritable obj cb = liftIO $ connectSocketWritable obj cb SignalConnectBefore-afterSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-afterSocketWritable obj cb = connectSocketWritable obj cb SignalConnectAfter--connectSocketWritable :: (GObject a, MonadIO m) =>-                         a -> SocketWritableCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketWritable obj cb after = liftIO $ do-    cb' <- mkSocketWritableCallback (socketWritableCallbackWrapper cb)-    connectSignalFunPtr obj "writable" cb' after---- callback SocketCallback-socketCallbackClosure :: SocketCallback -> IO Closure-socketCallbackClosure cb = newCClosure =<< mkSocketCallback wrapped-    where wrapped = socketCallbackWrapper Nothing cb--type SocketCallbackC =-    Ptr Socket ->-    Word32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSocketCallback :: SocketCallbackC -> IO (FunPtr SocketCallbackC)--type SocketCallback =-    Socket ->-    Word32 ->-    IO ()--noSocketCallback :: Maybe SocketCallback-noSocketCallback = Nothing--socketCallbackWrapper ::-    Maybe (Ptr (FunPtr (SocketCallbackC))) ->-    SocketCallback ->-    Ptr Socket ->-    Word32 ->-    Ptr () ->-    IO ()-socketCallbackWrapper funptrptr _cb sock status _ = do-    sock' <- (newObject Socket) sock-    _cb  sock' status-    maybeReleaseFunPtr funptrptr---- Enum SocketIOStatus--data SocketIOStatus = -      SocketIOStatusOk-    | SocketIOStatusWouldBlock-    | SocketIOStatusEof-    | SocketIOStatusError-    | AnotherSocketIOStatus Int-    deriving (Show, Eq)--instance Enum SocketIOStatus where-    fromEnum SocketIOStatusOk = 0-    fromEnum SocketIOStatusWouldBlock = 1-    fromEnum SocketIOStatusEof = 2-    fromEnum SocketIOStatusError = 3-    fromEnum (AnotherSocketIOStatus k) = k--    toEnum 0 = SocketIOStatusOk-    toEnum 1 = SocketIOStatusWouldBlock-    toEnum 2 = SocketIOStatusEof-    toEnum 3 = SocketIOStatusError-    toEnum k = AnotherSocketIOStatus k--foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type :: -    IO GType--instance BoxedEnum SocketIOStatus where-    boxedEnumType _ = c_soup_socket_io_status_get_type---- Enum Status--data Status = -      StatusNone-    | StatusCancelled-    | StatusCantResolve-    | StatusCantResolveProxy-    | StatusCantConnect-    | StatusCantConnectProxy-    | StatusSslFailed-    | StatusIoError-    | StatusMalformed-    | StatusTryAgain-    | StatusTooManyRedirects-    | StatusTlsFailed-    | StatusContinue-    | StatusSwitchingProtocols-    | StatusProcessing-    | StatusOk-    | StatusCreated-    | StatusAccepted-    | StatusNonAuthoritative-    | StatusNoContent-    | StatusResetContent-    | StatusPartialContent-    | StatusMultiStatus-    | StatusMultipleChoices-    | StatusMovedPermanently-    | StatusFound-    | StatusMovedTemporarily-    | StatusSeeOther-    | StatusNotModified-    | StatusUseProxy-    | StatusNotAppearingInThisProtocol-    | StatusTemporaryRedirect-    | StatusBadRequest-    | StatusUnauthorized-    | StatusPaymentRequired-    | StatusForbidden-    | StatusNotFound-    | StatusMethodNotAllowed-    | StatusNotAcceptable-    | StatusProxyAuthenticationRequired-    | StatusProxyUnauthorized-    | StatusRequestTimeout-    | StatusConflict-    | StatusGone-    | StatusLengthRequired-    | StatusPreconditionFailed-    | StatusRequestEntityTooLarge-    | StatusRequestUriTooLong-    | StatusUnsupportedMediaType-    | StatusRequestedRangeNotSatisfiable-    | StatusInvalidRange-    | StatusExpectationFailed-    | StatusUnprocessableEntity-    | StatusLocked-    | StatusFailedDependency-    | StatusInternalServerError-    | StatusNotImplemented-    | StatusBadGateway-    | StatusServiceUnavailable-    | StatusGatewayTimeout-    | StatusHttpVersionNotSupported-    | StatusInsufficientStorage-    | StatusNotExtended-    | AnotherStatus Int-    deriving (Show, Eq)--instance Enum Status where-    fromEnum StatusNone = 0-    fromEnum StatusCancelled = 1-    fromEnum StatusCantResolve = 2-    fromEnum StatusCantResolveProxy = 3-    fromEnum StatusCantConnect = 4-    fromEnum StatusCantConnectProxy = 5-    fromEnum StatusSslFailed = 6-    fromEnum StatusIoError = 7-    fromEnum StatusMalformed = 8-    fromEnum StatusTryAgain = 9-    fromEnum StatusTooManyRedirects = 10-    fromEnum StatusTlsFailed = 11-    fromEnum StatusContinue = 100-    fromEnum StatusSwitchingProtocols = 101-    fromEnum StatusProcessing = 102-    fromEnum StatusOk = 200-    fromEnum StatusCreated = 201-    fromEnum StatusAccepted = 202-    fromEnum StatusNonAuthoritative = 203-    fromEnum StatusNoContent = 204-    fromEnum StatusResetContent = 205-    fromEnum StatusPartialContent = 206-    fromEnum StatusMultiStatus = 207-    fromEnum StatusMultipleChoices = 300-    fromEnum StatusMovedPermanently = 301-    fromEnum StatusFound = 302-    fromEnum StatusMovedTemporarily = 302-    fromEnum StatusSeeOther = 303-    fromEnum StatusNotModified = 304-    fromEnum StatusUseProxy = 305-    fromEnum StatusNotAppearingInThisProtocol = 306-    fromEnum StatusTemporaryRedirect = 307-    fromEnum StatusBadRequest = 400-    fromEnum StatusUnauthorized = 401-    fromEnum StatusPaymentRequired = 402-    fromEnum StatusForbidden = 403-    fromEnum StatusNotFound = 404-    fromEnum StatusMethodNotAllowed = 405-    fromEnum StatusNotAcceptable = 406-    fromEnum StatusProxyAuthenticationRequired = 407-    fromEnum StatusProxyUnauthorized = 407-    fromEnum StatusRequestTimeout = 408-    fromEnum StatusConflict = 409-    fromEnum StatusGone = 410-    fromEnum StatusLengthRequired = 411-    fromEnum StatusPreconditionFailed = 412-    fromEnum StatusRequestEntityTooLarge = 413-    fromEnum StatusRequestUriTooLong = 414-    fromEnum StatusUnsupportedMediaType = 415-    fromEnum StatusRequestedRangeNotSatisfiable = 416-    fromEnum StatusInvalidRange = 416-    fromEnum StatusExpectationFailed = 417-    fromEnum StatusUnprocessableEntity = 422-    fromEnum StatusLocked = 423-    fromEnum StatusFailedDependency = 424-    fromEnum StatusInternalServerError = 500-    fromEnum StatusNotImplemented = 501-    fromEnum StatusBadGateway = 502-    fromEnum StatusServiceUnavailable = 503-    fromEnum StatusGatewayTimeout = 504-    fromEnum StatusHttpVersionNotSupported = 505-    fromEnum StatusInsufficientStorage = 507-    fromEnum StatusNotExtended = 510-    fromEnum (AnotherStatus k) = k--    toEnum 0 = StatusNone-    toEnum 1 = StatusCancelled-    toEnum 2 = StatusCantResolve-    toEnum 3 = StatusCantResolveProxy-    toEnum 4 = StatusCantConnect-    toEnum 5 = StatusCantConnectProxy-    toEnum 6 = StatusSslFailed-    toEnum 7 = StatusIoError-    toEnum 8 = StatusMalformed-    toEnum 9 = StatusTryAgain-    toEnum 10 = StatusTooManyRedirects-    toEnum 11 = StatusTlsFailed-    toEnum 100 = StatusContinue-    toEnum 101 = StatusSwitchingProtocols-    toEnum 102 = StatusProcessing-    toEnum 200 = StatusOk-    toEnum 201 = StatusCreated-    toEnum 202 = StatusAccepted-    toEnum 203 = StatusNonAuthoritative-    toEnum 204 = StatusNoContent-    toEnum 205 = StatusResetContent-    toEnum 206 = StatusPartialContent-    toEnum 207 = StatusMultiStatus-    toEnum 300 = StatusMultipleChoices-    toEnum 301 = StatusMovedPermanently-    toEnum 302 = StatusFound-    toEnum 303 = StatusSeeOther-    toEnum 304 = StatusNotModified-    toEnum 305 = StatusUseProxy-    toEnum 306 = StatusNotAppearingInThisProtocol-    toEnum 307 = StatusTemporaryRedirect-    toEnum 400 = StatusBadRequest-    toEnum 401 = StatusUnauthorized-    toEnum 402 = StatusPaymentRequired-    toEnum 403 = StatusForbidden-    toEnum 404 = StatusNotFound-    toEnum 405 = StatusMethodNotAllowed-    toEnum 406 = StatusNotAcceptable-    toEnum 407 = StatusProxyAuthenticationRequired-    toEnum 408 = StatusRequestTimeout-    toEnum 409 = StatusConflict-    toEnum 410 = StatusGone-    toEnum 411 = StatusLengthRequired-    toEnum 412 = StatusPreconditionFailed-    toEnum 413 = StatusRequestEntityTooLarge-    toEnum 414 = StatusRequestUriTooLong-    toEnum 415 = StatusUnsupportedMediaType-    toEnum 416 = StatusRequestedRangeNotSatisfiable-    toEnum 417 = StatusExpectationFailed-    toEnum 422 = StatusUnprocessableEntity-    toEnum 423 = StatusLocked-    toEnum 424 = StatusFailedDependency-    toEnum 500 = StatusInternalServerError-    toEnum 501 = StatusNotImplemented-    toEnum 502 = StatusBadGateway-    toEnum 503 = StatusServiceUnavailable-    toEnum 504 = StatusGatewayTimeout-    toEnum 505 = StatusHttpVersionNotSupported-    toEnum 507 = StatusInsufficientStorage-    toEnum 510 = StatusNotExtended-    toEnum k = AnotherStatus k--foreign import ccall "soup_status_get_type" c_soup_status_get_type :: -    IO GType--instance BoxedEnum Status where-    boxedEnumType _ = c_soup_status_get_type---- Enum TLDError--data TLDError = -      TLDErrorInvalidHostname-    | TLDErrorIsIpAddress-    | TLDErrorNotEnoughDomains-    | TLDErrorNoBaseDomain-    | AnotherTLDError Int-    deriving (Show, Eq)--instance Enum TLDError where-    fromEnum TLDErrorInvalidHostname = 0-    fromEnum TLDErrorIsIpAddress = 1-    fromEnum TLDErrorNotEnoughDomains = 2-    fromEnum TLDErrorNoBaseDomain = 3-    fromEnum (AnotherTLDError k) = k--    toEnum 0 = TLDErrorInvalidHostname-    toEnum 1 = TLDErrorIsIpAddress-    toEnum 2 = TLDErrorNotEnoughDomains-    toEnum 3 = TLDErrorNoBaseDomain-    toEnum k = AnotherTLDError k--instance GErrorClass TLDError where-    gerrorClassDomain _ = "soup_tld_error_quark"--catchTLDError ::-    IO a ->-    (TLDError -> GErrorMessage -> IO a) ->-    IO a-catchTLDError = catchGErrorJustDomain--handleTLDError ::-    (TLDError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleTLDError = handleGErrorJustDomain--foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type :: -    IO GType--instance BoxedEnum TLDError where-    boxedEnumType _ = c_soup_tld_error_get_type---- struct URI-newtype URI = URI (ForeignPtr URI)-noURI :: Maybe URI-noURI = Nothing--foreign import ccall "soup_uri_get_type" c_soup_uri_get_type :: -    IO GType--instance BoxedObject URI where-    boxedType _ = c_soup_uri_get_type--uRIReadScheme :: URI -> IO T.Text-uRIReadScheme s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadUser :: URI -> IO T.Text-uRIReadUser s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadPassword :: URI -> IO T.Text-uRIReadPassword s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadHost :: URI -> IO T.Text-uRIReadHost s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadPort :: URI -> IO Word32-uRIReadPort s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--uRIReadPath :: URI -> IO T.Text-uRIReadPath s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadQuery :: URI -> IO T.Text-uRIReadQuery s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CString-    val' <- cstringToText val-    return val'--uRIReadFragment :: URI -> IO T.Text-uRIReadFragment s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CString-    val' <- cstringToText val-    return val'---- method URI::new--- method type : Constructor--- Args : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new" soup_uri_new :: -    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)---uRINew ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- uri_string-    m URI-uRINew uri_string = liftIO $ do-    maybeUri_string <- case uri_string of-        Nothing -> return nullPtr-        Just jUri_string -> do-            jUri_string' <- textToCString jUri_string-            return jUri_string'-    result <- soup_uri_new maybeUri_string-    checkUnexpectedReturnNULL "soup_uri_new" result-    result' <- (wrapBoxed URI) result-    freeMem maybeUri_string-    return result'---- method URI::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy" soup_uri_copy :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO (Ptr URI)---uRICopy ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m URI-uRICopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_copy _obj'-    checkUnexpectedReturnNULL "soup_uri_copy" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    return result'---- method URI::copy_host--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO (Ptr URI)---uRICopyHost ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m URI-uRICopyHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_copy_host _obj'-    checkUnexpectedReturnNULL "soup_uri_copy_host" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    return result'---- method URI::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_uri_equal" soup_uri_equal :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr URI ->                              -- uri2 : TInterface "Soup" "URI"-    IO CInt---uRIEqual ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    URI ->                                  -- uri2-    m Bool-uRIEqual _obj uri2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let uri2' = unsafeManagedPtrGetPtr uri2-    result <- soup_uri_equal _obj' uri2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr uri2-    return result'---- method URI::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_free" soup_uri_free :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO ()---uRIFree ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m ()-uRIFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_uri_free _obj'-    touchManagedPtr _obj-    return ()---- method URI::get_fragment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_fragment" soup_uri_get_fragment :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetFragment ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetFragment _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_fragment _obj'-    checkUnexpectedReturnNULL "soup_uri_get_fragment" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_host--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_host" soup_uri_get_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetHost ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_host _obj'-    checkUnexpectedReturnNULL "soup_uri_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_password" soup_uri_get_password :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetPassword ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_password _obj'-    checkUnexpectedReturnNULL "soup_uri_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_path" soup_uri_get_path :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetPath ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_path _obj'-    checkUnexpectedReturnNULL "soup_uri_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_port--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_port" soup_uri_get_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO Word32---uRIGetPort ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m Word32-uRIGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_port _obj'-    touchManagedPtr _obj-    return result---- method URI::get_query--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_query" soup_uri_get_query :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetQuery ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetQuery _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_query _obj'-    checkUnexpectedReturnNULL "soup_uri_get_query" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_scheme" soup_uri_get_scheme :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetScheme ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_scheme _obj'-    checkUnexpectedReturnNULL "soup_uri_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::get_user--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_user" soup_uri_get_user :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetUser ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m T.Text-uRIGetUser _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_user _obj'-    checkUnexpectedReturnNULL "soup_uri_get_user" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method URI::host_equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_uri_host_equal" soup_uri_host_equal :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr URI ->                              -- v2 : TInterface "Soup" "URI"-    IO CInt---uRIHostEqual ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    URI ->                                  -- v2-    m Bool-uRIHostEqual _obj v2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let v2' = unsafeManagedPtrGetPtr v2-    result <- soup_uri_host_equal _obj' v2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr v2-    return result'---- method URI::host_hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_uri_host_hash" soup_uri_host_hash :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO Word32---uRIHostHash ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m Word32-uRIHostHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_host_hash _obj'-    touchManagedPtr _obj-    return result---- method URI::new_with_base--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)---uRINewWithBase ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    T.Text ->                               -- uri_string-    m URI-uRINewWithBase _obj uri_string = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri_string' <- textToCString uri_string-    result <- soup_uri_new_with_base _obj' uri_string'-    checkUnexpectedReturnNULL "soup_uri_new_with_base" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    freeMem uri_string'-    return result'---- method URI::set_fragment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_fragment" soup_uri_set_fragment :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- fragment : TBasicType TUTF8-    IO ()---uRISetFragment ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Maybe (T.Text) ->                       -- fragment-    m ()-uRISetFragment _obj fragment = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeFragment <- case fragment of-        Nothing -> return nullPtr-        Just jFragment -> do-            jFragment' <- textToCString jFragment-            return jFragment'-    soup_uri_set_fragment _obj' maybeFragment-    touchManagedPtr _obj-    freeMem maybeFragment-    return ()---- method URI::set_host--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_host" soup_uri_set_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- host : TBasicType TUTF8-    IO ()---uRISetHost ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Maybe (T.Text) ->                       -- host-    m ()-uRISetHost _obj host = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeHost <- case host of-        Nothing -> return nullPtr-        Just jHost -> do-            jHost' <- textToCString jHost-            return jHost'-    soup_uri_set_host _obj' maybeHost-    touchManagedPtr _obj-    freeMem maybeHost-    return ()---- method URI::set_password--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_password" soup_uri_set_password :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- password : TBasicType TUTF8-    IO ()---uRISetPassword ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Maybe (T.Text) ->                       -- password-    m ()-uRISetPassword _obj password = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    soup_uri_set_password _obj' maybePassword-    touchManagedPtr _obj-    freeMem maybePassword-    return ()---- method URI::set_path--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_path" soup_uri_set_path :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---uRISetPath ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    T.Text ->                               -- path-    m ()-uRISetPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    soup_uri_set_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()---- method URI::set_port--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_port" soup_uri_set_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Word32 ->                               -- port : TBasicType TUInt32-    IO ()---uRISetPort ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Word32 ->                               -- port-    m ()-uRISetPort _obj port = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_uri_set_port _obj' port-    touchManagedPtr _obj-    return ()---- method URI::set_query--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_query" soup_uri_set_query :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- query : TBasicType TUTF8-    IO ()---uRISetQuery ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Maybe (T.Text) ->                       -- query-    m ()-uRISetQuery _obj query = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeQuery <- case query of-        Nothing -> return nullPtr-        Just jQuery -> do-            jQuery' <- textToCString jQuery-            return jQuery'-    soup_uri_set_query _obj' maybeQuery-    touchManagedPtr _obj-    freeMem maybeQuery-    return ()---- method URI::set_query_from_form--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_query_from_form" soup_uri_set_query_from_form :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr (GHashTable CString CString) ->     -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---uRISetQueryFromForm ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Map.Map T.Text T.Text ->                -- form-    m ()-uRISetQueryFromForm _obj form = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let form' = Map.toList form-    form'' <- mapFirstA textToCString form'-    form''' <- mapSecondA textToCString form''-    let form'''' = mapFirst cstringPackPtr form'''-    let form''''' = mapSecond cstringPackPtr form''''-    form'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form'''''-    soup_uri_set_query_from_form _obj' form''''''-    touchManagedPtr _obj-    unrefGHashTable form''''''-    return ()---- method URI::set_scheme--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_scheme" soup_uri_set_scheme :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---uRISetScheme ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    T.Text ->                               -- scheme-    m ()-uRISetScheme _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    scheme' <- textToCString scheme-    soup_uri_set_scheme _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()---- method URI::set_user--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_user" soup_uri_set_user :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- user : TBasicType TUTF8-    IO ()---uRISetUser ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Maybe (T.Text) ->                       -- user-    m ()-uRISetUser _obj user = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeUser <- case user of-        Nothing -> return nullPtr-        Just jUser -> do-            jUser' <- textToCString jUser-            return jUser'-    soup_uri_set_user _obj' maybeUser-    touchManagedPtr _obj-    freeMem maybeUser-    return ()---- method URI::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_to_string" soup_uri_to_string :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CInt ->                                 -- just_path_and_query : TBasicType TBoolean-    IO CString---uRIToString ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    Bool ->                                 -- just_path_and_query-    m T.Text-uRIToString _obj just_path_and_query = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let just_path_and_query' = (fromIntegral . fromEnum) just_path_and_query-    result <- soup_uri_to_string _obj' just_path_and_query'-    checkUnexpectedReturnNULL "soup_uri_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method URI::uses_default_port--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_uri_uses_default_port" soup_uri_uses_default_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CInt---uRIUsesDefaultPort ::-    (MonadIO m) =>-    URI ->                                  -- _obj-    m Bool-uRIUsesDefaultPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_uses_default_port _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- Enum WebsocketCloseCode--data WebsocketCloseCode = -      WebsocketCloseCodeNormal-    | WebsocketCloseCodeGoingAway-    | WebsocketCloseCodeProtocolError-    | WebsocketCloseCodeUnsupportedData-    | WebsocketCloseCodeNoStatus-    | WebsocketCloseCodeAbnormal-    | WebsocketCloseCodeBadData-    | WebsocketCloseCodePolicyViolation-    | WebsocketCloseCodeTooBig-    | WebsocketCloseCodeNoExtension-    | WebsocketCloseCodeServerError-    | WebsocketCloseCodeTlsHandshake-    | AnotherWebsocketCloseCode Int-    deriving (Show, Eq)--instance Enum WebsocketCloseCode where-    fromEnum WebsocketCloseCodeNormal = 1000-    fromEnum WebsocketCloseCodeGoingAway = 1001-    fromEnum WebsocketCloseCodeProtocolError = 1002-    fromEnum WebsocketCloseCodeUnsupportedData = 1003-    fromEnum WebsocketCloseCodeNoStatus = 1005-    fromEnum WebsocketCloseCodeAbnormal = 1006-    fromEnum WebsocketCloseCodeBadData = 1007-    fromEnum WebsocketCloseCodePolicyViolation = 1008-    fromEnum WebsocketCloseCodeTooBig = 1009-    fromEnum WebsocketCloseCodeNoExtension = 1010-    fromEnum WebsocketCloseCodeServerError = 1011-    fromEnum WebsocketCloseCodeTlsHandshake = 1015-    fromEnum (AnotherWebsocketCloseCode k) = k--    toEnum 1000 = WebsocketCloseCodeNormal-    toEnum 1001 = WebsocketCloseCodeGoingAway-    toEnum 1002 = WebsocketCloseCodeProtocolError-    toEnum 1003 = WebsocketCloseCodeUnsupportedData-    toEnum 1005 = WebsocketCloseCodeNoStatus-    toEnum 1006 = WebsocketCloseCodeAbnormal-    toEnum 1007 = WebsocketCloseCodeBadData-    toEnum 1008 = WebsocketCloseCodePolicyViolation-    toEnum 1009 = WebsocketCloseCodeTooBig-    toEnum 1010 = WebsocketCloseCodeNoExtension-    toEnum 1011 = WebsocketCloseCodeServerError-    toEnum 1015 = WebsocketCloseCodeTlsHandshake-    toEnum k = AnotherWebsocketCloseCode k--foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type :: -    IO GType--instance BoxedEnum WebsocketCloseCode where-    boxedEnumType _ = c_soup_websocket_close_code_get_type---- object WebsocketConnection -newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection)-noWebsocketConnection :: Maybe WebsocketConnection-noWebsocketConnection = Nothing--foreign import ccall "soup_websocket_connection_get_type"-    c_soup_websocket_connection_get_type :: IO GType--type instance ParentTypes WebsocketConnection = '[GObject.Object]--instance GObject WebsocketConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_websocket_connection_get_type-    --class GObject o => WebsocketConnectionK o-instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o--toWebsocketConnection :: WebsocketConnectionK o => o -> IO WebsocketConnection-toWebsocketConnection = unsafeCastTo WebsocketConnection---- method WebsocketConnection::new--- method type : Constructor--- Args : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "WebsocketConnection"--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: -    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CUInt ->                                -- type : TInterface "Soup" "WebsocketConnectionType"-    CString ->                              -- origin : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr WebsocketConnection)---websocketConnectionNew ::-    (MonadIO m, Gio.IOStreamK a) =>-    a ->                                    -- stream-    URI ->                                  -- uri-    WebsocketConnectionType ->              -- type-    Maybe (T.Text) ->                       -- origin-    Maybe (T.Text) ->                       -- protocol-    m WebsocketConnection-websocketConnectionNew stream uri type_ origin protocol = liftIO $ do-    let stream' = unsafeManagedPtrCastPtr stream-    let uri' = unsafeManagedPtrGetPtr uri-    let type_' = (fromIntegral . fromEnum) type_-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocol <- case protocol of-        Nothing -> return nullPtr-        Just jProtocol -> do-            jProtocol' <- textToCString jProtocol-            return jProtocol'-    result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol-    checkUnexpectedReturnNULL "soup_websocket_connection_new" result-    result' <- (wrapObject WebsocketConnection) result-    touchManagedPtr stream-    touchManagedPtr uri-    freeMem maybeOrigin-    freeMem maybeProtocol-    return result'---- method WebsocketConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_close" soup_websocket_connection_close :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    Word16 ->                               -- code : TBasicType TUInt16-    CString ->                              -- data : TBasicType TUTF8-    IO ()---websocketConnectionClose ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    Word16 ->                               -- code-    Maybe (T.Text) ->                       -- data-    m ()-websocketConnectionClose _obj code data_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- textToCString jData_-            return jData_'-    soup_websocket_connection_close _obj' code maybeData_-    touchManagedPtr _obj-    freeMem maybeData_-    return ()---- method WebsocketConnection::get_close_code--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt16--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO Word16---websocketConnectionGetCloseCode ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m Word16-websocketConnectionGetCloseCode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_close_code _obj'-    touchManagedPtr _obj-    return result---- method WebsocketConnection::get_close_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetCloseData ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m T.Text-websocketConnectionGetCloseData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_close_data _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_close_data" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "WebsocketConnectionType"--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CUInt---websocketConnectionGetConnectionType ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m WebsocketConnectionType-websocketConnectionGetConnectionType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_connection_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_io_stream--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Gio" "IOStream"--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO (Ptr Gio.IOStream)---websocketConnectionGetIoStream ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m Gio.IOStream-websocketConnectionGetIoStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_io_stream _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_io_stream" result-    result' <- (newObject Gio.IOStream) result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetOrigin ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m T.Text-websocketConnectionGetOrigin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_origin _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_origin" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetProtocol ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m T.Text-websocketConnectionGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_protocol _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_protocol" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "WebsocketState"--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CUInt---websocketConnectionGetState ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m WebsocketState-websocketConnectionGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_state _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "URI"--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO (Ptr URI)---websocketConnectionGetUri ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    m URI-websocketConnectionGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_uri _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'---- method WebsocketConnection::send_binary--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---websocketConnectionSendBinary ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    ByteString ->                           -- data-    m ()-websocketConnectionSendBinary _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrCastPtr _obj-    data_' <- packByteString data_-    soup_websocket_connection_send_binary _obj' data_' length_-    touchManagedPtr _obj-    freeMem data_'-    return ()---- method WebsocketConnection::send_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_send_text" soup_websocket_connection_send_text :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---websocketConnectionSendText ::-    (MonadIO m, WebsocketConnectionK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- text-    m ()-websocketConnectionSendText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    soup_websocket_connection_send_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()---- signal WebsocketConnection::closed-type WebsocketConnectionClosedCallback =-    IO ()--noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback-noWebsocketConnectionClosedCallback = Nothing--type WebsocketConnectionClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionClosedCallback :: WebsocketConnectionClosedCallbackC -> IO (FunPtr WebsocketConnectionClosedCallbackC)--websocketConnectionClosedClosure :: WebsocketConnectionClosedCallback -> IO Closure-websocketConnectionClosedClosure cb = newCClosure =<< mkWebsocketConnectionClosedCallback wrapped-    where wrapped = websocketConnectionClosedCallbackWrapper cb--websocketConnectionClosedCallbackWrapper ::-    WebsocketConnectionClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-websocketConnectionClosedCallbackWrapper _cb _ _ = do-    _cb --onWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-onWebsocketConnectionClosed obj cb = liftIO $ connectWebsocketConnectionClosed obj cb SignalConnectBefore-afterWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-afterWebsocketConnectionClosed obj cb = connectWebsocketConnectionClosed obj cb SignalConnectAfter--connectWebsocketConnectionClosed :: (GObject a, MonadIO m) =>-                                    a -> WebsocketConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionClosed obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionClosedCallback (websocketConnectionClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- signal WebsocketConnection::closing-type WebsocketConnectionClosingCallback =-    IO ()--noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback-noWebsocketConnectionClosingCallback = Nothing--type WebsocketConnectionClosingCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionClosingCallback :: WebsocketConnectionClosingCallbackC -> IO (FunPtr WebsocketConnectionClosingCallbackC)--websocketConnectionClosingClosure :: WebsocketConnectionClosingCallback -> IO Closure-websocketConnectionClosingClosure cb = newCClosure =<< mkWebsocketConnectionClosingCallback wrapped-    where wrapped = websocketConnectionClosingCallbackWrapper cb--websocketConnectionClosingCallbackWrapper ::-    WebsocketConnectionClosingCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-websocketConnectionClosingCallbackWrapper _cb _ _ = do-    _cb --onWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-onWebsocketConnectionClosing obj cb = liftIO $ connectWebsocketConnectionClosing obj cb SignalConnectBefore-afterWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-afterWebsocketConnectionClosing obj cb = connectWebsocketConnectionClosing obj cb SignalConnectAfter--connectWebsocketConnectionClosing :: (GObject a, MonadIO m) =>-                                     a -> WebsocketConnectionClosingCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionClosing obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionClosingCallback (websocketConnectionClosingCallbackWrapper cb)-    connectSignalFunPtr obj "closing" cb' after---- signal WebsocketConnection::error-type WebsocketConnectionErrorCallback =-    GError ->-    IO ()--noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback-noWebsocketConnectionErrorCallback = Nothing--type WebsocketConnectionErrorCallbackC =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionErrorCallback :: WebsocketConnectionErrorCallbackC -> IO (FunPtr WebsocketConnectionErrorCallbackC)--websocketConnectionErrorClosure :: WebsocketConnectionErrorCallback -> IO Closure-websocketConnectionErrorClosure cb = newCClosure =<< mkWebsocketConnectionErrorCallback wrapped-    where wrapped = websocketConnectionErrorCallbackWrapper cb--websocketConnectionErrorCallbackWrapper ::-    WebsocketConnectionErrorCallback ->-    Ptr () ->-    Ptr GError ->-    Ptr () ->-    IO ()-websocketConnectionErrorCallbackWrapper _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'--onWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-onWebsocketConnectionError obj cb = liftIO $ connectWebsocketConnectionError obj cb SignalConnectBefore-afterWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-afterWebsocketConnectionError obj cb = connectWebsocketConnectionError obj cb SignalConnectAfter--connectWebsocketConnectionError :: (GObject a, MonadIO m) =>-                                   a -> WebsocketConnectionErrorCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionError obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionErrorCallback (websocketConnectionErrorCallbackWrapper cb)-    connectSignalFunPtr obj "error" cb' after---- signal WebsocketConnection::message-type WebsocketConnectionMessageCallback =-    Int32 ->-    GLib.Bytes ->-    IO ()--noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback-noWebsocketConnectionMessageCallback = Nothing--type WebsocketConnectionMessageCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Ptr GLib.Bytes ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionMessageCallback :: WebsocketConnectionMessageCallbackC -> IO (FunPtr WebsocketConnectionMessageCallbackC)--websocketConnectionMessageClosure :: WebsocketConnectionMessageCallback -> IO Closure-websocketConnectionMessageClosure cb = newCClosure =<< mkWebsocketConnectionMessageCallback wrapped-    where wrapped = websocketConnectionMessageCallbackWrapper cb--websocketConnectionMessageCallbackWrapper ::-    WebsocketConnectionMessageCallback ->-    Ptr () ->-    Int32 ->-    Ptr GLib.Bytes ->-    Ptr () ->-    IO ()-websocketConnectionMessageCallbackWrapper _cb _ type_ message _ = do-    message' <- (newBoxed GLib.Bytes) message-    _cb  type_ message'--onWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-onWebsocketConnectionMessage obj cb = liftIO $ connectWebsocketConnectionMessage obj cb SignalConnectBefore-afterWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-afterWebsocketConnectionMessage obj cb = connectWebsocketConnectionMessage obj cb SignalConnectAfter--connectWebsocketConnectionMessage :: (GObject a, MonadIO m) =>-                                     a -> WebsocketConnectionMessageCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionMessage obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionMessageCallback (websocketConnectionMessageCallbackWrapper cb)-    connectSignalFunPtr obj "message" cb' after---- Enum WebsocketConnectionType--data WebsocketConnectionType = -      WebsocketConnectionTypeUnknown-    | WebsocketConnectionTypeClient-    | WebsocketConnectionTypeServer-    | AnotherWebsocketConnectionType Int-    deriving (Show, Eq)--instance Enum WebsocketConnectionType where-    fromEnum WebsocketConnectionTypeUnknown = 0-    fromEnum WebsocketConnectionTypeClient = 1-    fromEnum WebsocketConnectionTypeServer = 2-    fromEnum (AnotherWebsocketConnectionType k) = k--    toEnum 0 = WebsocketConnectionTypeUnknown-    toEnum 1 = WebsocketConnectionTypeClient-    toEnum 2 = WebsocketConnectionTypeServer-    toEnum k = AnotherWebsocketConnectionType k--foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type :: -    IO GType--instance BoxedEnum WebsocketConnectionType where-    boxedEnumType _ = c_soup_websocket_connection_type_get_type---- Enum WebsocketDataType--data WebsocketDataType = -      WebsocketDataTypeText-    | WebsocketDataTypeBinary-    | AnotherWebsocketDataType Int-    deriving (Show, Eq)--instance Enum WebsocketDataType where-    fromEnum WebsocketDataTypeText = 1-    fromEnum WebsocketDataTypeBinary = 2-    fromEnum (AnotherWebsocketDataType k) = k--    toEnum 1 = WebsocketDataTypeText-    toEnum 2 = WebsocketDataTypeBinary-    toEnum k = AnotherWebsocketDataType k--foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type :: -    IO GType--instance BoxedEnum WebsocketDataType where-    boxedEnumType _ = c_soup_websocket_data_type_get_type---- Enum WebsocketError--data WebsocketError = -      WebsocketErrorFailed-    | WebsocketErrorNotWebsocket-    | WebsocketErrorBadHandshake-    | WebsocketErrorBadOrigin-    | AnotherWebsocketError Int-    deriving (Show, Eq)--instance Enum WebsocketError where-    fromEnum WebsocketErrorFailed = 0-    fromEnum WebsocketErrorNotWebsocket = 1-    fromEnum WebsocketErrorBadHandshake = 2-    fromEnum WebsocketErrorBadOrigin = 3-    fromEnum (AnotherWebsocketError k) = k--    toEnum 0 = WebsocketErrorFailed-    toEnum 1 = WebsocketErrorNotWebsocket-    toEnum 2 = WebsocketErrorBadHandshake-    toEnum 3 = WebsocketErrorBadOrigin-    toEnum k = AnotherWebsocketError k--foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type :: -    IO GType--instance BoxedEnum WebsocketError where-    boxedEnumType _ = c_soup_websocket_error_get_type---- Enum WebsocketState--data WebsocketState = -      WebsocketStateOpen-    | WebsocketStateClosing-    | WebsocketStateClosed-    | AnotherWebsocketState Int-    deriving (Show, Eq)--instance Enum WebsocketState where-    fromEnum WebsocketStateOpen = 1-    fromEnum WebsocketStateClosing = 2-    fromEnum WebsocketStateClosed = 3-    fromEnum (AnotherWebsocketState k) = k--    toEnum 1 = WebsocketStateOpen-    toEnum 2 = WebsocketStateClosing-    toEnum 3 = WebsocketStateClosed-    toEnum k = AnotherWebsocketState k--foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type :: -    IO GType--instance BoxedEnum WebsocketState where-    boxedEnumType _ = c_soup_websocket_state_get_type---- Enum XMLRPCError--data XMLRPCError = -      XMLRPCErrorArguments-    | XMLRPCErrorRetval-    | AnotherXMLRPCError Int-    deriving (Show, Eq)--instance Enum XMLRPCError where-    fromEnum XMLRPCErrorArguments = 0-    fromEnum XMLRPCErrorRetval = 1-    fromEnum (AnotherXMLRPCError k) = k--    toEnum 0 = XMLRPCErrorArguments-    toEnum 1 = XMLRPCErrorRetval-    toEnum k = AnotherXMLRPCError k--instance GErrorClass XMLRPCError where-    gerrorClassDomain _ = "soup_xmlrpc_error_quark"--catchXMLRPCError ::-    IO a ->-    (XMLRPCError -> GErrorMessage -> IO a) ->-    IO a-catchXMLRPCError = catchGErrorJustDomain--handleXMLRPCError ::-    (XMLRPCError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleXMLRPCError = handleGErrorJustDomain--foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type :: -    IO GType--instance BoxedEnum XMLRPCError where-    boxedEnumType _ = c_soup_xmlrpc_error_get_type---- Enum XMLRPCFault--data XMLRPCFault = -      XMLRPCFaultParseErrorNotWellFormed-    | XMLRPCFaultParseErrorUnsupportedEncoding-    | XMLRPCFaultParseErrorInvalidCharacterForEncoding-    | XMLRPCFaultServerErrorInvalidXmlRpc-    | XMLRPCFaultServerErrorRequestedMethodNotFound-    | XMLRPCFaultServerErrorInvalidMethodParameters-    | XMLRPCFaultServerErrorInternalXmlRpcError-    | XMLRPCFaultApplicationError-    | XMLRPCFaultSystemError-    | XMLRPCFaultTransportError-    | AnotherXMLRPCFault Int-    deriving (Show, Eq)--instance Enum XMLRPCFault where-    fromEnum XMLRPCFaultParseErrorNotWellFormed = -32700-    fromEnum XMLRPCFaultParseErrorUnsupportedEncoding = -32701-    fromEnum XMLRPCFaultParseErrorInvalidCharacterForEncoding = -32702-    fromEnum XMLRPCFaultServerErrorInvalidXmlRpc = -32600-    fromEnum XMLRPCFaultServerErrorRequestedMethodNotFound = -32601-    fromEnum XMLRPCFaultServerErrorInvalidMethodParameters = -32602-    fromEnum XMLRPCFaultServerErrorInternalXmlRpcError = -32603-    fromEnum XMLRPCFaultApplicationError = -32500-    fromEnum XMLRPCFaultSystemError = -32400-    fromEnum XMLRPCFaultTransportError = -32300-    fromEnum (AnotherXMLRPCFault k) = k--    toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding-    toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding-    toEnum -32700 = XMLRPCFaultParseErrorNotWellFormed-    toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError-    toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters-    toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound-    toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc-    toEnum -32500 = XMLRPCFaultApplicationError-    toEnum -32400 = XMLRPCFaultSystemError-    toEnum -32300 = XMLRPCFaultTransportError-    toEnum k = AnotherXMLRPCFault k--foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type :: -    IO GType--instance BoxedEnum XMLRPCFault where-    boxedEnumType _ = c_soup_xmlrpc_fault_get_type---- struct XMLRPCParams-newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams)-noXMLRPCParams :: Maybe XMLRPCParams-noXMLRPCParams = Nothing---- method XMLRPCParams::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_params_free" soup_xmlrpc_params_free :: -    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"-    IO ()---xMLRPCParamsFree ::-    (MonadIO m) =>-    XMLRPCParams ->                         -- _obj-    m ()-xMLRPCParamsFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_xmlrpc_params_free _obj'-    touchManagedPtr _obj-    return ()---- method XMLRPCParams::parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_params_parse" soup_xmlrpc_params_parse :: -    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"-    CString ->                              -- signature : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---xMLRPCParamsParse ::-    (MonadIO m) =>-    XMLRPCParams ->                         -- _obj-    Maybe (T.Text) ->                       -- signature-    m GVariant-xMLRPCParamsParse _obj signature = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeSignature <- case signature of-        Nothing -> return nullPtr-        Just jSignature -> do-            jSignature' <- textToCString jSignature-            return jSignature'-    onException (do-        result <- propagateGError $ soup_xmlrpc_params_parse _obj' maybeSignature-        checkUnexpectedReturnNULL "soup_xmlrpc_params_parse" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        freeMem maybeSignature-        return result'-     ) (do-        freeMem maybeSignature-     )---- constant _ADDRESS_ANY_PORT--_ADDRESS_ANY_PORT :: Int32-_ADDRESS_ANY_PORT = 0--- constant _ADDRESS_FAMILY--_ADDRESS_FAMILY :: T.Text-_ADDRESS_FAMILY = "family"--- constant _ADDRESS_NAME--_ADDRESS_NAME :: T.Text-_ADDRESS_NAME = "name"--- constant _ADDRESS_PHYSICAL--_ADDRESS_PHYSICAL :: T.Text-_ADDRESS_PHYSICAL = "physical"--- constant _ADDRESS_PORT--_ADDRESS_PORT :: T.Text-_ADDRESS_PORT = "port"--- constant _ADDRESS_PROTOCOL--_ADDRESS_PROTOCOL :: T.Text-_ADDRESS_PROTOCOL = "protocol"--- constant _ADDRESS_SOCKADDR--_ADDRESS_SOCKADDR :: T.Text-_ADDRESS_SOCKADDR = "sockaddr"--- constant _AUTH_DOMAIN_ADD_PATH--_AUTH_DOMAIN_ADD_PATH :: T.Text-_AUTH_DOMAIN_ADD_PATH = "add-path"--- constant _AUTH_DOMAIN_BASIC_AUTH_CALLBACK--_AUTH_DOMAIN_BASIC_AUTH_CALLBACK :: T.Text-_AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback"--- constant _AUTH_DOMAIN_BASIC_AUTH_DATA--_AUTH_DOMAIN_BASIC_AUTH_DATA :: T.Text-_AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data"--- constant _AUTH_DOMAIN_BASIC_H--_AUTH_DOMAIN_BASIC_H :: Int32-_AUTH_DOMAIN_BASIC_H = 1--- constant _AUTH_DOMAIN_DIGEST_AUTH_CALLBACK--_AUTH_DOMAIN_DIGEST_AUTH_CALLBACK :: T.Text-_AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback"--- constant _AUTH_DOMAIN_DIGEST_AUTH_DATA--_AUTH_DOMAIN_DIGEST_AUTH_DATA :: T.Text-_AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data"--- constant _AUTH_DOMAIN_DIGEST_H--_AUTH_DOMAIN_DIGEST_H :: Int32-_AUTH_DOMAIN_DIGEST_H = 1--- constant _AUTH_DOMAIN_FILTER--_AUTH_DOMAIN_FILTER :: T.Text-_AUTH_DOMAIN_FILTER = "filter"--- constant _AUTH_DOMAIN_FILTER_DATA--_AUTH_DOMAIN_FILTER_DATA :: T.Text-_AUTH_DOMAIN_FILTER_DATA = "filter-data"--- constant _AUTH_DOMAIN_GENERIC_AUTH_CALLBACK--_AUTH_DOMAIN_GENERIC_AUTH_CALLBACK :: T.Text-_AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback"--- constant _AUTH_DOMAIN_GENERIC_AUTH_DATA--_AUTH_DOMAIN_GENERIC_AUTH_DATA :: T.Text-_AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data"--- constant _AUTH_DOMAIN_H--_AUTH_DOMAIN_H :: Int32-_AUTH_DOMAIN_H = 1--- constant _AUTH_DOMAIN_PROXY--_AUTH_DOMAIN_PROXY :: T.Text-_AUTH_DOMAIN_PROXY = "proxy"--- constant _AUTH_DOMAIN_REALM--_AUTH_DOMAIN_REALM :: T.Text-_AUTH_DOMAIN_REALM = "realm"--- constant _AUTH_DOMAIN_REMOVE_PATH--_AUTH_DOMAIN_REMOVE_PATH :: T.Text-_AUTH_DOMAIN_REMOVE_PATH = "remove-path"--- constant _AUTH_H--_AUTH_H :: Int32-_AUTH_H = 1--- constant _AUTH_HOST--_AUTH_HOST :: T.Text-_AUTH_HOST = "host"--- constant _AUTH_IS_AUTHENTICATED--_AUTH_IS_AUTHENTICATED :: T.Text-_AUTH_IS_AUTHENTICATED = "is-authenticated"--- constant _AUTH_IS_FOR_PROXY--_AUTH_IS_FOR_PROXY :: T.Text-_AUTH_IS_FOR_PROXY = "is-for-proxy"--- constant _AUTH_MANAGER_H--_AUTH_MANAGER_H :: Int32-_AUTH_MANAGER_H = 1--- constant _AUTH_REALM--_AUTH_REALM :: T.Text-_AUTH_REALM = "realm"--- constant _AUTH_SCHEME_NAME--_AUTH_SCHEME_NAME :: T.Text-_AUTH_SCHEME_NAME = "scheme-name"--- constant _CACHE_H--_CACHE_H :: Int32-_CACHE_H = 1--- constant _CHAR_HTTP_CTL--_CHAR_HTTP_CTL :: Int32-_CHAR_HTTP_CTL = 16--- constant _CHAR_HTTP_SEPARATOR--_CHAR_HTTP_SEPARATOR :: Int32-_CHAR_HTTP_SEPARATOR = 8--- constant _CHAR_URI_GEN_DELIMS--_CHAR_URI_GEN_DELIMS :: Int32-_CHAR_URI_GEN_DELIMS = 2--- constant _CHAR_URI_PERCENT_ENCODED--_CHAR_URI_PERCENT_ENCODED :: Int32-_CHAR_URI_PERCENT_ENCODED = 1--- constant _CHAR_URI_SUB_DELIMS--_CHAR_URI_SUB_DELIMS :: Int32-_CHAR_URI_SUB_DELIMS = 4--- constant _CONTENT_DECODER_H--_CONTENT_DECODER_H :: Int32-_CONTENT_DECODER_H = 1--- constant _CONTENT_SNIFFER_H--_CONTENT_SNIFFER_H :: Int32-_CONTENT_SNIFFER_H = 1--- constant _COOKIE_H--_COOKIE_H :: Int32-_COOKIE_H = 1--- constant _COOKIE_JAR_ACCEPT_POLICY--_COOKIE_JAR_ACCEPT_POLICY :: T.Text-_COOKIE_JAR_ACCEPT_POLICY = "accept-policy"--- constant _COOKIE_JAR_DB_FILENAME--_COOKIE_JAR_DB_FILENAME :: T.Text-_COOKIE_JAR_DB_FILENAME = "filename"--- constant _COOKIE_JAR_DB_H--_COOKIE_JAR_DB_H :: Int32-_COOKIE_JAR_DB_H = 1--- constant _COOKIE_JAR_H--_COOKIE_JAR_H :: Int32-_COOKIE_JAR_H = 1--- constant _COOKIE_JAR_READ_ONLY--_COOKIE_JAR_READ_ONLY :: T.Text-_COOKIE_JAR_READ_ONLY = "read-only"--- constant _COOKIE_JAR_TEXT_FILENAME--_COOKIE_JAR_TEXT_FILENAME :: T.Text-_COOKIE_JAR_TEXT_FILENAME = "filename"--- constant _COOKIE_JAR_TEXT_H--_COOKIE_JAR_TEXT_H :: Int32-_COOKIE_JAR_TEXT_H = 1--- constant _COOKIE_MAX_AGE_ONE_DAY--_COOKIE_MAX_AGE_ONE_DAY :: Int32-_COOKIE_MAX_AGE_ONE_DAY = 0--- constant _COOKIE_MAX_AGE_ONE_HOUR--_COOKIE_MAX_AGE_ONE_HOUR :: Int32-_COOKIE_MAX_AGE_ONE_HOUR = 3600--- constant _COOKIE_MAX_AGE_ONE_WEEK--_COOKIE_MAX_AGE_ONE_WEEK :: Int32-_COOKIE_MAX_AGE_ONE_WEEK = 0--- constant _COOKIE_MAX_AGE_ONE_YEAR--_COOKIE_MAX_AGE_ONE_YEAR :: Int32-_COOKIE_MAX_AGE_ONE_YEAR = 0--- constant _DATE_H--_DATE_H :: Int32-_DATE_H = 1--- constant _FORM_H--_FORM_H :: Int32-_FORM_H = 1--- constant _FORM_MIME_TYPE_MULTIPART--_FORM_MIME_TYPE_MULTIPART :: T.Text-_FORM_MIME_TYPE_MULTIPART = "multipart/form-data"--- constant _FORM_MIME_TYPE_URLENCODED--_FORM_MIME_TYPE_URLENCODED :: T.Text-_FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded"--- constant _HEADERS_H--_HEADERS_H :: Int32-_HEADERS_H = 1--- constant _LOGGER_H--_LOGGER_H :: Int32-_LOGGER_H = 1--- constant _MESSAGE_BODY_H--_MESSAGE_BODY_H :: Int32-_MESSAGE_BODY_H = 1--- constant _MESSAGE_FIRST_PARTY--_MESSAGE_FIRST_PARTY :: T.Text-_MESSAGE_FIRST_PARTY = "first-party"--- constant _MESSAGE_FLAGS--_MESSAGE_FLAGS :: T.Text-_MESSAGE_FLAGS = "flags"--- constant _MESSAGE_H--_MESSAGE_H :: Int32-_MESSAGE_H = 1--- constant _MESSAGE_HEADERS_H--_MESSAGE_HEADERS_H :: Int32-_MESSAGE_HEADERS_H = 1--- constant _MESSAGE_HTTP_VERSION--_MESSAGE_HTTP_VERSION :: T.Text-_MESSAGE_HTTP_VERSION = "http-version"--- constant _MESSAGE_METHOD--_MESSAGE_METHOD :: T.Text-_MESSAGE_METHOD = "method"--- constant _MESSAGE_PRIORITY--_MESSAGE_PRIORITY :: T.Text-_MESSAGE_PRIORITY = "priority"--- constant _MESSAGE_REASON_PHRASE--_MESSAGE_REASON_PHRASE :: T.Text-_MESSAGE_REASON_PHRASE = "reason-phrase"--- constant _MESSAGE_REQUEST_BODY--_MESSAGE_REQUEST_BODY :: T.Text-_MESSAGE_REQUEST_BODY = "request-body"--- constant _MESSAGE_REQUEST_BODY_DATA--_MESSAGE_REQUEST_BODY_DATA :: T.Text-_MESSAGE_REQUEST_BODY_DATA = "request-body-data"--- constant _MESSAGE_REQUEST_HEADERS--_MESSAGE_REQUEST_HEADERS :: T.Text-_MESSAGE_REQUEST_HEADERS = "request-headers"--- constant _MESSAGE_RESPONSE_BODY--_MESSAGE_RESPONSE_BODY :: T.Text-_MESSAGE_RESPONSE_BODY = "response-body"--- constant _MESSAGE_RESPONSE_BODY_DATA--_MESSAGE_RESPONSE_BODY_DATA :: T.Text-_MESSAGE_RESPONSE_BODY_DATA = "response-body-data"--- constant _MESSAGE_RESPONSE_HEADERS--_MESSAGE_RESPONSE_HEADERS :: T.Text-_MESSAGE_RESPONSE_HEADERS = "response-headers"--- constant _MESSAGE_SERVER_SIDE--_MESSAGE_SERVER_SIDE :: T.Text-_MESSAGE_SERVER_SIDE = "server-side"--- constant _MESSAGE_STATUS_CODE--_MESSAGE_STATUS_CODE :: T.Text-_MESSAGE_STATUS_CODE = "status-code"--- constant _MESSAGE_TLS_CERTIFICATE--_MESSAGE_TLS_CERTIFICATE :: T.Text-_MESSAGE_TLS_CERTIFICATE = "tls-certificate"--- constant _MESSAGE_TLS_ERRORS--_MESSAGE_TLS_ERRORS :: T.Text-_MESSAGE_TLS_ERRORS = "tls-errors"--- constant _MESSAGE_URI--_MESSAGE_URI :: T.Text-_MESSAGE_URI = "uri"--- constant _METHOD_H--_METHOD_H :: Int32-_METHOD_H = 1--- constant _MISC_H--_MISC_H :: Int32-_MISC_H = 1--- constant _MULTIPART_H--_MULTIPART_H :: Int32-_MULTIPART_H = 1--- constant _MULTIPART_INPUT_STREAM_H--_MULTIPART_INPUT_STREAM_H :: Int32-_MULTIPART_INPUT_STREAM_H = 1--- constant _PASSWORD_MANAGER_H--_PASSWORD_MANAGER_H :: Int32-_PASSWORD_MANAGER_H = 1--- constant _PROXY_RESOLVER_DEFAULT_H--_PROXY_RESOLVER_DEFAULT_H :: Int32-_PROXY_RESOLVER_DEFAULT_H = 1--- constant _PROXY_URI_RESOLVER_H--_PROXY_URI_RESOLVER_H :: Int32-_PROXY_URI_RESOLVER_H = 1--- constant _REQUESTER_H--_REQUESTER_H :: Int32-_REQUESTER_H = 1--- constant _REQUEST_DATA_H--_REQUEST_DATA_H :: Int32-_REQUEST_DATA_H = 1--- constant _REQUEST_FILE_H--_REQUEST_FILE_H :: Int32-_REQUEST_FILE_H = 1--- constant _REQUEST_H--_REQUEST_H :: Int32-_REQUEST_H = 1--- constant _REQUEST_HTTP_H--_REQUEST_HTTP_H :: Int32-_REQUEST_HTTP_H = 1--- constant _REQUEST_SESSION--_REQUEST_SESSION :: T.Text-_REQUEST_SESSION = "session"--- constant _REQUEST_URI--_REQUEST_URI :: T.Text-_REQUEST_URI = "uri"--- constant _SERVER_ASYNC_CONTEXT-{-# DEPRECATED _SERVER_ASYNC_CONTEXT ["The new API uses the thread-default #GMainContext","rather than having an explicitly-specified one."]#-}-_SERVER_ASYNC_CONTEXT :: T.Text-_SERVER_ASYNC_CONTEXT = "async-context"--- constant _SERVER_H--_SERVER_H :: Int32-_SERVER_H = 1--- constant _SERVER_HTTPS_ALIASES--_SERVER_HTTPS_ALIASES :: T.Text-_SERVER_HTTPS_ALIASES = "https-aliases"--- constant _SERVER_HTTP_ALIASES--_SERVER_HTTP_ALIASES :: T.Text-_SERVER_HTTP_ALIASES = "http-aliases"--- constant _SERVER_INTERFACE-{-# DEPRECATED _SERVER_INTERFACE ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on an","interface, and soup_server_get_uris() to see what addresses","are being listened on."]#-}-_SERVER_INTERFACE :: T.Text-_SERVER_INTERFACE = "interface"--- constant _SERVER_PORT-{-# DEPRECATED _SERVER_PORT ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on a","port, and soup_server_get_uris() to see what ports are","being listened on."]#-}-_SERVER_PORT :: T.Text-_SERVER_PORT = "port"--- constant _SERVER_RAW_PATHS--_SERVER_RAW_PATHS :: T.Text-_SERVER_RAW_PATHS = "raw-paths"--- constant _SERVER_SERVER_HEADER--_SERVER_SERVER_HEADER :: T.Text-_SERVER_SERVER_HEADER = "server-header"--- constant _SERVER_SSL_CERT_FILE-{-# DEPRECATED _SERVER_SSL_CERT_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}-_SERVER_SSL_CERT_FILE :: T.Text-_SERVER_SSL_CERT_FILE = "ssl-cert-file"--- constant _SERVER_SSL_KEY_FILE-{-# DEPRECATED _SERVER_SSL_KEY_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}-_SERVER_SSL_KEY_FILE :: T.Text-_SERVER_SSL_KEY_FILE = "ssl-key-file"--- constant _SERVER_TLS_CERTIFICATE--_SERVER_TLS_CERTIFICATE :: T.Text-_SERVER_TLS_CERTIFICATE = "tls-certificate"--- constant _SESSION_ACCEPT_LANGUAGE--_SESSION_ACCEPT_LANGUAGE :: T.Text-_SESSION_ACCEPT_LANGUAGE = "accept-language"--- constant _SESSION_ACCEPT_LANGUAGE_AUTO--_SESSION_ACCEPT_LANGUAGE_AUTO :: T.Text-_SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto"--- constant _SESSION_ASYNC_CONTEXT--_SESSION_ASYNC_CONTEXT :: T.Text-_SESSION_ASYNC_CONTEXT = "async-context"--- constant _SESSION_ASYNC_H--_SESSION_ASYNC_H :: Int32-_SESSION_ASYNC_H = 1--- constant _SESSION_FEATURE_H--_SESSION_FEATURE_H :: Int32-_SESSION_FEATURE_H = 1--- constant _SESSION_H--_SESSION_H :: Int32-_SESSION_H = 1--- constant _SESSION_HTTPS_ALIASES--_SESSION_HTTPS_ALIASES :: T.Text-_SESSION_HTTPS_ALIASES = "https-aliases"--- constant _SESSION_HTTP_ALIASES--_SESSION_HTTP_ALIASES :: T.Text-_SESSION_HTTP_ALIASES = "http-aliases"--- constant _SESSION_IDLE_TIMEOUT--_SESSION_IDLE_TIMEOUT :: T.Text-_SESSION_IDLE_TIMEOUT = "idle-timeout"--- constant _SESSION_LOCAL_ADDRESS--_SESSION_LOCAL_ADDRESS :: T.Text-_SESSION_LOCAL_ADDRESS = "local-address"--- constant _SESSION_MAX_CONNS--_SESSION_MAX_CONNS :: T.Text-_SESSION_MAX_CONNS = "max-conns"--- constant _SESSION_MAX_CONNS_PER_HOST--_SESSION_MAX_CONNS_PER_HOST :: T.Text-_SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host"--- constant _SESSION_PROXY_RESOLVER--_SESSION_PROXY_RESOLVER :: T.Text-_SESSION_PROXY_RESOLVER = "proxy-resolver"--- constant _SESSION_PROXY_URI--_SESSION_PROXY_URI :: T.Text-_SESSION_PROXY_URI = "proxy-uri"--- constant _SESSION_SSL_CA_FILE--_SESSION_SSL_CA_FILE :: T.Text-_SESSION_SSL_CA_FILE = "ssl-ca-file"--- constant _SESSION_SSL_STRICT--_SESSION_SSL_STRICT :: T.Text-_SESSION_SSL_STRICT = "ssl-strict"--- constant _SESSION_SSL_USE_SYSTEM_CA_FILE--_SESSION_SSL_USE_SYSTEM_CA_FILE :: T.Text-_SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file"--- constant _SESSION_SYNC_H--_SESSION_SYNC_H :: Int32-_SESSION_SYNC_H = 1--- constant _SESSION_TIMEOUT--_SESSION_TIMEOUT :: T.Text-_SESSION_TIMEOUT = "timeout"--- constant _SESSION_TLS_DATABASE--_SESSION_TLS_DATABASE :: T.Text-_SESSION_TLS_DATABASE = "tls-database"--- constant _SESSION_TLS_INTERACTION--_SESSION_TLS_INTERACTION :: T.Text-_SESSION_TLS_INTERACTION = "tls-interaction"--- constant _SESSION_USER_AGENT--_SESSION_USER_AGENT :: T.Text-_SESSION_USER_AGENT = "user-agent"--- constant _SESSION_USE_NTLM--_SESSION_USE_NTLM :: T.Text-_SESSION_USE_NTLM = "use-ntlm"--- constant _SESSION_USE_THREAD_CONTEXT--_SESSION_USE_THREAD_CONTEXT :: T.Text-_SESSION_USE_THREAD_CONTEXT = "use-thread-context"--- constant _SOCKET_ASYNC_CONTEXT--_SOCKET_ASYNC_CONTEXT :: T.Text-_SOCKET_ASYNC_CONTEXT = "async-context"--- constant _SOCKET_FLAG_NONBLOCKING--_SOCKET_FLAG_NONBLOCKING :: T.Text-_SOCKET_FLAG_NONBLOCKING = "non-blocking"--- constant _SOCKET_H--_SOCKET_H :: Int32-_SOCKET_H = 1--- constant _SOCKET_IS_SERVER--_SOCKET_IS_SERVER :: T.Text-_SOCKET_IS_SERVER = "is-server"--- constant _SOCKET_LOCAL_ADDRESS--_SOCKET_LOCAL_ADDRESS :: T.Text-_SOCKET_LOCAL_ADDRESS = "local-address"--- constant _SOCKET_REMOTE_ADDRESS--_SOCKET_REMOTE_ADDRESS :: T.Text-_SOCKET_REMOTE_ADDRESS = "remote-address"--- constant _SOCKET_SSL_CREDENTIALS--_SOCKET_SSL_CREDENTIALS :: T.Text-_SOCKET_SSL_CREDENTIALS = "ssl-creds"--- constant _SOCKET_SSL_FALLBACK--_SOCKET_SSL_FALLBACK :: T.Text-_SOCKET_SSL_FALLBACK = "ssl-fallback"--- constant _SOCKET_SSL_STRICT--_SOCKET_SSL_STRICT :: T.Text-_SOCKET_SSL_STRICT = "ssl-strict"--- constant _SOCKET_TIMEOUT--_SOCKET_TIMEOUT :: T.Text-_SOCKET_TIMEOUT = "timeout"--- constant _SOCKET_TLS_CERTIFICATE--_SOCKET_TLS_CERTIFICATE :: T.Text-_SOCKET_TLS_CERTIFICATE = "tls-certificate"--- constant _SOCKET_TLS_ERRORS--_SOCKET_TLS_ERRORS :: T.Text-_SOCKET_TLS_ERRORS = "tls-errors"--- constant _SOCKET_TRUSTED_CERTIFICATE--_SOCKET_TRUSTED_CERTIFICATE :: T.Text-_SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate"--- constant _SOCKET_USE_THREAD_CONTEXT--_SOCKET_USE_THREAD_CONTEXT :: T.Text-_SOCKET_USE_THREAD_CONTEXT = "use-thread-context"--- constant _STATUS_H--_STATUS_H :: Int32-_STATUS_H = 1--- constant _TYPES_H--_TYPES_H :: Int32-_TYPES_H = 1--- constant _URI_H--_URI_H :: Int32-_URI_H = 1--- constant _VALUE_UTILS_H--_VALUE_UTILS_H :: Int32-_VALUE_UTILS_H = 1--- constant _XMLRPC_H--_XMLRPC_H :: Int32-_XMLRPC_H = 1--- constant _XMLRPC_OLD_H--_XMLRPC_OLD_H :: Int32-_XMLRPC_OLD_H = 1--- function soup_cookie_parse--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Cookie"--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_parse" soup_cookie_parse :: -    CString ->                              -- header : TBasicType TUTF8-    Ptr URI ->                              -- origin : TInterface "Soup" "URI"-    IO (Ptr Cookie)---cookieParse ::-    (MonadIO m) =>-    T.Text ->                               -- header-    URI ->                                  -- origin-    m Cookie-cookieParse header origin = liftIO $ do-    header' <- textToCString header-    let origin' = unsafeManagedPtrGetPtr origin-    result <- soup_cookie_parse header' origin'-    checkUnexpectedReturnNULL "soup_cookie_parse" result-    result' <- (wrapBoxed Cookie) result-    touchManagedPtr origin-    freeMem header'-    return result'---- function soup_cookies_from_request--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr (GSList (Ptr Cookie)))---cookiesFromRequest ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    m [Cookie]-cookiesFromRequest msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_request msg'-    checkUnexpectedReturnNULL "soup_cookies_from_request" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''---- function soup_cookies_from_response--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr (GSList (Ptr Cookie)))---cookiesFromResponse ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    m [Cookie]-cookiesFromResponse msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_response msg'-    checkUnexpectedReturnNULL "soup_cookies_from_response" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''---- function soup_cookies_to_cookie_header--- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_cookie_header" soup_cookies_to_cookie_header :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    IO CString---cookiesToCookieHeader ::-    (MonadIO m) =>-    [Cookie] ->                             -- cookies-    m T.Text-cookiesToCookieHeader cookies = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    result <- soup_cookies_to_cookie_header cookies''-    checkUnexpectedReturnNULL "soup_cookies_to_cookie_header" result-    result' <- cstringToText result-    freeMem result-    mapM_ touchManagedPtr cookies-    g_slist_free cookies''-    return result'---- function soup_cookies_to_request--- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_request" soup_cookies_to_request :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---cookiesToRequest ::-    (MonadIO m, MessageK a) =>-    [Cookie] ->                             -- cookies-    a ->                                    -- msg-    m ()-cookiesToRequest cookies msg = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    let msg' = unsafeManagedPtrCastPtr msg-    soup_cookies_to_request cookies'' msg'-    mapM_ touchManagedPtr cookies-    touchManagedPtr msg-    g_slist_free cookies''-    return ()---- function soup_cookies_to_response--- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_response" soup_cookies_to_response :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---cookiesToResponse ::-    (MonadIO m, MessageK a) =>-    [Cookie] ->                             -- cookies-    a ->                                    -- msg-    m ()-cookiesToResponse cookies msg = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    let msg' = unsafeManagedPtrCastPtr msg-    soup_cookies_to_response cookies'' msg'-    mapM_ touchManagedPtr cookies-    touchManagedPtr msg-    g_slist_free cookies''-    return ()---- function soup_form_decode--- Args : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_form_decode" soup_form_decode :: -    CString ->                              -- encoded_form : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---formDecode ::-    (MonadIO m) =>-    T.Text ->                               -- encoded_form-    m (Map.Map T.Text T.Text)-formDecode encoded_form = liftIO $ do-    encoded_form' <- textToCString encoded_form-    result <- soup_form_decode encoded_form'-    checkUnexpectedReturnNULL "soup_form_decode" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem encoded_form'-    return result''''''---- function soup_form_decode_multipart--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_form_decode_multipart" soup_form_decode_multipart :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- file_control_name : TBasicType TUTF8-    Ptr CString ->                          -- filename : TBasicType TUTF8-    Ptr CString ->                          -- content_type : TBasicType TUTF8-    Ptr Buffer ->                           -- file : TInterface "Soup" "Buffer"-    IO (Ptr (GHashTable CString CString))---formDecodeMultipart ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    Maybe (T.Text) ->                       -- file_control_name-    m ((Map.Map T.Text T.Text),T.Text,T.Text,Buffer)-formDecodeMultipart msg file_control_name = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeFile_control_name <- case file_control_name of-        Nothing -> return nullPtr-        Just jFile_control_name -> do-            jFile_control_name' <- textToCString jFile_control_name-            return jFile_control_name'-    filename <- allocMem :: IO (Ptr CString)-    content_type <- allocMem :: IO (Ptr CString)-    file <- callocBoxedBytes 16 :: IO (Ptr Buffer)-    result <- soup_form_decode_multipart msg' maybeFile_control_name filename content_type file-    checkUnexpectedReturnNULL "soup_form_decode_multipart" 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-    filename' <- peek filename-    filename'' <- cstringToText filename'-    freeMem filename'-    content_type' <- peek content_type-    content_type'' <- cstringToText content_type'-    freeMem content_type'-    file' <- (wrapBoxed Buffer) file-    touchManagedPtr msg-    freeMem maybeFile_control_name-    freeMem filename-    freeMem content_type-    return (result'''''', filename'', content_type'', file')---- function soup_form_encode_datalist--- Args : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_form_encode_datalist" soup_form_encode_datalist :: -    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"-    IO CString---formEncodeDatalist ::-    (MonadIO m) =>-    GLib.Data ->                            -- form_data_set-    m T.Text-formEncodeDatalist form_data_set = liftIO $ do-    let form_data_set' = unsafeManagedPtrGetPtr form_data_set-    result <- soup_form_encode_datalist form_data_set'-    checkUnexpectedReturnNULL "soup_form_encode_datalist" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr form_data_set-    return result'---- function soup_form_encode_hash--- Args : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_form_encode_hash" soup_form_encode_hash :: -    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---formEncodeHash ::-    (MonadIO m) =>-    Map.Map T.Text T.Text ->                -- form_data_set-    m T.Text-formEncodeHash form_data_set = liftIO $ do-    let form_data_set' = Map.toList form_data_set-    form_data_set'' <- mapFirstA textToCString form_data_set'-    form_data_set''' <- mapSecondA textToCString form_data_set''-    let form_data_set'''' = mapFirst cstringPackPtr form_data_set'''-    let form_data_set''''' = mapSecond cstringPackPtr form_data_set''''-    form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set'''''-    result <- soup_form_encode_hash form_data_set''''''-    checkUnexpectedReturnNULL "soup_form_encode_hash" result-    result' <- cstringToText result-    freeMem result-    unrefGHashTable form_data_set''''''-    return result'---- function soup_form_request_new_from_datalist--- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_datalist" soup_form_request_new_from_datalist :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri : TBasicType TUTF8-    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"-    IO (Ptr Message)---formRequestNewFromDatalist ::-    (MonadIO m) =>-    T.Text ->                               -- method-    T.Text ->                               -- uri-    GLib.Data ->                            -- form_data_set-    m Message-formRequestNewFromDatalist method uri form_data_set = liftIO $ do-    method' <- textToCString method-    uri' <- textToCString uri-    let form_data_set' = unsafeManagedPtrGetPtr form_data_set-    result <- soup_form_request_new_from_datalist method' uri' form_data_set'-    checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result-    result' <- (wrapObject Message) result-    touchManagedPtr form_data_set-    freeMem method'-    freeMem uri'-    return result'---- function soup_form_request_new_from_hash--- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_hash" soup_form_request_new_from_hash :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO (Ptr Message)---formRequestNewFromHash ::-    (MonadIO m) =>-    T.Text ->                               -- method-    T.Text ->                               -- uri-    Map.Map T.Text T.Text ->                -- form_data_set-    m Message-formRequestNewFromHash method uri form_data_set = liftIO $ do-    method' <- textToCString method-    uri' <- textToCString uri-    let form_data_set' = Map.toList form_data_set-    form_data_set'' <- mapFirstA textToCString form_data_set'-    form_data_set''' <- mapSecondA textToCString form_data_set''-    let form_data_set'''' = mapFirst cstringPackPtr form_data_set'''-    let form_data_set''''' = mapSecond cstringPackPtr form_data_set''''-    form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set'''''-    result <- soup_form_request_new_from_hash method' uri' form_data_set''''''-    checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result-    result' <- (wrapObject Message) result-    freeMem method'-    freeMem uri'-    unrefGHashTable form_data_set''''''-    return result'---- function soup_form_request_new_from_multipart--- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_multipart" soup_form_request_new_from_multipart :: -    CString ->                              -- uri : TBasicType TUTF8-    Ptr Multipart ->                        -- multipart : TInterface "Soup" "Multipart"-    IO (Ptr Message)---formRequestNewFromMultipart ::-    (MonadIO m) =>-    T.Text ->                               -- uri-    Multipart ->                            -- multipart-    m Message-formRequestNewFromMultipart uri multipart = liftIO $ do-    uri' <- textToCString uri-    let multipart' = unsafeManagedPtrGetPtr multipart-    result <- soup_form_request_new_from_multipart uri' multipart'-    checkUnexpectedReturnNULL "soup_form_request_new_from_multipart" result-    result' <- (wrapObject Message) result-    touchManagedPtr multipart-    freeMem uri'-    return result'---- function soup_header_contains--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_header_contains" soup_header_contains :: -    CString ->                              -- header : TBasicType TUTF8-    CString ->                              -- token : TBasicType TUTF8-    IO CInt---headerContains ::-    (MonadIO m) =>-    T.Text ->                               -- header-    T.Text ->                               -- token-    m Bool-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_header_free_param_list--- Args : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_header_free_param_list" soup_header_free_param_list :: -    Ptr (GHashTable CString CString) ->     -- param_list : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---headerFreeParamList ::-    (MonadIO m) =>-    Map.Map T.Text T.Text ->                -- param_list-    m ()-headerFreeParamList param_list = liftIO $ do-    let param_list' = Map.toList param_list-    param_list'' <- mapFirstA textToCString param_list'-    param_list''' <- mapSecondA textToCString param_list''-    let param_list'''' = mapFirst cstringPackPtr param_list'''-    let param_list''''' = mapSecond cstringPackPtr param_list''''-    param_list'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) param_list'''''-    soup_header_free_param_list param_list''''''-    unrefGHashTable param_list''''''-    return ()---- function soup_header_g_string_append_param--- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_header_g_string_append_param" soup_header_g_string_append_param :: -    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---headerGStringAppendParam ::-    (MonadIO m) =>-    GLib.String ->                          -- string-    T.Text ->                               -- name-    T.Text ->                               -- value-    m ()-headerGStringAppendParam string name value = liftIO $ do-    let string' = unsafeManagedPtrGetPtr string-    name' <- textToCString name-    value' <- textToCString value-    soup_header_g_string_append_param string' name' value'-    touchManagedPtr string-    freeMem name'-    freeMem value'-    return ()---- function soup_header_g_string_append_param_quoted--- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_header_g_string_append_param_quoted" soup_header_g_string_append_param_quoted :: -    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---headerGStringAppendParamQuoted ::-    (MonadIO m) =>-    GLib.String ->                          -- string-    T.Text ->                               -- name-    T.Text ->                               -- value-    m ()-headerGStringAppendParamQuoted string name value = liftIO $ do-    let string' = unsafeManagedPtrGetPtr string-    name' <- textToCString name-    value' <- textToCString value-    soup_header_g_string_append_param_quoted string' name' value'-    touchManagedPtr string-    freeMem name'-    freeMem value'-    return ()---- function soup_header_parse_list--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_list" soup_header_parse_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GSList CString))---headerParseList ::-    (MonadIO m) =>-    T.Text ->                               -- header-    m [T.Text]-headerParseList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_list header'-    checkUnexpectedReturnNULL "soup_header_parse_list" result-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    freeMem header'-    return result''---- function soup_header_parse_param_list--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_param_list" soup_header_parse_param_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---headerParseParamList ::-    (MonadIO m) =>-    T.Text ->                               -- header-    m (Map.Map T.Text T.Text)-headerParseParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_param_list header'-    checkUnexpectedReturnNULL "soup_header_parse_param_list" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem header'-    return result''''''---- function soup_header_parse_quality_list--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_quality_list" soup_header_parse_quality_list :: -    CString ->                              -- header : TBasicType TUTF8-    Ptr (Ptr (GSList CString)) ->           -- unacceptable : TGSList (TBasicType TUTF8)-    IO (Ptr (GSList CString))---headerParseQualityList ::-    (MonadIO m) =>-    T.Text ->                               -- header-    m ([T.Text],[T.Text])-headerParseQualityList header = liftIO $ do-    header' <- textToCString header-    unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString)))-    result <- soup_header_parse_quality_list header' unacceptable-    checkUnexpectedReturnNULL "soup_header_parse_quality_list" result-    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_semi_param_list--- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_semi_param_list" soup_header_parse_semi_param_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---headerParseSemiParamList ::-    (MonadIO m) =>-    T.Text ->                               -- header-    m (Map.Map T.Text T.Text)-headerParseSemiParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_semi_param_list header'-    checkUnexpectedReturnNULL "soup_header_parse_semi_param_list" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem header'-    return result''''''---- function soup_headers_parse--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse" soup_headers_parse :: -    CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt32-    Ptr MessageHeaders ->                   -- dest : TInterface "Soup" "MessageHeaders"-    IO CInt---headersParse ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int32 ->                                -- len-    MessageHeaders ->                       -- dest-    m Bool-headersParse str len dest = liftIO $ do-    str' <- textToCString str-    let dest' = unsafeManagedPtrGetPtr dest-    result <- soup_headers_parse str' len dest'-    let result' = (/= 0) result-    touchManagedPtr dest-    freeMem str'-    return result'---- function soup_headers_parse_request--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: -    CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt32-    Ptr MessageHeaders ->                   -- req_headers : TInterface "Soup" "MessageHeaders"-    Ptr CString ->                          -- req_method : TBasicType TUTF8-    Ptr CString ->                          -- req_path : TBasicType TUTF8-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    IO Word32---headersParseRequest ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int32 ->                                -- len-    MessageHeaders ->                       -- req_headers-    m (Word32,T.Text,T.Text,HTTPVersion)-headersParseRequest str len req_headers = liftIO $ do-    str' <- textToCString str-    let req_headers' = unsafeManagedPtrGetPtr req_headers-    req_method <- allocMem :: IO (Ptr CString)-    req_path <- allocMem :: IO (Ptr CString)-    ver <- allocMem :: IO (Ptr CUInt)-    result <- soup_headers_parse_request str' len req_headers' req_method req_path ver-    req_method' <- peek req_method-    req_method'' <- cstringToText req_method'-    freeMem req_method'-    req_path' <- peek req_path-    req_path'' <- cstringToText req_path'-    freeMem req_path'-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    touchManagedPtr req_headers-    freeMem str'-    freeMem req_method-    freeMem req_path-    freeMem ver-    return (result, req_method'', req_path'', ver'')---- function soup_headers_parse_response--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt32-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt---headersParseResponse ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int32 ->                                -- len-    MessageHeaders ->                       -- headers-    m (Bool,HTTPVersion,Word32,T.Text)-headersParseResponse str len headers = liftIO $ do-    str' <- textToCString str-    let headers' = unsafeManagedPtrGetPtr headers-    ver <- allocMem :: IO (Ptr CUInt)-    status_code <- allocMem :: IO (Ptr Word32)-    reason_phrase <- allocMem :: IO (Ptr CString)-    result <- soup_headers_parse_response str' len headers' ver status_code reason_phrase-    let result' = (/= 0) result-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    status_code' <- peek status_code-    reason_phrase' <- peek reason_phrase-    reason_phrase'' <- cstringToText reason_phrase'-    freeMem reason_phrase'-    touchManagedPtr headers-    freeMem str'-    freeMem ver-    freeMem status_code-    freeMem reason_phrase-    return (result', ver'', status_code', reason_phrase'')---- function soup_headers_parse_status_line--- Args : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse_status_line" soup_headers_parse_status_line :: -    CString ->                              -- status_line : TBasicType TUTF8-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt32-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt---headersParseStatusLine ::-    (MonadIO m) =>-    T.Text ->                               -- status_line-    m (Bool,HTTPVersion,Word32,T.Text)-headersParseStatusLine status_line = liftIO $ do-    status_line' <- textToCString status_line-    ver <- allocMem :: IO (Ptr CUInt)-    status_code <- allocMem :: IO (Ptr Word32)-    reason_phrase <- allocMem :: IO (Ptr CString)-    result <- soup_headers_parse_status_line status_line' ver status_code reason_phrase-    let result' = (/= 0) result-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    status_code' <- peek status_code-    reason_phrase' <- peek reason_phrase-    reason_phrase'' <- cstringToText reason_phrase'-    freeMem reason_phrase'-    freeMem status_line'-    freeMem ver-    freeMem status_code-    freeMem reason_phrase-    return (result', ver'', status_code', reason_phrase'')---- function soup_http_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_http_error_quark" soup_http_error_quark :: -    IO Word32---httpErrorQuark ::-    (MonadIO m) =>-    m Word32-httpErrorQuark  = liftIO $ do-    result <- soup_http_error_quark-    return result---- function soup_message_headers_iter_init--- Args : [Arg {argName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_iter_init" soup_message_headers_iter_init :: -    Ptr MessageHeadersIter ->               -- iter : TInterface "Soup" "MessageHeadersIter"-    Ptr MessageHeaders ->                   -- hdrs : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersIterInit ::-    (MonadIO m) =>-    MessageHeaders ->                       -- hdrs-    m (MessageHeadersIter)-messageHeadersIterInit hdrs = liftIO $ do-    iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter)-    let hdrs' = unsafeManagedPtrGetPtr hdrs-    soup_message_headers_iter_init iter hdrs'-    iter' <- (wrapPtr MessageHeadersIter) iter-    touchManagedPtr hdrs-    return iter'---- function soup_request_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_request_error_quark" soup_request_error_quark :: -    IO Word32---requestErrorQuark ::-    (MonadIO m) =>-    m Word32-requestErrorQuark  = liftIO $ do-    result <- soup_request_error_quark-    return result---- function soup_requester_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_requester_error_quark" soup_requester_error_quark :: -    IO Word32---requesterErrorQuark ::-    (MonadIO m) =>-    m Word32-requesterErrorQuark  = liftIO $ do-    result <- soup_requester_error_quark-    return result---- function soup_status_get_phrase--- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_status_get_phrase" soup_status_get_phrase :: -    Word32 ->                               -- status_code : TBasicType TUInt32-    IO CString---statusGetPhrase ::-    (MonadIO m) =>-    Word32 ->                               -- status_code-    m T.Text-statusGetPhrase status_code = liftIO $ do-    result <- soup_status_get_phrase status_code-    checkUnexpectedReturnNULL "soup_status_get_phrase" result-    result' <- cstringToText result-    return result'---- function soup_status_proxify--- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_status_proxify" soup_status_proxify :: -    Word32 ->                               -- status_code : TBasicType TUInt32-    IO Word32---statusProxify ::-    (MonadIO m) =>-    Word32 ->                               -- status_code-    m Word32-statusProxify status_code = liftIO $ do-    result <- soup_status_proxify status_code-    return result---- function soup_str_case_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_str_case_equal" soup_str_case_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---strCaseEqual ::-    (MonadIO m) =>-    Ptr () ->                               -- v1-    Ptr () ->                               -- v2-    m Bool-strCaseEqual v1 v2 = liftIO $ do-    result <- soup_str_case_equal v1 v2-    let result' = (/= 0) result-    return result'---- function soup_str_case_hash--- Args : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_str_case_hash" soup_str_case_hash :: -    Ptr () ->                               -- key : TBasicType TVoid-    IO Word32---strCaseHash ::-    (MonadIO m) =>-    Ptr () ->                               -- key-    m Word32-strCaseHash key = liftIO $ do-    result <- soup_str_case_hash key-    return result---- function soup_tld_domain_is_public_suffix--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_tld_domain_is_public_suffix" soup_tld_domain_is_public_suffix :: -    CString ->                              -- domain : TBasicType TUTF8-    IO CInt---tldDomainIsPublicSuffix ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    m Bool-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_tld_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_tld_error_quark" soup_tld_error_quark :: -    IO Word32---tldErrorQuark ::-    (MonadIO m) =>-    m Word32-tldErrorQuark  = liftIO $ do-    result <- soup_tld_error_quark-    return result---- function soup_tld_get_base_domain--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "soup_tld_get_base_domain" soup_tld_get_base_domain :: -    CString ->                              -- hostname : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---tldGetBaseDomain ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m T.Text-tldGetBaseDomain hostname = liftIO $ do-    hostname' <- textToCString hostname-    onException (do-        result <- propagateGError $ soup_tld_get_base_domain hostname'-        checkUnexpectedReturnNULL "soup_tld_get_base_domain" result-        result' <- cstringToText result-        freeMem hostname'-        return result'-     ) (do-        freeMem hostname'-     )---- function soup_uri_decode--- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_decode" soup_uri_decode :: -    CString ->                              -- part : TBasicType TUTF8-    IO CString---uriDecode ::-    (MonadIO m) =>-    T.Text ->                               -- part-    m T.Text-uriDecode part = liftIO $ do-    part' <- textToCString part-    result <- soup_uri_decode part'-    checkUnexpectedReturnNULL "soup_uri_decode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    return result'---- function soup_uri_encode--- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_encode" soup_uri_encode :: -    CString ->                              -- part : TBasicType TUTF8-    CString ->                              -- escape_extra : TBasicType TUTF8-    IO CString---uriEncode ::-    (MonadIO m) =>-    T.Text ->                               -- part-    Maybe (T.Text) ->                       -- escape_extra-    m T.Text-uriEncode part escape_extra = liftIO $ do-    part' <- textToCString part-    maybeEscape_extra <- case escape_extra of-        Nothing -> return nullPtr-        Just jEscape_extra -> do-            jEscape_extra' <- textToCString jEscape_extra-            return jEscape_extra'-    result <- soup_uri_encode part' maybeEscape_extra-    checkUnexpectedReturnNULL "soup_uri_encode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeEscape_extra-    return result'---- function soup_uri_normalize--- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_uri_normalize" soup_uri_normalize :: -    CString ->                              -- part : TBasicType TUTF8-    CString ->                              -- unescape_extra : TBasicType TUTF8-    IO CString---uriNormalize ::-    (MonadIO m) =>-    T.Text ->                               -- part-    Maybe (T.Text) ->                       -- unescape_extra-    m T.Text-uriNormalize part unescape_extra = liftIO $ do-    part' <- textToCString part-    maybeUnescape_extra <- case unescape_extra of-        Nothing -> return nullPtr-        Just jUnescape_extra -> do-            jUnescape_extra' <- textToCString jUnescape_extra-            return jUnescape_extra'-    result <- soup_uri_normalize part' maybeUnescape_extra-    checkUnexpectedReturnNULL "soup_uri_normalize" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeUnescape_extra-    return result'---- function soup_value_array_new--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GObject" "ValueArray"--- throws : False--- Skip return : False--foreign import ccall "soup_value_array_new" soup_value_array_new :: -    IO (Ptr GObject.ValueArray)--{-# DEPRECATED valueArrayNew ["Use #GVariant API instead."]#-}-valueArrayNew ::-    (MonadIO m) =>-    m GObject.ValueArray-valueArrayNew  = liftIO $ do-    result <- soup_value_array_new-    checkUnexpectedReturnNULL "soup_value_array_new" result-    result' <- (wrapBoxed GObject.ValueArray) result-    return result'---- function soup_value_hash_insert_value--- XXX Could not generate function soup_value_hash_insert_value--- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."--- function soup_value_hash_new--- XXX Could not generate function soup_value_hash_new--- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."--- function soup_websocket_client_prepare_handshake--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_client_prepare_handshake" soup_websocket_client_prepare_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---websocketClientPrepareHandshake ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    Maybe (T.Text) ->                       -- origin-    Maybe ([T.Text]) ->                     -- protocols-    m ()-websocketClientPrepareHandshake msg origin protocols = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    soup_websocket_client_prepare_handshake msg' maybeOrigin maybeProtocols-    touchManagedPtr msg-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()---- function soup_websocket_client_verify_handshake--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_websocket_client_verify_handshake" soup_websocket_client_verify_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---websocketClientVerifyHandshake ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    m ()-websocketClientVerifyHandshake msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    onException (do-        _ <- propagateGError $ soup_websocket_client_verify_handshake msg'-        touchManagedPtr msg-        return ()-     ) (do-        return ()-     )---- function soup_websocket_error_get_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_error_get_quark" soup_websocket_error_get_quark :: -    IO Word32---websocketErrorGetQuark ::-    (MonadIO m) =>-    m Word32-websocketErrorGetQuark  = liftIO $ do-    result <- soup_websocket_error_get_quark-    return result---- function soup_websocket_server_check_handshake--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_websocket_server_check_handshake" soup_websocket_server_check_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO CInt---websocketServerCheckHandshake ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    Maybe (T.Text) ->                       -- origin-    Maybe ([T.Text]) ->                     -- protocols-    m ()-websocketServerCheckHandshake msg origin protocols = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    onException (do-        _ <- propagateGError $ soup_websocket_server_check_handshake msg' maybeOrigin maybeProtocols-        touchManagedPtr msg-        freeMem maybeOrigin-        mapZeroTerminatedCArray freeMem maybeProtocols-        freeMem maybeProtocols-        return ()-     ) (do-        freeMem maybeOrigin-        mapZeroTerminatedCArray freeMem maybeProtocols-        freeMem maybeProtocols-     )---- function soup_websocket_server_process_handshake--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_server_process_handshake" soup_websocket_server_process_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- expected_origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CInt---websocketServerProcessHandshake ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    Maybe (T.Text) ->                       -- expected_origin-    Maybe ([T.Text]) ->                     -- protocols-    m Bool-websocketServerProcessHandshake msg expected_origin protocols = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeExpected_origin <- case expected_origin of-        Nothing -> return nullPtr-        Just jExpected_origin -> do-            jExpected_origin' <- textToCString jExpected_origin-            return jExpected_origin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    result <- soup_websocket_server_process_handshake msg' maybeExpected_origin maybeProtocols-    let result' = (/= 0) result-    touchManagedPtr msg-    freeMem maybeExpected_origin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return result'---- function soup_xmlrpc_build_method_call--- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call :: -    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GValue ->                           -- params : TCArray False (-1) 2 (TInterface "GObject" "Value")-    Int32 ->                                -- n_params : TBasicType TInt32-    IO CString--{-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-}-xmlrpcBuildMethodCall ::-    (MonadIO m) =>-    T.Text ->                               -- method_name-    [GValue] ->                             -- params-    m T.Text-xmlrpcBuildMethodCall method_name params = liftIO $ do-    let n_params = fromIntegral $ length params-    method_name' <- textToCString method_name-    let params' = map unsafeManagedPtrGetPtr params-    params'' <- packBlockArray 24 params'-    result <- soup_xmlrpc_build_method_call method_name' params'' n_params-    checkUnexpectedReturnNULL "soup_xmlrpc_build_method_call" result-    result' <- cstringToText result-    freeMem result-    mapM_ touchManagedPtr params-    freeMem method_name'-    freeMem params''-    return result'---- function soup_xmlrpc_build_method_response--- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_build_method_response" soup_xmlrpc_build_method_response :: -    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO CString--{-# DEPRECATED xmlrpcBuildMethodResponse ["Use soup_xmlrpc_build_response() instead."]#-}-xmlrpcBuildMethodResponse ::-    (MonadIO m) =>-    GValue ->                               -- value-    m T.Text-xmlrpcBuildMethodResponse value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    result <- soup_xmlrpc_build_method_response value'-    checkUnexpectedReturnNULL "soup_xmlrpc_build_method_response" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr value-    return result'---- function soup_xmlrpc_build_request--- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_build_request" soup_xmlrpc_build_request :: -    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- params : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcBuildRequest ::-    (MonadIO m) =>-    T.Text ->                               -- method_name-    GVariant ->                             -- params-    m T.Text-xmlrpcBuildRequest method_name params = liftIO $ do-    method_name' <- textToCString method_name-    let params' = unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_request method_name' params'-        checkUnexpectedReturnNULL "soup_xmlrpc_build_request" result-        result' <- cstringToText result-        freeMem result-        freeMem method_name'-        return result'-     ) (do-        freeMem method_name'-     )---- function soup_xmlrpc_build_response--- Args : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_build_response" soup_xmlrpc_build_response :: -    Ptr GVariant ->                         -- value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcBuildResponse ::-    (MonadIO m) =>-    GVariant ->                             -- value-    m T.Text-xmlrpcBuildResponse value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_response value'-        checkUnexpectedReturnNULL "soup_xmlrpc_build_response" result-        result' <- cstringToText result-        freeMem result-        return result'-     ) (do-        return ()-     )---- function soup_xmlrpc_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_error_quark" soup_xmlrpc_error_quark :: -    IO Word32---xmlrpcErrorQuark ::-    (MonadIO m) =>-    m Word32-xmlrpcErrorQuark  = liftIO $ do-    result <- soup_xmlrpc_error_quark-    return result---- function soup_xmlrpc_fault_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_fault_quark" soup_xmlrpc_fault_quark :: -    IO Word32---xmlrpcFaultQuark ::-    (MonadIO m) =>-    m Word32-xmlrpcFaultQuark  = liftIO $ do-    result <- soup_xmlrpc_fault_quark-    return result---- function soup_xmlrpc_message_new--- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Message"--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_message_new" soup_xmlrpc_message_new :: -    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- params : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Message)---xmlrpcMessageNew ::-    (MonadIO m) =>-    T.Text ->                               -- uri-    T.Text ->                               -- method_name-    GVariant ->                             -- params-    m Message-xmlrpcMessageNew uri method_name params = liftIO $ do-    uri' <- textToCString uri-    method_name' <- textToCString method_name-    let params' = unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_message_new uri' method_name' params'-        checkUnexpectedReturnNULL "soup_xmlrpc_message_new" result-        result' <- (wrapObject Message) result-        freeMem uri'-        freeMem method_name'-        return result'-     ) (do-        freeMem uri'-        freeMem method_name'-     )---- function soup_xmlrpc_message_set_response--- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_message_set_response" soup_xmlrpc_message_set_response :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr GVariant ->                         -- value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CInt---xmlrpcMessageSetResponse ::-    (MonadIO m, MessageK a) =>-    a ->                                    -- msg-    GVariant ->                             -- value-    m ()-xmlrpcMessageSetResponse msg value = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    let value' = unsafeManagedPtrGetPtr value-    onException (do-        _ <- propagateGError $ soup_xmlrpc_message_set_response msg' value'-        touchManagedPtr msg-        return ()-     ) (do-        return ()-     )---- function soup_xmlrpc_parse_method_call--- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr CString ->                          -- method_name : TBasicType TUTF8-    Ptr GObject.ValueArray ->               -- params : TInterface "GObject" "ValueArray"-    IO CInt--{-# DEPRECATED xmlrpcParseMethodCall ["Use soup_xmlrpc_parse_request_full() instead."]#-}-xmlrpcParseMethodCall ::-    (MonadIO m) =>-    T.Text ->                               -- method_call-    Int32 ->                                -- length-    m (Bool,T.Text,GObject.ValueArray)-xmlrpcParseMethodCall method_call length_ = liftIO $ do-    method_call' <- textToCString method_call-    method_name <- allocMem :: IO (Ptr CString)-    params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray)-    result <- soup_xmlrpc_parse_method_call method_call' length_ method_name params-    let result' = (/= 0) result-    method_name' <- peek method_name-    method_name'' <- cstringToText method_name'-    freeMem method_name'-    params' <- (wrapBoxed GObject.ValueArray) params-    freeMem method_call'-    freeMem method_name-    return (result', method_name'', params')---- function soup_xmlrpc_parse_method_response--- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED xmlrpcParseMethodResponse ["Use soup_xmlrpc_parse_response() instead."]#-}-xmlrpcParseMethodResponse ::-    (MonadIO m) =>-    T.Text ->                               -- method_response-    Int32 ->                                -- length-    m (GValue)-xmlrpcParseMethodResponse method_response length_ = liftIO $ do-    method_response' <- textToCString method_response-    value <- callocBoxedBytes 24 :: IO (Ptr GValue)-    onException (do-        _ <- propagateGError $ soup_xmlrpc_parse_method_response method_response' length_ value-        value' <- (wrapBoxed GValue) value-        freeMem method_response'-        return value'-     ) (do-        freeMem method_response'-        freeMem value-     )---- function soup_xmlrpc_parse_request--- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr (Ptr XMLRPCParams) ->               -- params : TInterface "Soup" "XMLRPCParams"-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcParseRequest ::-    (MonadIO m) =>-    T.Text ->                               -- method_call-    Int32 ->                                -- length-    m (T.Text,XMLRPCParams)-xmlrpcParseRequest method_call length_ = liftIO $ do-    method_call' <- textToCString method_call-    params <- allocMem :: IO (Ptr (Ptr XMLRPCParams))-    onException (do-        result <- propagateGError $ soup_xmlrpc_parse_request method_call' length_ params-        checkUnexpectedReturnNULL "soup_xmlrpc_parse_request" result-        result' <- cstringToText result-        freeMem result-        params' <- peek params-        -- XXX Wrapping a foreign struct/union with no known destructor, leak?-        params'' <- (\x -> XMLRPCParams <$> newForeignPtr_ x) params'-        freeMem method_call'-        freeMem params-        return (result', params'')-     ) (do-        freeMem method_call'-        freeMem params-     )---- function soup_xmlrpc_parse_response--- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    CString ->                              -- signature : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---xmlrpcParseResponse ::-    (MonadIO m) =>-    T.Text ->                               -- method_response-    Int32 ->                                -- length-    Maybe (T.Text) ->                       -- signature-    m GVariant-xmlrpcParseResponse method_response length_ signature = liftIO $ do-    method_response' <- textToCString method_response-    maybeSignature <- case signature of-        Nothing -> return nullPtr-        Just jSignature -> do-            jSignature' <- textToCString jSignature-            return jSignature'-    onException (do-        result <- propagateGError $ soup_xmlrpc_parse_response method_response' length_ maybeSignature-        checkUnexpectedReturnNULL "soup_xmlrpc_parse_response" result-        result' <- wrapGVariantPtr result-        freeMem method_response'-        freeMem maybeSignature-        return result'-     ) (do-        freeMem method_response'-        freeMem maybeSignature-     )---- function soup_xmlrpc_variant_get_datetime--- Args : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Soup" "Date"--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_variant_get_datetime" soup_xmlrpc_variant_get_datetime :: -    Ptr GVariant ->                         -- variant : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Date)---xmlrpcVariantGetDatetime ::-    (MonadIO m) =>-    GVariant ->                             -- variant-    m Date-xmlrpcVariantGetDatetime variant = liftIO $ do-    let variant' = unsafeManagedPtrGetPtr variant-    onException (do-        result <- propagateGError $ soup_xmlrpc_variant_get_datetime variant'-        checkUnexpectedReturnNULL "soup_xmlrpc_variant_get_datetime" result-        result' <- (wrapBoxed Date) result-        return result'-     ) (do-        return ()-     )---- function soup_xmlrpc_variant_new_datetime--- Args : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_variant_new_datetime" soup_xmlrpc_variant_new_datetime :: -    Ptr Date ->                             -- date : TInterface "Soup" "Date"-    IO (Ptr GVariant)---xmlrpcVariantNewDatetime ::-    (MonadIO m) =>-    Date ->                                 -- date-    m GVariant-xmlrpcVariantNewDatetime date = liftIO $ do-    let date' = unsafeManagedPtrGetPtr date-    result <- soup_xmlrpc_variant_new_datetime date'-    checkUnexpectedReturnNULL "soup_xmlrpc_variant_new_datetime" result-    result' <- wrapGVariantPtr result-    touchManagedPtr date-    return result'++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup+    (     module GI.Soup.Callbacks                ,+    module GI.Soup.Constants                ,+    module GI.Soup.Enums                    ,+    module GI.Soup.Flags                    ,+    module GI.Soup.Functions                ,+    module GI.Soup.Interfaces               ,+    module GI.Soup.Objects                  ,+    module GI.Soup.Structs                  ,+++    ) 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 Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+
+ GI/Soup/Callbacks.hs view
@@ -0,0 +1,759 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Callbacks+    ( ++ -- * Signals+-- ** AddressCallback+    AddressCallback                         ,+    AddressCallbackC                        ,+    addressCallbackClosure                  ,+    addressCallbackWrapper                  ,+    mkAddressCallback                       ,+    noAddressCallback                       ,+++-- ** AuthDomainBasicAuthCallback+    AuthDomainBasicAuthCallback             ,+    AuthDomainBasicAuthCallbackC            ,+    authDomainBasicAuthCallbackClosure      ,+    authDomainBasicAuthCallbackWrapper      ,+    mkAuthDomainBasicAuthCallback           ,+    noAuthDomainBasicAuthCallback           ,+++-- ** AuthDomainDigestAuthCallback+    AuthDomainDigestAuthCallback            ,+    AuthDomainDigestAuthCallbackC           ,+    authDomainDigestAuthCallbackClosure     ,+    authDomainDigestAuthCallbackWrapper     ,+    mkAuthDomainDigestAuthCallback          ,+    noAuthDomainDigestAuthCallback          ,+++-- ** AuthDomainFilter+    AuthDomainFilter                        ,+    AuthDomainFilterC                       ,+    authDomainFilterClosure                 ,+    authDomainFilterWrapper                 ,+    mkAuthDomainFilter                      ,+    noAuthDomainFilter                      ,+++-- ** AuthDomainGenericAuthCallback+    AuthDomainGenericAuthCallback           ,+    AuthDomainGenericAuthCallbackC          ,+    authDomainGenericAuthCallbackClosure    ,+    authDomainGenericAuthCallbackWrapper    ,+    mkAuthDomainGenericAuthCallback         ,+    noAuthDomainGenericAuthCallback         ,+++-- ** ChunkAllocator+    ChunkAllocator                          ,+    ChunkAllocatorC                         ,+    chunkAllocatorClosure                   ,+    chunkAllocatorWrapper                   ,+    mkChunkAllocator                        ,+    noChunkAllocator                        ,+++-- ** LoggerFilter+    LoggerFilter                            ,+    LoggerFilterC                           ,+    loggerFilterClosure                     ,+    loggerFilterWrapper                     ,+    mkLoggerFilter                          ,+    noLoggerFilter                          ,+++-- ** LoggerPrinter+    LoggerPrinter                           ,+    LoggerPrinterC                          ,+    loggerPrinterClosure                    ,+    loggerPrinterWrapper                    ,+    mkLoggerPrinter                         ,+    noLoggerPrinter                         ,+++-- ** MessageHeadersForeachFunc+    MessageHeadersForeachFunc               ,+    MessageHeadersForeachFuncC              ,+    messageHeadersForeachFuncClosure        ,+    messageHeadersForeachFuncWrapper        ,+    mkMessageHeadersForeachFunc             ,+    noMessageHeadersForeachFunc             ,+++-- ** PasswordManagerCallback+    PasswordManagerCallback                 ,+    PasswordManagerCallbackC                ,+    mkPasswordManagerCallback               ,+    noPasswordManagerCallback               ,+    passwordManagerCallbackClosure          ,+    passwordManagerCallbackWrapper          ,+++-- ** ProxyURIResolverCallback+    ProxyURIResolverCallback                ,+    ProxyURIResolverCallbackC               ,+    mkProxyURIResolverCallback              ,+    noProxyURIResolverCallback              ,+    proxyURIResolverCallbackClosure         ,+    proxyURIResolverCallbackWrapper         ,+++-- ** ServerCallback+    ServerCallback                          ,+    ServerCallbackC                         ,+    mkServerCallback                        ,+    noServerCallback                        ,+    serverCallbackClosure                   ,+    serverCallbackWrapper                   ,+++-- ** ServerWebsocketCallback+    ServerWebsocketCallback                 ,+    ServerWebsocketCallbackC                ,+    mkServerWebsocketCallback               ,+    noServerWebsocketCallback               ,+    serverWebsocketCallbackClosure          ,+    serverWebsocketCallbackWrapper          ,+++-- ** SessionCallback+    SessionCallback                         ,+    SessionCallbackC                        ,+    mkSessionCallback                       ,+    noSessionCallback                       ,+    sessionCallbackClosure                  ,+    sessionCallbackWrapper                  ,+++-- ** SocketCallback+    SocketCallback                          ,+    SocketCallbackC                         ,+    mkSocketCallback                        ,+    noSocketCallback                        ,+    socketCallbackClosure                   ,+    socketCallbackWrapper                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+++-- callback SocketCallback+socketCallbackClosure :: SocketCallback -> IO Closure+socketCallbackClosure cb = newCClosure =<< mkSocketCallback wrapped+    where wrapped = socketCallbackWrapper Nothing cb++type SocketCallbackC =+    Ptr Socket ->+    Word32 ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkSocketCallback :: SocketCallbackC -> IO (FunPtr SocketCallbackC)++type SocketCallback =+    Socket ->+    Word32 ->+    IO ()++noSocketCallback :: Maybe SocketCallback+noSocketCallback = Nothing++socketCallbackWrapper ::+    Maybe (Ptr (FunPtr (SocketCallbackC))) ->+    SocketCallback ->+    Ptr Socket ->+    Word32 ->+    Ptr () ->+    IO ()+socketCallbackWrapper funptrptr _cb sock status _ = do+    sock' <- (newObject Socket) sock+    _cb  sock' status+    maybeReleaseFunPtr funptrptr++-- callback SessionCallback+sessionCallbackClosure :: SessionCallback -> IO Closure+sessionCallbackClosure cb = newCClosure =<< mkSessionCallback wrapped+    where wrapped = sessionCallbackWrapper Nothing cb++type SessionCallbackC =+    Ptr Session ->+    Ptr Message ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkSessionCallback :: SessionCallbackC -> IO (FunPtr SessionCallbackC)++type SessionCallback =+    Session ->+    Message ->+    IO ()++noSessionCallback :: Maybe SessionCallback+noSessionCallback = Nothing++sessionCallbackWrapper ::+    Maybe (Ptr (FunPtr (SessionCallbackC))) ->+    SessionCallback ->+    Ptr Session ->+    Ptr Message ->+    Ptr () ->+    IO ()+sessionCallbackWrapper funptrptr _cb session msg _ = do+    session' <- (newObject Session) session+    msg' <- (newObject Message) msg+    _cb  session' msg'+    maybeReleaseFunPtr funptrptr++-- callback ServerWebsocketCallback+serverWebsocketCallbackClosure :: ServerWebsocketCallback -> IO Closure+serverWebsocketCallbackClosure cb = newCClosure =<< mkServerWebsocketCallback wrapped+    where wrapped = serverWebsocketCallbackWrapper Nothing cb++type ServerWebsocketCallbackC =+    Ptr Server ->+    Ptr WebsocketConnection ->+    CString ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkServerWebsocketCallback :: ServerWebsocketCallbackC -> IO (FunPtr ServerWebsocketCallbackC)++type ServerWebsocketCallback =+    Server ->+    WebsocketConnection ->+    T.Text ->+    ClientContext ->+    IO ()++noServerWebsocketCallback :: Maybe ServerWebsocketCallback+noServerWebsocketCallback = Nothing++serverWebsocketCallbackWrapper ::+    Maybe (Ptr (FunPtr (ServerWebsocketCallbackC))) ->+    ServerWebsocketCallback ->+    Ptr Server ->+    Ptr WebsocketConnection ->+    CString ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverWebsocketCallbackWrapper funptrptr _cb server connection path client _ = do+    server' <- (newObject Server) server+    connection' <- (newObject WebsocketConnection) connection+    path' <- cstringToText path+    client' <- (newBoxed ClientContext) client+    _cb  server' connection' path' client'+    maybeReleaseFunPtr funptrptr++-- callback ServerCallback+serverCallbackClosure :: ServerCallback -> IO Closure+serverCallbackClosure cb = newCClosure =<< mkServerCallback wrapped+    where wrapped = serverCallbackWrapper Nothing cb++type ServerCallbackC =+    Ptr Server ->+    Ptr Message ->+    CString ->+    Ptr (GHashTable CString CString) ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkServerCallback :: ServerCallbackC -> IO (FunPtr ServerCallbackC)++type ServerCallback =+    Server ->+    Message ->+    T.Text ->+    Maybe (Map.Map T.Text T.Text) ->+    ClientContext ->+    IO ()++noServerCallback :: Maybe ServerCallback+noServerCallback = Nothing++serverCallbackWrapper ::+    Maybe (Ptr (FunPtr (ServerCallbackC))) ->+    ServerCallback ->+    Ptr Server ->+    Ptr Message ->+    CString ->+    Ptr (GHashTable CString CString) ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverCallbackWrapper funptrptr _cb server msg path query client _ = do+    server' <- (newObject Server) server+    msg' <- (newObject Message) msg+    path' <- cstringToText path+    maybeQuery <-+        if query == nullPtr+        then return Nothing+        else do+            query' <- unpackGHashTable query+            let query'' = mapFirst cstringUnpackPtr query'+            query''' <- mapFirstA cstringToText query''+            let query'''' = mapSecond cstringUnpackPtr query'''+            query''''' <- mapSecondA cstringToText query''''+            let query'''''' = Map.fromList query'''''+            return $ Just query''''''+    client' <- (newBoxed ClientContext) client+    _cb  server' msg' path' maybeQuery client'+    maybeReleaseFunPtr funptrptr++-- callback ProxyURIResolverCallback+proxyURIResolverCallbackClosure :: ProxyURIResolverCallback -> IO Closure+proxyURIResolverCallbackClosure cb = newCClosure =<< mkProxyURIResolverCallback wrapped+    where wrapped = proxyURIResolverCallbackWrapper Nothing cb++type ProxyURIResolverCallbackC =+    Ptr ProxyURIResolver ->+    Word32 ->+    Ptr URI ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkProxyURIResolverCallback :: ProxyURIResolverCallbackC -> IO (FunPtr ProxyURIResolverCallbackC)++type ProxyURIResolverCallback =+    ProxyURIResolver ->+    Word32 ->+    URI ->+    IO ()++noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback+noProxyURIResolverCallback = Nothing++proxyURIResolverCallbackWrapper ::+    Maybe (Ptr (FunPtr (ProxyURIResolverCallbackC))) ->+    ProxyURIResolverCallback ->+    Ptr ProxyURIResolver ->+    Word32 ->+    Ptr URI ->+    Ptr () ->+    IO ()+proxyURIResolverCallbackWrapper funptrptr _cb resolver status proxy_uri _ = do+    resolver' <- (newObject ProxyURIResolver) resolver+    proxy_uri' <- (newBoxed URI) proxy_uri+    _cb  resolver' status proxy_uri'+    maybeReleaseFunPtr funptrptr++-- callback PasswordManagerCallback+passwordManagerCallbackClosure :: PasswordManagerCallback -> IO Closure+passwordManagerCallbackClosure cb = newCClosure =<< mkPasswordManagerCallback wrapped+    where wrapped = passwordManagerCallbackWrapper Nothing cb++type PasswordManagerCallbackC =+    Ptr PasswordManager ->+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkPasswordManagerCallback :: PasswordManagerCallbackC -> IO (FunPtr PasswordManagerCallbackC)++type PasswordManagerCallback =+    PasswordManager ->+    Message ->+    Auth ->+    Bool ->+    IO ()++noPasswordManagerCallback :: Maybe PasswordManagerCallback+noPasswordManagerCallback = Nothing++passwordManagerCallbackWrapper ::+    Maybe (Ptr (FunPtr (PasswordManagerCallbackC))) ->+    PasswordManagerCallback ->+    Ptr PasswordManager ->+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->+    IO ()+passwordManagerCallbackWrapper funptrptr _cb password_manager msg auth retrying _ = do+    password_manager' <- (newObject PasswordManager) password_manager+    msg' <- (newObject Message) msg+    auth' <- (newObject Auth) auth+    let retrying' = (/= 0) retrying+    _cb  password_manager' msg' auth' retrying'+    maybeReleaseFunPtr funptrptr++-- callback MessageHeadersForeachFunc+messageHeadersForeachFuncClosure :: MessageHeadersForeachFunc -> IO Closure+messageHeadersForeachFuncClosure cb = newCClosure =<< mkMessageHeadersForeachFunc wrapped+    where wrapped = messageHeadersForeachFuncWrapper Nothing cb++type MessageHeadersForeachFuncC =+    CString ->+    CString ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMessageHeadersForeachFunc :: MessageHeadersForeachFuncC -> IO (FunPtr MessageHeadersForeachFuncC)++type MessageHeadersForeachFunc =+    T.Text ->+    T.Text ->+    IO ()++noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc+noMessageHeadersForeachFunc = Nothing++messageHeadersForeachFuncWrapper ::+    Maybe (Ptr (FunPtr (MessageHeadersForeachFuncC))) ->+    MessageHeadersForeachFunc ->+    CString ->+    CString ->+    Ptr () ->+    IO ()+messageHeadersForeachFuncWrapper funptrptr _cb name value _ = do+    name' <- cstringToText name+    value' <- cstringToText value+    _cb  name' value'+    maybeReleaseFunPtr funptrptr++-- callback LoggerPrinter+loggerPrinterClosure :: LoggerPrinter -> IO Closure+loggerPrinterClosure cb = newCClosure =<< mkLoggerPrinter wrapped+    where wrapped = loggerPrinterWrapper Nothing cb++type LoggerPrinterC =+    Ptr Logger ->+    CUInt ->+    Int8 ->+    CString ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkLoggerPrinter :: LoggerPrinterC -> IO (FunPtr LoggerPrinterC)++type LoggerPrinter =+    Logger ->+    LoggerLogLevel ->+    Int8 ->+    T.Text ->+    IO ()++noLoggerPrinter :: Maybe LoggerPrinter+noLoggerPrinter = Nothing++loggerPrinterWrapper ::+    Maybe (Ptr (FunPtr (LoggerPrinterC))) ->+    LoggerPrinter ->+    Ptr Logger ->+    CUInt ->+    Int8 ->+    CString ->+    Ptr () ->+    IO ()+loggerPrinterWrapper funptrptr _cb logger level direction data_ _ = do+    logger' <- (newObject Logger) logger+    let level' = (toEnum . fromIntegral) level+    data_' <- cstringToText data_+    _cb  logger' level' direction data_'+    maybeReleaseFunPtr funptrptr++-- callback LoggerFilter+loggerFilterClosure :: LoggerFilter -> IO Closure+loggerFilterClosure cb = newCClosure =<< mkLoggerFilter wrapped+    where wrapped = loggerFilterWrapper Nothing cb++type LoggerFilterC =+    Ptr Logger ->+    Ptr Message ->+    Ptr () ->+    IO CUInt++foreign import ccall "wrapper"+    mkLoggerFilter :: LoggerFilterC -> IO (FunPtr LoggerFilterC)++type LoggerFilter =+    Logger ->+    Message ->+    IO LoggerLogLevel++noLoggerFilter :: Maybe LoggerFilter+noLoggerFilter = Nothing++loggerFilterWrapper ::+    Maybe (Ptr (FunPtr (LoggerFilterC))) ->+    LoggerFilter ->+    Ptr Logger ->+    Ptr Message ->+    Ptr () ->+    IO CUInt+loggerFilterWrapper funptrptr _cb logger msg _ = do+    logger' <- (newObject Logger) logger+    msg' <- (newObject Message) msg+    result <- _cb  logger' msg'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback ChunkAllocator+chunkAllocatorClosure :: ChunkAllocator -> IO Closure+chunkAllocatorClosure cb = newCClosure =<< mkChunkAllocator wrapped+    where wrapped = chunkAllocatorWrapper Nothing cb++type ChunkAllocatorC =+    Ptr Message ->+    Word64 ->+    Ptr () ->+    IO (Ptr Buffer)++foreign import ccall "wrapper"+    mkChunkAllocator :: ChunkAllocatorC -> IO (FunPtr ChunkAllocatorC)++type ChunkAllocator =+    Message ->+    Word64 ->+    IO Buffer++noChunkAllocator :: Maybe ChunkAllocator+noChunkAllocator = Nothing++chunkAllocatorWrapper ::+    Maybe (Ptr (FunPtr (ChunkAllocatorC))) ->+    ChunkAllocator ->+    Ptr Message ->+    Word64 ->+    Ptr () ->+    IO (Ptr Buffer)+chunkAllocatorWrapper funptrptr _cb msg max_len _ = do+    msg' <- (newObject Message) msg+    result <- _cb  msg' max_len+    maybeReleaseFunPtr funptrptr+    result' <- copyBoxed result+    return result'++-- callback AuthDomainGenericAuthCallback+authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure+authDomainGenericAuthCallbackClosure cb = newCClosure =<< mkAuthDomainGenericAuthCallback wrapped+    where wrapped = authDomainGenericAuthCallbackWrapper Nothing cb++type AuthDomainGenericAuthCallbackC =+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkAuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallbackC -> IO (FunPtr AuthDomainGenericAuthCallbackC)++type AuthDomainGenericAuthCallback =+    AuthDomain ->+    Message ->+    T.Text ->+    IO Bool++noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback+noAuthDomainGenericAuthCallback = Nothing++authDomainGenericAuthCallbackWrapper ::+    Maybe (Ptr (FunPtr (AuthDomainGenericAuthCallbackC))) ->+    AuthDomainGenericAuthCallback ->+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    Ptr () ->+    IO CInt+authDomainGenericAuthCallbackWrapper funptrptr _cb domain msg username _ = do+    domain' <- (newObject AuthDomain) domain+    msg' <- (newObject Message) msg+    username' <- cstringToText username+    result <- _cb  domain' msg' username'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback AuthDomainFilter+authDomainFilterClosure :: AuthDomainFilter -> IO Closure+authDomainFilterClosure cb = newCClosure =<< mkAuthDomainFilter wrapped+    where wrapped = authDomainFilterWrapper Nothing cb++type AuthDomainFilterC =+    Ptr AuthDomain ->+    Ptr Message ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkAuthDomainFilter :: AuthDomainFilterC -> IO (FunPtr AuthDomainFilterC)++type AuthDomainFilter =+    AuthDomain ->+    Message ->+    IO Bool++noAuthDomainFilter :: Maybe AuthDomainFilter+noAuthDomainFilter = Nothing++authDomainFilterWrapper ::+    Maybe (Ptr (FunPtr (AuthDomainFilterC))) ->+    AuthDomainFilter ->+    Ptr AuthDomain ->+    Ptr Message ->+    Ptr () ->+    IO CInt+authDomainFilterWrapper funptrptr _cb domain msg _ = do+    domain' <- (newObject AuthDomain) domain+    msg' <- (newObject Message) msg+    result <- _cb  domain' msg'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback AuthDomainDigestAuthCallback+authDomainDigestAuthCallbackClosure :: AuthDomainDigestAuthCallback -> IO Closure+authDomainDigestAuthCallbackClosure cb = newCClosure =<< mkAuthDomainDigestAuthCallback wrapped+    where wrapped = authDomainDigestAuthCallbackWrapper Nothing cb++type AuthDomainDigestAuthCallbackC =+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    Ptr () ->+    IO CString++foreign import ccall "wrapper"+    mkAuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallbackC -> IO (FunPtr AuthDomainDigestAuthCallbackC)++type AuthDomainDigestAuthCallback =+    AuthDomain ->+    Message ->+    T.Text ->+    IO T.Text++noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback+noAuthDomainDigestAuthCallback = Nothing++authDomainDigestAuthCallbackWrapper ::+    Maybe (Ptr (FunPtr (AuthDomainDigestAuthCallbackC))) ->+    AuthDomainDigestAuthCallback ->+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    Ptr () ->+    IO CString+authDomainDigestAuthCallbackWrapper funptrptr _cb domain msg username _ = do+    domain' <- (newObject AuthDomain) domain+    msg' <- (newObject Message) msg+    username' <- cstringToText username+    result <- _cb  domain' msg' username'+    maybeReleaseFunPtr funptrptr+    result' <- textToCString result+    return result'++-- callback AuthDomainBasicAuthCallback+authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure+authDomainBasicAuthCallbackClosure cb = newCClosure =<< mkAuthDomainBasicAuthCallback wrapped+    where wrapped = authDomainBasicAuthCallbackWrapper Nothing cb++type AuthDomainBasicAuthCallbackC =+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    CString ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkAuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallbackC -> IO (FunPtr AuthDomainBasicAuthCallbackC)++type AuthDomainBasicAuthCallback =+    AuthDomain ->+    Message ->+    T.Text ->+    T.Text ->+    IO Bool++noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback+noAuthDomainBasicAuthCallback = Nothing++authDomainBasicAuthCallbackWrapper ::+    Maybe (Ptr (FunPtr (AuthDomainBasicAuthCallbackC))) ->+    AuthDomainBasicAuthCallback ->+    Ptr AuthDomain ->+    Ptr Message ->+    CString ->+    CString ->+    Ptr () ->+    IO CInt+authDomainBasicAuthCallbackWrapper funptrptr _cb domain msg username password _ = do+    domain' <- (newObject AuthDomain) domain+    msg' <- (newObject Message) msg+    username' <- cstringToText username+    password' <- cstringToText password+    result <- _cb  domain' msg' username' password'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback AddressCallback+addressCallbackClosure :: AddressCallback -> IO Closure+addressCallbackClosure cb = newCClosure =<< mkAddressCallback wrapped+    where wrapped = addressCallbackWrapper Nothing cb++type AddressCallbackC =+    Ptr Address ->+    Word32 ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkAddressCallback :: AddressCallbackC -> IO (FunPtr AddressCallbackC)++type AddressCallback =+    Address ->+    Word32 ->+    IO ()++noAddressCallback :: Maybe AddressCallback+noAddressCallback = Nothing++addressCallbackWrapper ::+    Maybe (Ptr (FunPtr (AddressCallbackC))) ->+    AddressCallback ->+    Ptr Address ->+    Word32 ->+    Ptr () ->+    IO ()+addressCallbackWrapper funptrptr _cb addr status _ = do+    addr' <- (newObject Address) addr+    _cb  addr' status+    maybeReleaseFunPtr funptrptr++
+ GI/Soup/Constants.hs view
@@ -0,0 +1,600 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Constants+    ( +    pattern XMLRPC_OLD_H                    ,+    pattern XMLRPC_H                        ,+    pattern VALUE_UTILS_H                   ,+    pattern URI_H                           ,+    pattern TYPES_H                         ,+    pattern STATUS_H                        ,+    pattern SOCKET_USE_THREAD_CONTEXT       ,+    pattern SOCKET_TRUSTED_CERTIFICATE      ,+    pattern SOCKET_TLS_ERRORS               ,+    pattern SOCKET_TLS_CERTIFICATE          ,+    pattern SOCKET_TIMEOUT                  ,+    pattern SOCKET_SSL_STRICT               ,+    pattern SOCKET_SSL_FALLBACK             ,+    pattern SOCKET_SSL_CREDENTIALS          ,+    pattern SOCKET_REMOTE_ADDRESS           ,+    pattern SOCKET_LOCAL_ADDRESS            ,+    pattern SOCKET_IS_SERVER                ,+    pattern SOCKET_H                        ,+    pattern SOCKET_FLAG_NONBLOCKING         ,+    pattern SOCKET_ASYNC_CONTEXT            ,+    pattern SESSION_USE_THREAD_CONTEXT      ,+    pattern SESSION_USE_NTLM                ,+    pattern SESSION_USER_AGENT              ,+    pattern SESSION_TLS_INTERACTION         ,+    pattern SESSION_TLS_DATABASE            ,+    pattern SESSION_TIMEOUT                 ,+    pattern SESSION_SYNC_H                  ,+    pattern SESSION_SSL_USE_SYSTEM_CA_FILE  ,+    pattern SESSION_SSL_STRICT              ,+    pattern SESSION_SSL_CA_FILE             ,+    pattern SESSION_PROXY_URI               ,+    pattern SESSION_PROXY_RESOLVER          ,+    pattern SESSION_MAX_CONNS_PER_HOST      ,+    pattern SESSION_MAX_CONNS               ,+    pattern SESSION_LOCAL_ADDRESS           ,+    pattern SESSION_IDLE_TIMEOUT            ,+    pattern SESSION_HTTP_ALIASES            ,+    pattern SESSION_HTTPS_ALIASES           ,+    pattern SESSION_H                       ,+    pattern SESSION_FEATURE_H               ,+    pattern SESSION_ASYNC_H                 ,+    pattern SESSION_ASYNC_CONTEXT           ,+    pattern SESSION_ACCEPT_LANGUAGE_AUTO    ,+    pattern SESSION_ACCEPT_LANGUAGE         ,+    pattern SERVER_TLS_CERTIFICATE          ,+    pattern SERVER_SSL_KEY_FILE             ,+    pattern SERVER_SSL_CERT_FILE            ,+    pattern SERVER_SERVER_HEADER            ,+    pattern SERVER_RAW_PATHS                ,+    pattern SERVER_PORT                     ,+    pattern SERVER_INTERFACE                ,+    pattern SERVER_HTTP_ALIASES             ,+    pattern SERVER_HTTPS_ALIASES            ,+    pattern SERVER_H                        ,+    pattern SERVER_ASYNC_CONTEXT            ,+    pattern REQUEST_URI                     ,+    pattern REQUEST_SESSION                 ,+    pattern REQUEST_HTTP_H                  ,+    pattern REQUEST_H                       ,+    pattern REQUEST_FILE_H                  ,+    pattern REQUEST_DATA_H                  ,+    pattern REQUESTER_H                     ,+    pattern PROXY_URI_RESOLVER_H            ,+    pattern PROXY_RESOLVER_DEFAULT_H        ,+    pattern PASSWORD_MANAGER_H              ,+    pattern MULTIPART_INPUT_STREAM_H        ,+    pattern MULTIPART_H                     ,+    pattern MISC_H                          ,+    pattern METHOD_H                        ,+    pattern MESSAGE_URI                     ,+    pattern MESSAGE_TLS_ERRORS              ,+    pattern MESSAGE_TLS_CERTIFICATE         ,+    pattern MESSAGE_STATUS_CODE             ,+    pattern MESSAGE_SERVER_SIDE             ,+    pattern MESSAGE_RESPONSE_HEADERS        ,+    pattern MESSAGE_RESPONSE_BODY_DATA      ,+    pattern MESSAGE_RESPONSE_BODY           ,+    pattern MESSAGE_REQUEST_HEADERS         ,+    pattern MESSAGE_REQUEST_BODY_DATA       ,+    pattern MESSAGE_REQUEST_BODY            ,+    pattern MESSAGE_REASON_PHRASE           ,+    pattern MESSAGE_PRIORITY                ,+    pattern MESSAGE_METHOD                  ,+    pattern MESSAGE_HTTP_VERSION            ,+    pattern MESSAGE_HEADERS_H               ,+    pattern MESSAGE_H                       ,+    pattern MESSAGE_FLAGS                   ,+    pattern MESSAGE_FIRST_PARTY             ,+    pattern MESSAGE_BODY_H                  ,+    pattern LOGGER_H                        ,+    pattern HEADERS_H                       ,+    pattern FORM_MIME_TYPE_URLENCODED       ,+    pattern FORM_MIME_TYPE_MULTIPART        ,+    pattern FORM_H                          ,+    pattern DATE_H                          ,+    pattern COOKIE_MAX_AGE_ONE_YEAR         ,+    pattern COOKIE_MAX_AGE_ONE_WEEK         ,+    pattern COOKIE_MAX_AGE_ONE_HOUR         ,+    pattern COOKIE_MAX_AGE_ONE_DAY          ,+    pattern COOKIE_JAR_TEXT_H               ,+    pattern COOKIE_JAR_TEXT_FILENAME        ,+    pattern COOKIE_JAR_READ_ONLY            ,+    pattern COOKIE_JAR_H                    ,+    pattern COOKIE_JAR_DB_H                 ,+    pattern COOKIE_JAR_DB_FILENAME          ,+    pattern COOKIE_JAR_ACCEPT_POLICY        ,+    pattern COOKIE_H                        ,+    pattern CONTENT_SNIFFER_H               ,+    pattern CONTENT_DECODER_H               ,+    pattern CHAR_URI_SUB_DELIMS             ,+    pattern CHAR_URI_PERCENT_ENCODED        ,+    pattern CHAR_URI_GEN_DELIMS             ,+    pattern CHAR_HTTP_SEPARATOR             ,+    pattern CHAR_HTTP_CTL                   ,+    pattern CACHE_H                         ,+    pattern AUTH_SCHEME_NAME                ,+    pattern AUTH_REALM                      ,+    pattern AUTH_MANAGER_H                  ,+    pattern AUTH_IS_FOR_PROXY               ,+    pattern AUTH_IS_AUTHENTICATED           ,+    pattern AUTH_HOST                       ,+    pattern AUTH_H                          ,+    pattern AUTH_DOMAIN_REMOVE_PATH         ,+    pattern AUTH_DOMAIN_REALM               ,+    pattern AUTH_DOMAIN_PROXY               ,+    pattern AUTH_DOMAIN_H                   ,+    pattern AUTH_DOMAIN_GENERIC_AUTH_DATA   ,+    pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK,+    pattern AUTH_DOMAIN_FILTER_DATA         ,+    pattern AUTH_DOMAIN_FILTER              ,+    pattern AUTH_DOMAIN_DIGEST_H            ,+    pattern AUTH_DOMAIN_DIGEST_AUTH_DATA    ,+    pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK,+    pattern AUTH_DOMAIN_BASIC_H             ,+    pattern AUTH_DOMAIN_BASIC_AUTH_DATA     ,+    pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK ,+    pattern AUTH_DOMAIN_ADD_PATH            ,+    pattern ADDRESS_SOCKADDR                ,+    pattern ADDRESS_PROTOCOL                ,+    pattern ADDRESS_PORT                    ,+    pattern ADDRESS_PHYSICAL                ,+    pattern ADDRESS_NAME                    ,+    pattern ADDRESS_FAMILY                  ,+    pattern ADDRESS_ANY_PORT                ,++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+++pattern XMLRPC_OLD_H = 1 :: Int32+++pattern XMLRPC_H = 1 :: Int32+++pattern VALUE_UTILS_H = 1 :: Int32+++pattern URI_H = 1 :: Int32+++pattern TYPES_H = 1 :: Int32+++pattern STATUS_H = 1 :: Int32+++pattern SOCKET_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text+++pattern SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate" :: T.Text+++pattern SOCKET_TLS_ERRORS = "tls-errors" :: T.Text+++pattern SOCKET_TLS_CERTIFICATE = "tls-certificate" :: T.Text+++pattern SOCKET_TIMEOUT = "timeout" :: T.Text+++pattern SOCKET_SSL_STRICT = "ssl-strict" :: T.Text+++pattern SOCKET_SSL_FALLBACK = "ssl-fallback" :: T.Text+++pattern SOCKET_SSL_CREDENTIALS = "ssl-creds" :: T.Text+++pattern SOCKET_REMOTE_ADDRESS = "remote-address" :: T.Text+++pattern SOCKET_LOCAL_ADDRESS = "local-address" :: T.Text+++pattern SOCKET_IS_SERVER = "is-server" :: T.Text+++pattern SOCKET_H = 1 :: Int32+++pattern SOCKET_FLAG_NONBLOCKING = "non-blocking" :: T.Text+++pattern SOCKET_ASYNC_CONTEXT = "async-context" :: T.Text+++pattern SESSION_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text+++pattern SESSION_USE_NTLM = "use-ntlm" :: T.Text+++pattern SESSION_USER_AGENT = "user-agent" :: T.Text+++pattern SESSION_TLS_INTERACTION = "tls-interaction" :: T.Text+++pattern SESSION_TLS_DATABASE = "tls-database" :: T.Text+++pattern SESSION_TIMEOUT = "timeout" :: T.Text+++pattern SESSION_SYNC_H = 1 :: Int32+++pattern SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file" :: T.Text+++pattern SESSION_SSL_STRICT = "ssl-strict" :: T.Text+++pattern SESSION_SSL_CA_FILE = "ssl-ca-file" :: T.Text+++pattern SESSION_PROXY_URI = "proxy-uri" :: T.Text+++pattern SESSION_PROXY_RESOLVER = "proxy-resolver" :: T.Text+++pattern SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host" :: T.Text+++pattern SESSION_MAX_CONNS = "max-conns" :: T.Text+++pattern SESSION_LOCAL_ADDRESS = "local-address" :: T.Text+++pattern SESSION_IDLE_TIMEOUT = "idle-timeout" :: T.Text+++pattern SESSION_HTTP_ALIASES = "http-aliases" :: T.Text+++pattern SESSION_HTTPS_ALIASES = "https-aliases" :: T.Text+++pattern SESSION_H = 1 :: Int32+++pattern SESSION_FEATURE_H = 1 :: Int32+++pattern SESSION_ASYNC_H = 1 :: Int32+++pattern SESSION_ASYNC_CONTEXT = "async-context" :: T.Text+++pattern SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto" :: T.Text+++pattern SESSION_ACCEPT_LANGUAGE = "accept-language" :: T.Text+++pattern SERVER_TLS_CERTIFICATE = "tls-certificate" :: T.Text++{-# DEPRECATED SERVER_SSL_KEY_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}+pattern SERVER_SSL_KEY_FILE = "ssl-key-file" :: T.Text++{-# DEPRECATED SERVER_SSL_CERT_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}+pattern SERVER_SSL_CERT_FILE = "ssl-cert-file" :: T.Text+++pattern SERVER_SERVER_HEADER = "server-header" :: T.Text+++pattern SERVER_RAW_PATHS = "raw-paths" :: T.Text++{-# DEPRECATED SERVER_PORT ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on a","port, and soup_server_get_uris() to see what ports are","being listened on."]#-}+pattern SERVER_PORT = "port" :: T.Text++{-# DEPRECATED SERVER_INTERFACE ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on an","interface, and soup_server_get_uris() to see what addresses","are being listened on."]#-}+pattern SERVER_INTERFACE = "interface" :: T.Text+++pattern SERVER_HTTP_ALIASES = "http-aliases" :: T.Text+++pattern SERVER_HTTPS_ALIASES = "https-aliases" :: T.Text+++pattern SERVER_H = 1 :: Int32++{-# DEPRECATED SERVER_ASYNC_CONTEXT ["The new API uses the thread-default #GMainContext","rather than having an explicitly-specified one."]#-}+pattern SERVER_ASYNC_CONTEXT = "async-context" :: T.Text+++pattern REQUEST_URI = "uri" :: T.Text+++pattern REQUEST_SESSION = "session" :: T.Text+++pattern REQUEST_HTTP_H = 1 :: Int32+++pattern REQUEST_H = 1 :: Int32+++pattern REQUEST_FILE_H = 1 :: Int32+++pattern REQUEST_DATA_H = 1 :: Int32+++pattern REQUESTER_H = 1 :: Int32+++pattern PROXY_URI_RESOLVER_H = 1 :: Int32+++pattern PROXY_RESOLVER_DEFAULT_H = 1 :: Int32+++pattern PASSWORD_MANAGER_H = 1 :: Int32+++pattern MULTIPART_INPUT_STREAM_H = 1 :: Int32+++pattern MULTIPART_H = 1 :: Int32+++pattern MISC_H = 1 :: Int32+++pattern METHOD_H = 1 :: Int32+++pattern MESSAGE_URI = "uri" :: T.Text+++pattern MESSAGE_TLS_ERRORS = "tls-errors" :: T.Text+++pattern MESSAGE_TLS_CERTIFICATE = "tls-certificate" :: T.Text+++pattern MESSAGE_STATUS_CODE = "status-code" :: T.Text+++pattern MESSAGE_SERVER_SIDE = "server-side" :: T.Text+++pattern MESSAGE_RESPONSE_HEADERS = "response-headers" :: T.Text+++pattern MESSAGE_RESPONSE_BODY_DATA = "response-body-data" :: T.Text+++pattern MESSAGE_RESPONSE_BODY = "response-body" :: T.Text+++pattern MESSAGE_REQUEST_HEADERS = "request-headers" :: T.Text+++pattern MESSAGE_REQUEST_BODY_DATA = "request-body-data" :: T.Text+++pattern MESSAGE_REQUEST_BODY = "request-body" :: T.Text+++pattern MESSAGE_REASON_PHRASE = "reason-phrase" :: T.Text+++pattern MESSAGE_PRIORITY = "priority" :: T.Text+++pattern MESSAGE_METHOD = "method" :: T.Text+++pattern MESSAGE_HTTP_VERSION = "http-version" :: T.Text+++pattern MESSAGE_HEADERS_H = 1 :: Int32+++pattern MESSAGE_H = 1 :: Int32+++pattern MESSAGE_FLAGS = "flags" :: T.Text+++pattern MESSAGE_FIRST_PARTY = "first-party" :: T.Text+++pattern MESSAGE_BODY_H = 1 :: Int32+++pattern LOGGER_H = 1 :: Int32+++pattern HEADERS_H = 1 :: Int32+++pattern FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded" :: T.Text+++pattern FORM_MIME_TYPE_MULTIPART = "multipart/form-data" :: T.Text+++pattern FORM_H = 1 :: Int32+++pattern DATE_H = 1 :: Int32+++pattern COOKIE_MAX_AGE_ONE_YEAR = 0 :: Int32+++pattern COOKIE_MAX_AGE_ONE_WEEK = 0 :: Int32+++pattern COOKIE_MAX_AGE_ONE_HOUR = 3600 :: Int32+++pattern COOKIE_MAX_AGE_ONE_DAY = 0 :: Int32+++pattern COOKIE_JAR_TEXT_H = 1 :: Int32+++pattern COOKIE_JAR_TEXT_FILENAME = "filename" :: T.Text+++pattern COOKIE_JAR_READ_ONLY = "read-only" :: T.Text+++pattern COOKIE_JAR_H = 1 :: Int32+++pattern COOKIE_JAR_DB_H = 1 :: Int32+++pattern COOKIE_JAR_DB_FILENAME = "filename" :: T.Text+++pattern COOKIE_JAR_ACCEPT_POLICY = "accept-policy" :: T.Text+++pattern COOKIE_H = 1 :: Int32+++pattern CONTENT_SNIFFER_H = 1 :: Int32+++pattern CONTENT_DECODER_H = 1 :: Int32+++pattern CHAR_URI_SUB_DELIMS = 4 :: Int32+++pattern CHAR_URI_PERCENT_ENCODED = 1 :: Int32+++pattern CHAR_URI_GEN_DELIMS = 2 :: Int32+++pattern CHAR_HTTP_SEPARATOR = 8 :: Int32+++pattern CHAR_HTTP_CTL = 16 :: Int32+++pattern CACHE_H = 1 :: Int32+++pattern AUTH_SCHEME_NAME = "scheme-name" :: T.Text+++pattern AUTH_REALM = "realm" :: T.Text+++pattern AUTH_MANAGER_H = 1 :: Int32+++pattern AUTH_IS_FOR_PROXY = "is-for-proxy" :: T.Text+++pattern AUTH_IS_AUTHENTICATED = "is-authenticated" :: T.Text+++pattern AUTH_HOST = "host" :: T.Text+++pattern AUTH_H = 1 :: Int32+++pattern AUTH_DOMAIN_REMOVE_PATH = "remove-path" :: T.Text+++pattern AUTH_DOMAIN_REALM = "realm" :: T.Text+++pattern AUTH_DOMAIN_PROXY = "proxy" :: T.Text+++pattern AUTH_DOMAIN_H = 1 :: Int32+++pattern AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data" :: T.Text+++pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback" :: T.Text+++pattern AUTH_DOMAIN_FILTER_DATA = "filter-data" :: T.Text+++pattern AUTH_DOMAIN_FILTER = "filter" :: T.Text+++pattern AUTH_DOMAIN_DIGEST_H = 1 :: Int32+++pattern AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data" :: T.Text+++pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback" :: T.Text+++pattern AUTH_DOMAIN_BASIC_H = 1 :: Int32+++pattern AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data" :: T.Text+++pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback" :: T.Text+++pattern AUTH_DOMAIN_ADD_PATH = "add-path" :: T.Text+++pattern ADDRESS_SOCKADDR = "sockaddr" :: T.Text+++pattern ADDRESS_PROTOCOL = "protocol" :: T.Text+++pattern ADDRESS_PORT = "port" :: T.Text+++pattern ADDRESS_PHYSICAL = "physical" :: T.Text+++pattern ADDRESS_NAME = "name" :: T.Text+++pattern ADDRESS_FAMILY = "family" :: T.Text+++pattern ADDRESS_ANY_PORT = 0 :: Int32++
+ GI/Soup/Enums.hs view
@@ -0,0 +1,1209 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Enums+    ( +    catchXMLRPCError                        ,+    handleXMLRPCError                       ,+    catchTLDError                           ,+    handleTLDError                          ,+    catchRequesterError                     ,+    handleRequesterError                    ,+    catchRequestError                       ,+    handleRequestError                      ,++-- * Exported types+    XMLRPCFault(..)                         ,+    XMLRPCError(..)                         ,+    WebsocketState(..)                      ,+    WebsocketError(..)                      ,+    WebsocketDataType(..)                   ,+    WebsocketConnectionType(..)             ,+    WebsocketCloseCode(..)                  ,+    TLDError(..)                            ,+    Status(..)                              ,+    SocketIOStatus(..)                      ,+    RequesterError(..)                      ,+    RequestError(..)                        ,+    MessagePriority(..)                     ,+    MessageHeadersType(..)                  ,+    MemoryUse(..)                           ,+    LoggerLogLevel(..)                      ,+    KnownStatusCode(..)                     ,+    HTTPVersion(..)                         ,+    Encoding(..)                            ,+    DateFormat(..)                          ,+    CookieJarAcceptPolicy(..)               ,+    ConnectionState(..)                     ,+    CacheType(..)                           ,+    CacheResponse(..)                       ,+    AddressFamily(..)                       ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- Enum XMLRPCFault++data XMLRPCFault = +      XMLRPCFaultParseErrorNotWellFormed+    | XMLRPCFaultParseErrorUnsupportedEncoding+    | XMLRPCFaultParseErrorInvalidCharacterForEncoding+    | XMLRPCFaultServerErrorInvalidXmlRpc+    | XMLRPCFaultServerErrorRequestedMethodNotFound+    | XMLRPCFaultServerErrorInvalidMethodParameters+    | XMLRPCFaultServerErrorInternalXmlRpcError+    | XMLRPCFaultApplicationError+    | XMLRPCFaultSystemError+    | XMLRPCFaultTransportError+    | AnotherXMLRPCFault Int+    deriving (Show, Eq)++instance Enum XMLRPCFault where+    fromEnum XMLRPCFaultParseErrorNotWellFormed = -32700+    fromEnum XMLRPCFaultParseErrorUnsupportedEncoding = -32701+    fromEnum XMLRPCFaultParseErrorInvalidCharacterForEncoding = -32702+    fromEnum XMLRPCFaultServerErrorInvalidXmlRpc = -32600+    fromEnum XMLRPCFaultServerErrorRequestedMethodNotFound = -32601+    fromEnum XMLRPCFaultServerErrorInvalidMethodParameters = -32602+    fromEnum XMLRPCFaultServerErrorInternalXmlRpcError = -32603+    fromEnum XMLRPCFaultApplicationError = -32500+    fromEnum XMLRPCFaultSystemError = -32400+    fromEnum XMLRPCFaultTransportError = -32300+    fromEnum (AnotherXMLRPCFault k) = k++    toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding+    toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding+    toEnum -32700 = XMLRPCFaultParseErrorNotWellFormed+    toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError+    toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters+    toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound+    toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc+    toEnum -32500 = XMLRPCFaultApplicationError+    toEnum -32400 = XMLRPCFaultSystemError+    toEnum -32300 = XMLRPCFaultTransportError+    toEnum k = AnotherXMLRPCFault k++foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type :: +    IO GType++instance BoxedEnum XMLRPCFault where+    boxedEnumType _ = c_soup_xmlrpc_fault_get_type++-- Enum XMLRPCError++data XMLRPCError = +      XMLRPCErrorArguments+    | XMLRPCErrorRetval+    | AnotherXMLRPCError Int+    deriving (Show, Eq)++instance Enum XMLRPCError where+    fromEnum XMLRPCErrorArguments = 0+    fromEnum XMLRPCErrorRetval = 1+    fromEnum (AnotherXMLRPCError k) = k++    toEnum 0 = XMLRPCErrorArguments+    toEnum 1 = XMLRPCErrorRetval+    toEnum k = AnotherXMLRPCError k++instance GErrorClass XMLRPCError where+    gerrorClassDomain _ = "soup_xmlrpc_error_quark"++catchXMLRPCError ::+    IO a ->+    (XMLRPCError -> GErrorMessage -> IO a) ->+    IO a+catchXMLRPCError = catchGErrorJustDomain++handleXMLRPCError ::+    (XMLRPCError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleXMLRPCError = handleGErrorJustDomain++foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type :: +    IO GType++instance BoxedEnum XMLRPCError where+    boxedEnumType _ = c_soup_xmlrpc_error_get_type++-- Enum WebsocketState++data WebsocketState = +      WebsocketStateOpen+    | WebsocketStateClosing+    | WebsocketStateClosed+    | AnotherWebsocketState Int+    deriving (Show, Eq)++instance Enum WebsocketState where+    fromEnum WebsocketStateOpen = 1+    fromEnum WebsocketStateClosing = 2+    fromEnum WebsocketStateClosed = 3+    fromEnum (AnotherWebsocketState k) = k++    toEnum 1 = WebsocketStateOpen+    toEnum 2 = WebsocketStateClosing+    toEnum 3 = WebsocketStateClosed+    toEnum k = AnotherWebsocketState k++foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type :: +    IO GType++instance BoxedEnum WebsocketState where+    boxedEnumType _ = c_soup_websocket_state_get_type++-- Enum WebsocketError++data WebsocketError = +      WebsocketErrorFailed+    | WebsocketErrorNotWebsocket+    | WebsocketErrorBadHandshake+    | WebsocketErrorBadOrigin+    | AnotherWebsocketError Int+    deriving (Show, Eq)++instance Enum WebsocketError where+    fromEnum WebsocketErrorFailed = 0+    fromEnum WebsocketErrorNotWebsocket = 1+    fromEnum WebsocketErrorBadHandshake = 2+    fromEnum WebsocketErrorBadOrigin = 3+    fromEnum (AnotherWebsocketError k) = k++    toEnum 0 = WebsocketErrorFailed+    toEnum 1 = WebsocketErrorNotWebsocket+    toEnum 2 = WebsocketErrorBadHandshake+    toEnum 3 = WebsocketErrorBadOrigin+    toEnum k = AnotherWebsocketError k++foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type :: +    IO GType++instance BoxedEnum WebsocketError where+    boxedEnumType _ = c_soup_websocket_error_get_type++-- Enum WebsocketDataType++data WebsocketDataType = +      WebsocketDataTypeText+    | WebsocketDataTypeBinary+    | AnotherWebsocketDataType Int+    deriving (Show, Eq)++instance Enum WebsocketDataType where+    fromEnum WebsocketDataTypeText = 1+    fromEnum WebsocketDataTypeBinary = 2+    fromEnum (AnotherWebsocketDataType k) = k++    toEnum 1 = WebsocketDataTypeText+    toEnum 2 = WebsocketDataTypeBinary+    toEnum k = AnotherWebsocketDataType k++foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type :: +    IO GType++instance BoxedEnum WebsocketDataType where+    boxedEnumType _ = c_soup_websocket_data_type_get_type++-- Enum WebsocketConnectionType++data WebsocketConnectionType = +      WebsocketConnectionTypeUnknown+    | WebsocketConnectionTypeClient+    | WebsocketConnectionTypeServer+    | AnotherWebsocketConnectionType Int+    deriving (Show, Eq)++instance Enum WebsocketConnectionType where+    fromEnum WebsocketConnectionTypeUnknown = 0+    fromEnum WebsocketConnectionTypeClient = 1+    fromEnum WebsocketConnectionTypeServer = 2+    fromEnum (AnotherWebsocketConnectionType k) = k++    toEnum 0 = WebsocketConnectionTypeUnknown+    toEnum 1 = WebsocketConnectionTypeClient+    toEnum 2 = WebsocketConnectionTypeServer+    toEnum k = AnotherWebsocketConnectionType k++foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type :: +    IO GType++instance BoxedEnum WebsocketConnectionType where+    boxedEnumType _ = c_soup_websocket_connection_type_get_type++-- Enum WebsocketCloseCode++data WebsocketCloseCode = +      WebsocketCloseCodeNormal+    | WebsocketCloseCodeGoingAway+    | WebsocketCloseCodeProtocolError+    | WebsocketCloseCodeUnsupportedData+    | WebsocketCloseCodeNoStatus+    | WebsocketCloseCodeAbnormal+    | WebsocketCloseCodeBadData+    | WebsocketCloseCodePolicyViolation+    | WebsocketCloseCodeTooBig+    | WebsocketCloseCodeNoExtension+    | WebsocketCloseCodeServerError+    | WebsocketCloseCodeTlsHandshake+    | AnotherWebsocketCloseCode Int+    deriving (Show, Eq)++instance Enum WebsocketCloseCode where+    fromEnum WebsocketCloseCodeNormal = 1000+    fromEnum WebsocketCloseCodeGoingAway = 1001+    fromEnum WebsocketCloseCodeProtocolError = 1002+    fromEnum WebsocketCloseCodeUnsupportedData = 1003+    fromEnum WebsocketCloseCodeNoStatus = 1005+    fromEnum WebsocketCloseCodeAbnormal = 1006+    fromEnum WebsocketCloseCodeBadData = 1007+    fromEnum WebsocketCloseCodePolicyViolation = 1008+    fromEnum WebsocketCloseCodeTooBig = 1009+    fromEnum WebsocketCloseCodeNoExtension = 1010+    fromEnum WebsocketCloseCodeServerError = 1011+    fromEnum WebsocketCloseCodeTlsHandshake = 1015+    fromEnum (AnotherWebsocketCloseCode k) = k++    toEnum 1000 = WebsocketCloseCodeNormal+    toEnum 1001 = WebsocketCloseCodeGoingAway+    toEnum 1002 = WebsocketCloseCodeProtocolError+    toEnum 1003 = WebsocketCloseCodeUnsupportedData+    toEnum 1005 = WebsocketCloseCodeNoStatus+    toEnum 1006 = WebsocketCloseCodeAbnormal+    toEnum 1007 = WebsocketCloseCodeBadData+    toEnum 1008 = WebsocketCloseCodePolicyViolation+    toEnum 1009 = WebsocketCloseCodeTooBig+    toEnum 1010 = WebsocketCloseCodeNoExtension+    toEnum 1011 = WebsocketCloseCodeServerError+    toEnum 1015 = WebsocketCloseCodeTlsHandshake+    toEnum k = AnotherWebsocketCloseCode k++foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type :: +    IO GType++instance BoxedEnum WebsocketCloseCode where+    boxedEnumType _ = c_soup_websocket_close_code_get_type++-- Enum TLDError++data TLDError = +      TLDErrorInvalidHostname+    | TLDErrorIsIpAddress+    | TLDErrorNotEnoughDomains+    | TLDErrorNoBaseDomain+    | AnotherTLDError Int+    deriving (Show, Eq)++instance Enum TLDError where+    fromEnum TLDErrorInvalidHostname = 0+    fromEnum TLDErrorIsIpAddress = 1+    fromEnum TLDErrorNotEnoughDomains = 2+    fromEnum TLDErrorNoBaseDomain = 3+    fromEnum (AnotherTLDError k) = k++    toEnum 0 = TLDErrorInvalidHostname+    toEnum 1 = TLDErrorIsIpAddress+    toEnum 2 = TLDErrorNotEnoughDomains+    toEnum 3 = TLDErrorNoBaseDomain+    toEnum k = AnotherTLDError k++instance GErrorClass TLDError where+    gerrorClassDomain _ = "soup_tld_error_quark"++catchTLDError ::+    IO a ->+    (TLDError -> GErrorMessage -> IO a) ->+    IO a+catchTLDError = catchGErrorJustDomain++handleTLDError ::+    (TLDError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleTLDError = handleGErrorJustDomain++foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type :: +    IO GType++instance BoxedEnum TLDError where+    boxedEnumType _ = c_soup_tld_error_get_type++-- Enum Status++data Status = +      StatusNone+    | StatusCancelled+    | StatusCantResolve+    | StatusCantResolveProxy+    | StatusCantConnect+    | StatusCantConnectProxy+    | StatusSslFailed+    | StatusIoError+    | StatusMalformed+    | StatusTryAgain+    | StatusTooManyRedirects+    | StatusTlsFailed+    | StatusContinue+    | StatusSwitchingProtocols+    | StatusProcessing+    | StatusOk+    | StatusCreated+    | StatusAccepted+    | StatusNonAuthoritative+    | StatusNoContent+    | StatusResetContent+    | StatusPartialContent+    | StatusMultiStatus+    | StatusMultipleChoices+    | StatusMovedPermanently+    | StatusFound+    | StatusMovedTemporarily+    | StatusSeeOther+    | StatusNotModified+    | StatusUseProxy+    | StatusNotAppearingInThisProtocol+    | StatusTemporaryRedirect+    | StatusBadRequest+    | StatusUnauthorized+    | StatusPaymentRequired+    | StatusForbidden+    | StatusNotFound+    | StatusMethodNotAllowed+    | StatusNotAcceptable+    | StatusProxyAuthenticationRequired+    | StatusProxyUnauthorized+    | StatusRequestTimeout+    | StatusConflict+    | StatusGone+    | StatusLengthRequired+    | StatusPreconditionFailed+    | StatusRequestEntityTooLarge+    | StatusRequestUriTooLong+    | StatusUnsupportedMediaType+    | StatusRequestedRangeNotSatisfiable+    | StatusInvalidRange+    | StatusExpectationFailed+    | StatusUnprocessableEntity+    | StatusLocked+    | StatusFailedDependency+    | StatusInternalServerError+    | StatusNotImplemented+    | StatusBadGateway+    | StatusServiceUnavailable+    | StatusGatewayTimeout+    | StatusHttpVersionNotSupported+    | StatusInsufficientStorage+    | StatusNotExtended+    | AnotherStatus Int+    deriving (Show, Eq)++instance Enum Status where+    fromEnum StatusNone = 0+    fromEnum StatusCancelled = 1+    fromEnum StatusCantResolve = 2+    fromEnum StatusCantResolveProxy = 3+    fromEnum StatusCantConnect = 4+    fromEnum StatusCantConnectProxy = 5+    fromEnum StatusSslFailed = 6+    fromEnum StatusIoError = 7+    fromEnum StatusMalformed = 8+    fromEnum StatusTryAgain = 9+    fromEnum StatusTooManyRedirects = 10+    fromEnum StatusTlsFailed = 11+    fromEnum StatusContinue = 100+    fromEnum StatusSwitchingProtocols = 101+    fromEnum StatusProcessing = 102+    fromEnum StatusOk = 200+    fromEnum StatusCreated = 201+    fromEnum StatusAccepted = 202+    fromEnum StatusNonAuthoritative = 203+    fromEnum StatusNoContent = 204+    fromEnum StatusResetContent = 205+    fromEnum StatusPartialContent = 206+    fromEnum StatusMultiStatus = 207+    fromEnum StatusMultipleChoices = 300+    fromEnum StatusMovedPermanently = 301+    fromEnum StatusFound = 302+    fromEnum StatusMovedTemporarily = 302+    fromEnum StatusSeeOther = 303+    fromEnum StatusNotModified = 304+    fromEnum StatusUseProxy = 305+    fromEnum StatusNotAppearingInThisProtocol = 306+    fromEnum StatusTemporaryRedirect = 307+    fromEnum StatusBadRequest = 400+    fromEnum StatusUnauthorized = 401+    fromEnum StatusPaymentRequired = 402+    fromEnum StatusForbidden = 403+    fromEnum StatusNotFound = 404+    fromEnum StatusMethodNotAllowed = 405+    fromEnum StatusNotAcceptable = 406+    fromEnum StatusProxyAuthenticationRequired = 407+    fromEnum StatusProxyUnauthorized = 407+    fromEnum StatusRequestTimeout = 408+    fromEnum StatusConflict = 409+    fromEnum StatusGone = 410+    fromEnum StatusLengthRequired = 411+    fromEnum StatusPreconditionFailed = 412+    fromEnum StatusRequestEntityTooLarge = 413+    fromEnum StatusRequestUriTooLong = 414+    fromEnum StatusUnsupportedMediaType = 415+    fromEnum StatusRequestedRangeNotSatisfiable = 416+    fromEnum StatusInvalidRange = 416+    fromEnum StatusExpectationFailed = 417+    fromEnum StatusUnprocessableEntity = 422+    fromEnum StatusLocked = 423+    fromEnum StatusFailedDependency = 424+    fromEnum StatusInternalServerError = 500+    fromEnum StatusNotImplemented = 501+    fromEnum StatusBadGateway = 502+    fromEnum StatusServiceUnavailable = 503+    fromEnum StatusGatewayTimeout = 504+    fromEnum StatusHttpVersionNotSupported = 505+    fromEnum StatusInsufficientStorage = 507+    fromEnum StatusNotExtended = 510+    fromEnum (AnotherStatus k) = k++    toEnum 0 = StatusNone+    toEnum 1 = StatusCancelled+    toEnum 2 = StatusCantResolve+    toEnum 3 = StatusCantResolveProxy+    toEnum 4 = StatusCantConnect+    toEnum 5 = StatusCantConnectProxy+    toEnum 6 = StatusSslFailed+    toEnum 7 = StatusIoError+    toEnum 8 = StatusMalformed+    toEnum 9 = StatusTryAgain+    toEnum 10 = StatusTooManyRedirects+    toEnum 11 = StatusTlsFailed+    toEnum 100 = StatusContinue+    toEnum 101 = StatusSwitchingProtocols+    toEnum 102 = StatusProcessing+    toEnum 200 = StatusOk+    toEnum 201 = StatusCreated+    toEnum 202 = StatusAccepted+    toEnum 203 = StatusNonAuthoritative+    toEnum 204 = StatusNoContent+    toEnum 205 = StatusResetContent+    toEnum 206 = StatusPartialContent+    toEnum 207 = StatusMultiStatus+    toEnum 300 = StatusMultipleChoices+    toEnum 301 = StatusMovedPermanently+    toEnum 302 = StatusFound+    toEnum 303 = StatusSeeOther+    toEnum 304 = StatusNotModified+    toEnum 305 = StatusUseProxy+    toEnum 306 = StatusNotAppearingInThisProtocol+    toEnum 307 = StatusTemporaryRedirect+    toEnum 400 = StatusBadRequest+    toEnum 401 = StatusUnauthorized+    toEnum 402 = StatusPaymentRequired+    toEnum 403 = StatusForbidden+    toEnum 404 = StatusNotFound+    toEnum 405 = StatusMethodNotAllowed+    toEnum 406 = StatusNotAcceptable+    toEnum 407 = StatusProxyAuthenticationRequired+    toEnum 408 = StatusRequestTimeout+    toEnum 409 = StatusConflict+    toEnum 410 = StatusGone+    toEnum 411 = StatusLengthRequired+    toEnum 412 = StatusPreconditionFailed+    toEnum 413 = StatusRequestEntityTooLarge+    toEnum 414 = StatusRequestUriTooLong+    toEnum 415 = StatusUnsupportedMediaType+    toEnum 416 = StatusRequestedRangeNotSatisfiable+    toEnum 417 = StatusExpectationFailed+    toEnum 422 = StatusUnprocessableEntity+    toEnum 423 = StatusLocked+    toEnum 424 = StatusFailedDependency+    toEnum 500 = StatusInternalServerError+    toEnum 501 = StatusNotImplemented+    toEnum 502 = StatusBadGateway+    toEnum 503 = StatusServiceUnavailable+    toEnum 504 = StatusGatewayTimeout+    toEnum 505 = StatusHttpVersionNotSupported+    toEnum 507 = StatusInsufficientStorage+    toEnum 510 = StatusNotExtended+    toEnum k = AnotherStatus k++foreign import ccall "soup_status_get_type" c_soup_status_get_type :: +    IO GType++instance BoxedEnum Status where+    boxedEnumType _ = c_soup_status_get_type++-- Enum SocketIOStatus++data SocketIOStatus = +      SocketIOStatusOk+    | SocketIOStatusWouldBlock+    | SocketIOStatusEof+    | SocketIOStatusError+    | AnotherSocketIOStatus Int+    deriving (Show, Eq)++instance Enum SocketIOStatus where+    fromEnum SocketIOStatusOk = 0+    fromEnum SocketIOStatusWouldBlock = 1+    fromEnum SocketIOStatusEof = 2+    fromEnum SocketIOStatusError = 3+    fromEnum (AnotherSocketIOStatus k) = k++    toEnum 0 = SocketIOStatusOk+    toEnum 1 = SocketIOStatusWouldBlock+    toEnum 2 = SocketIOStatusEof+    toEnum 3 = SocketIOStatusError+    toEnum k = AnotherSocketIOStatus k++foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type :: +    IO GType++instance BoxedEnum SocketIOStatus where+    boxedEnumType _ = c_soup_socket_io_status_get_type++-- Enum RequesterError++data RequesterError = +      RequesterErrorBadUri+    | RequesterErrorUnsupportedUriScheme+    | AnotherRequesterError Int+    deriving (Show, Eq)++instance Enum RequesterError where+    fromEnum RequesterErrorBadUri = 0+    fromEnum RequesterErrorUnsupportedUriScheme = 1+    fromEnum (AnotherRequesterError k) = k++    toEnum 0 = RequesterErrorBadUri+    toEnum 1 = RequesterErrorUnsupportedUriScheme+    toEnum k = AnotherRequesterError k++instance GErrorClass RequesterError where+    gerrorClassDomain _ = "soup_requester_error_quark"++catchRequesterError ::+    IO a ->+    (RequesterError -> GErrorMessage -> IO a) ->+    IO a+catchRequesterError = catchGErrorJustDomain++handleRequesterError ::+    (RequesterError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleRequesterError = handleGErrorJustDomain++foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type :: +    IO GType++instance BoxedEnum RequesterError where+    boxedEnumType _ = c_soup_requester_error_get_type++-- Enum RequestError++data RequestError = +      RequestErrorBadUri+    | RequestErrorUnsupportedUriScheme+    | RequestErrorParsing+    | RequestErrorEncoding+    | AnotherRequestError Int+    deriving (Show, Eq)++instance Enum RequestError where+    fromEnum RequestErrorBadUri = 0+    fromEnum RequestErrorUnsupportedUriScheme = 1+    fromEnum RequestErrorParsing = 2+    fromEnum RequestErrorEncoding = 3+    fromEnum (AnotherRequestError k) = k++    toEnum 0 = RequestErrorBadUri+    toEnum 1 = RequestErrorUnsupportedUriScheme+    toEnum 2 = RequestErrorParsing+    toEnum 3 = RequestErrorEncoding+    toEnum k = AnotherRequestError k++instance GErrorClass RequestError where+    gerrorClassDomain _ = "soup_request_error_quark"++catchRequestError ::+    IO a ->+    (RequestError -> GErrorMessage -> IO a) ->+    IO a+catchRequestError = catchGErrorJustDomain++handleRequestError ::+    (RequestError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleRequestError = handleGErrorJustDomain++foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type :: +    IO GType++instance BoxedEnum RequestError where+    boxedEnumType _ = c_soup_request_error_get_type++-- Enum MessagePriority++data MessagePriority = +      MessagePriorityVeryLow+    | MessagePriorityLow+    | MessagePriorityNormal+    | MessagePriorityHigh+    | MessagePriorityVeryHigh+    | AnotherMessagePriority Int+    deriving (Show, Eq)++instance Enum MessagePriority where+    fromEnum MessagePriorityVeryLow = 0+    fromEnum MessagePriorityLow = 1+    fromEnum MessagePriorityNormal = 2+    fromEnum MessagePriorityHigh = 3+    fromEnum MessagePriorityVeryHigh = 4+    fromEnum (AnotherMessagePriority k) = k++    toEnum 0 = MessagePriorityVeryLow+    toEnum 1 = MessagePriorityLow+    toEnum 2 = MessagePriorityNormal+    toEnum 3 = MessagePriorityHigh+    toEnum 4 = MessagePriorityVeryHigh+    toEnum k = AnotherMessagePriority k++foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type :: +    IO GType++instance BoxedEnum MessagePriority where+    boxedEnumType _ = c_soup_message_priority_get_type++-- Enum MessageHeadersType++data MessageHeadersType = +      MessageHeadersTypeRequest+    | MessageHeadersTypeResponse+    | MessageHeadersTypeMultipart+    | AnotherMessageHeadersType Int+    deriving (Show, Eq)++instance Enum MessageHeadersType where+    fromEnum MessageHeadersTypeRequest = 0+    fromEnum MessageHeadersTypeResponse = 1+    fromEnum MessageHeadersTypeMultipart = 2+    fromEnum (AnotherMessageHeadersType k) = k++    toEnum 0 = MessageHeadersTypeRequest+    toEnum 1 = MessageHeadersTypeResponse+    toEnum 2 = MessageHeadersTypeMultipart+    toEnum k = AnotherMessageHeadersType k++foreign import ccall "soup_message_headers_type_get_type" c_soup_message_headers_type_get_type :: +    IO GType++instance BoxedEnum MessageHeadersType where+    boxedEnumType _ = c_soup_message_headers_type_get_type++-- Enum MemoryUse++data MemoryUse = +      MemoryUseStatic+    | MemoryUseTake+    | MemoryUseCopy+    | MemoryUseTemporary+    | AnotherMemoryUse Int+    deriving (Show, Eq)++instance Enum MemoryUse where+    fromEnum MemoryUseStatic = 0+    fromEnum MemoryUseTake = 1+    fromEnum MemoryUseCopy = 2+    fromEnum MemoryUseTemporary = 3+    fromEnum (AnotherMemoryUse k) = k++    toEnum 0 = MemoryUseStatic+    toEnum 1 = MemoryUseTake+    toEnum 2 = MemoryUseCopy+    toEnum 3 = MemoryUseTemporary+    toEnum k = AnotherMemoryUse k++foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type :: +    IO GType++instance BoxedEnum MemoryUse where+    boxedEnumType _ = c_soup_memory_use_get_type++-- Enum LoggerLogLevel++data LoggerLogLevel = +      LoggerLogLevelNone+    | LoggerLogLevelMinimal+    | LoggerLogLevelHeaders+    | LoggerLogLevelBody+    | AnotherLoggerLogLevel Int+    deriving (Show, Eq)++instance Enum LoggerLogLevel where+    fromEnum LoggerLogLevelNone = 0+    fromEnum LoggerLogLevelMinimal = 1+    fromEnum LoggerLogLevelHeaders = 2+    fromEnum LoggerLogLevelBody = 3+    fromEnum (AnotherLoggerLogLevel k) = k++    toEnum 0 = LoggerLogLevelNone+    toEnum 1 = LoggerLogLevelMinimal+    toEnum 2 = LoggerLogLevelHeaders+    toEnum 3 = LoggerLogLevelBody+    toEnum k = AnotherLoggerLogLevel k++foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type :: +    IO GType++instance BoxedEnum LoggerLogLevel where+    boxedEnumType _ = c_soup_logger_log_level_get_type++-- Enum KnownStatusCode++data KnownStatusCode = +      KnownStatusCodeNone+    | KnownStatusCodeCancelled+    | KnownStatusCodeCantResolve+    | KnownStatusCodeCantResolveProxy+    | KnownStatusCodeCantConnect+    | KnownStatusCodeCantConnectProxy+    | KnownStatusCodeSslFailed+    | KnownStatusCodeIoError+    | KnownStatusCodeMalformed+    | KnownStatusCodeTryAgain+    | KnownStatusCodeTooManyRedirects+    | KnownStatusCodeTlsFailed+    | KnownStatusCodeContinue+    | KnownStatusCodeSwitchingProtocols+    | KnownStatusCodeProcessing+    | KnownStatusCodeOk+    | KnownStatusCodeCreated+    | KnownStatusCodeAccepted+    | KnownStatusCodeNonAuthoritative+    | KnownStatusCodeNoContent+    | KnownStatusCodeResetContent+    | KnownStatusCodePartialContent+    | KnownStatusCodeMultiStatus+    | KnownStatusCodeMultipleChoices+    | KnownStatusCodeMovedPermanently+    | KnownStatusCodeFound+    | KnownStatusCodeMovedTemporarily+    | KnownStatusCodeSeeOther+    | KnownStatusCodeNotModified+    | KnownStatusCodeUseProxy+    | KnownStatusCodeNotAppearingInThisProtocol+    | KnownStatusCodeTemporaryRedirect+    | KnownStatusCodeBadRequest+    | KnownStatusCodeUnauthorized+    | KnownStatusCodePaymentRequired+    | KnownStatusCodeForbidden+    | KnownStatusCodeNotFound+    | KnownStatusCodeMethodNotAllowed+    | KnownStatusCodeNotAcceptable+    | KnownStatusCodeProxyAuthenticationRequired+    | KnownStatusCodeProxyUnauthorized+    | KnownStatusCodeRequestTimeout+    | KnownStatusCodeConflict+    | KnownStatusCodeGone+    | KnownStatusCodeLengthRequired+    | KnownStatusCodePreconditionFailed+    | KnownStatusCodeRequestEntityTooLarge+    | KnownStatusCodeRequestUriTooLong+    | KnownStatusCodeUnsupportedMediaType+    | KnownStatusCodeRequestedRangeNotSatisfiable+    | KnownStatusCodeInvalidRange+    | KnownStatusCodeExpectationFailed+    | KnownStatusCodeUnprocessableEntity+    | KnownStatusCodeLocked+    | KnownStatusCodeFailedDependency+    | KnownStatusCodeInternalServerError+    | KnownStatusCodeNotImplemented+    | KnownStatusCodeBadGateway+    | KnownStatusCodeServiceUnavailable+    | KnownStatusCodeGatewayTimeout+    | KnownStatusCodeHttpVersionNotSupported+    | KnownStatusCodeInsufficientStorage+    | KnownStatusCodeNotExtended+    | AnotherKnownStatusCode Int+    deriving (Show, Eq)++instance Enum KnownStatusCode where+    fromEnum KnownStatusCodeNone = 0+    fromEnum KnownStatusCodeCancelled = 1+    fromEnum KnownStatusCodeCantResolve = 2+    fromEnum KnownStatusCodeCantResolveProxy = 3+    fromEnum KnownStatusCodeCantConnect = 4+    fromEnum KnownStatusCodeCantConnectProxy = 5+    fromEnum KnownStatusCodeSslFailed = 6+    fromEnum KnownStatusCodeIoError = 7+    fromEnum KnownStatusCodeMalformed = 8+    fromEnum KnownStatusCodeTryAgain = 9+    fromEnum KnownStatusCodeTooManyRedirects = 10+    fromEnum KnownStatusCodeTlsFailed = 11+    fromEnum KnownStatusCodeContinue = 100+    fromEnum KnownStatusCodeSwitchingProtocols = 101+    fromEnum KnownStatusCodeProcessing = 102+    fromEnum KnownStatusCodeOk = 200+    fromEnum KnownStatusCodeCreated = 201+    fromEnum KnownStatusCodeAccepted = 202+    fromEnum KnownStatusCodeNonAuthoritative = 203+    fromEnum KnownStatusCodeNoContent = 204+    fromEnum KnownStatusCodeResetContent = 205+    fromEnum KnownStatusCodePartialContent = 206+    fromEnum KnownStatusCodeMultiStatus = 207+    fromEnum KnownStatusCodeMultipleChoices = 300+    fromEnum KnownStatusCodeMovedPermanently = 301+    fromEnum KnownStatusCodeFound = 302+    fromEnum KnownStatusCodeMovedTemporarily = 302+    fromEnum KnownStatusCodeSeeOther = 303+    fromEnum KnownStatusCodeNotModified = 304+    fromEnum KnownStatusCodeUseProxy = 305+    fromEnum KnownStatusCodeNotAppearingInThisProtocol = 306+    fromEnum KnownStatusCodeTemporaryRedirect = 307+    fromEnum KnownStatusCodeBadRequest = 400+    fromEnum KnownStatusCodeUnauthorized = 401+    fromEnum KnownStatusCodePaymentRequired = 402+    fromEnum KnownStatusCodeForbidden = 403+    fromEnum KnownStatusCodeNotFound = 404+    fromEnum KnownStatusCodeMethodNotAllowed = 405+    fromEnum KnownStatusCodeNotAcceptable = 406+    fromEnum KnownStatusCodeProxyAuthenticationRequired = 407+    fromEnum KnownStatusCodeProxyUnauthorized = 407+    fromEnum KnownStatusCodeRequestTimeout = 408+    fromEnum KnownStatusCodeConflict = 409+    fromEnum KnownStatusCodeGone = 410+    fromEnum KnownStatusCodeLengthRequired = 411+    fromEnum KnownStatusCodePreconditionFailed = 412+    fromEnum KnownStatusCodeRequestEntityTooLarge = 413+    fromEnum KnownStatusCodeRequestUriTooLong = 414+    fromEnum KnownStatusCodeUnsupportedMediaType = 415+    fromEnum KnownStatusCodeRequestedRangeNotSatisfiable = 416+    fromEnum KnownStatusCodeInvalidRange = 416+    fromEnum KnownStatusCodeExpectationFailed = 417+    fromEnum KnownStatusCodeUnprocessableEntity = 422+    fromEnum KnownStatusCodeLocked = 423+    fromEnum KnownStatusCodeFailedDependency = 424+    fromEnum KnownStatusCodeInternalServerError = 500+    fromEnum KnownStatusCodeNotImplemented = 501+    fromEnum KnownStatusCodeBadGateway = 502+    fromEnum KnownStatusCodeServiceUnavailable = 503+    fromEnum KnownStatusCodeGatewayTimeout = 504+    fromEnum KnownStatusCodeHttpVersionNotSupported = 505+    fromEnum KnownStatusCodeInsufficientStorage = 507+    fromEnum KnownStatusCodeNotExtended = 510+    fromEnum (AnotherKnownStatusCode k) = k++    toEnum 0 = KnownStatusCodeNone+    toEnum 1 = KnownStatusCodeCancelled+    toEnum 2 = KnownStatusCodeCantResolve+    toEnum 3 = KnownStatusCodeCantResolveProxy+    toEnum 4 = KnownStatusCodeCantConnect+    toEnum 5 = KnownStatusCodeCantConnectProxy+    toEnum 6 = KnownStatusCodeSslFailed+    toEnum 7 = KnownStatusCodeIoError+    toEnum 8 = KnownStatusCodeMalformed+    toEnum 9 = KnownStatusCodeTryAgain+    toEnum 10 = KnownStatusCodeTooManyRedirects+    toEnum 11 = KnownStatusCodeTlsFailed+    toEnum 100 = KnownStatusCodeContinue+    toEnum 101 = KnownStatusCodeSwitchingProtocols+    toEnum 102 = KnownStatusCodeProcessing+    toEnum 200 = KnownStatusCodeOk+    toEnum 201 = KnownStatusCodeCreated+    toEnum 202 = KnownStatusCodeAccepted+    toEnum 203 = KnownStatusCodeNonAuthoritative+    toEnum 204 = KnownStatusCodeNoContent+    toEnum 205 = KnownStatusCodeResetContent+    toEnum 206 = KnownStatusCodePartialContent+    toEnum 207 = KnownStatusCodeMultiStatus+    toEnum 300 = KnownStatusCodeMultipleChoices+    toEnum 301 = KnownStatusCodeMovedPermanently+    toEnum 302 = KnownStatusCodeFound+    toEnum 303 = KnownStatusCodeSeeOther+    toEnum 304 = KnownStatusCodeNotModified+    toEnum 305 = KnownStatusCodeUseProxy+    toEnum 306 = KnownStatusCodeNotAppearingInThisProtocol+    toEnum 307 = KnownStatusCodeTemporaryRedirect+    toEnum 400 = KnownStatusCodeBadRequest+    toEnum 401 = KnownStatusCodeUnauthorized+    toEnum 402 = KnownStatusCodePaymentRequired+    toEnum 403 = KnownStatusCodeForbidden+    toEnum 404 = KnownStatusCodeNotFound+    toEnum 405 = KnownStatusCodeMethodNotAllowed+    toEnum 406 = KnownStatusCodeNotAcceptable+    toEnum 407 = KnownStatusCodeProxyAuthenticationRequired+    toEnum 408 = KnownStatusCodeRequestTimeout+    toEnum 409 = KnownStatusCodeConflict+    toEnum 410 = KnownStatusCodeGone+    toEnum 411 = KnownStatusCodeLengthRequired+    toEnum 412 = KnownStatusCodePreconditionFailed+    toEnum 413 = KnownStatusCodeRequestEntityTooLarge+    toEnum 414 = KnownStatusCodeRequestUriTooLong+    toEnum 415 = KnownStatusCodeUnsupportedMediaType+    toEnum 416 = KnownStatusCodeRequestedRangeNotSatisfiable+    toEnum 417 = KnownStatusCodeExpectationFailed+    toEnum 422 = KnownStatusCodeUnprocessableEntity+    toEnum 423 = KnownStatusCodeLocked+    toEnum 424 = KnownStatusCodeFailedDependency+    toEnum 500 = KnownStatusCodeInternalServerError+    toEnum 501 = KnownStatusCodeNotImplemented+    toEnum 502 = KnownStatusCodeBadGateway+    toEnum 503 = KnownStatusCodeServiceUnavailable+    toEnum 504 = KnownStatusCodeGatewayTimeout+    toEnum 505 = KnownStatusCodeHttpVersionNotSupported+    toEnum 507 = KnownStatusCodeInsufficientStorage+    toEnum 510 = KnownStatusCodeNotExtended+    toEnum k = AnotherKnownStatusCode k++foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type :: +    IO GType++instance BoxedEnum KnownStatusCode where+    boxedEnumType _ = c_soup_known_status_code_get_type++-- Enum HTTPVersion++data HTTPVersion = +      HTTPVersionHttp10+    | HTTPVersionHttp11+    | AnotherHTTPVersion Int+    deriving (Show, Eq)++instance Enum HTTPVersion where+    fromEnum HTTPVersionHttp10 = 0+    fromEnum HTTPVersionHttp11 = 1+    fromEnum (AnotherHTTPVersion k) = k++    toEnum 0 = HTTPVersionHttp10+    toEnum 1 = HTTPVersionHttp11+    toEnum k = AnotherHTTPVersion k++foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type :: +    IO GType++instance BoxedEnum HTTPVersion where+    boxedEnumType _ = c_soup_http_version_get_type++-- Enum Encoding++data Encoding = +      EncodingUnrecognized+    | EncodingNone+    | EncodingContentLength+    | EncodingEof+    | EncodingChunked+    | EncodingByteranges+    | AnotherEncoding Int+    deriving (Show, Eq)++instance Enum Encoding where+    fromEnum EncodingUnrecognized = 0+    fromEnum EncodingNone = 1+    fromEnum EncodingContentLength = 2+    fromEnum EncodingEof = 3+    fromEnum EncodingChunked = 4+    fromEnum EncodingByteranges = 5+    fromEnum (AnotherEncoding k) = k++    toEnum 0 = EncodingUnrecognized+    toEnum 1 = EncodingNone+    toEnum 2 = EncodingContentLength+    toEnum 3 = EncodingEof+    toEnum 4 = EncodingChunked+    toEnum 5 = EncodingByteranges+    toEnum k = AnotherEncoding k++foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type :: +    IO GType++instance BoxedEnum Encoding where+    boxedEnumType _ = c_soup_encoding_get_type++-- Enum DateFormat++data DateFormat = +      DateFormatHttp+    | DateFormatCookie+    | DateFormatRfc2822+    | DateFormatIso8601Compact+    | DateFormatIso8601Full+    | DateFormatIso8601+    | DateFormatIso8601Xmlrpc+    | AnotherDateFormat Int+    deriving (Show, Eq)++instance Enum DateFormat where+    fromEnum DateFormatHttp = 1+    fromEnum DateFormatCookie = 2+    fromEnum DateFormatRfc2822 = 3+    fromEnum DateFormatIso8601Compact = 4+    fromEnum DateFormatIso8601Full = 5+    fromEnum DateFormatIso8601 = 5+    fromEnum DateFormatIso8601Xmlrpc = 6+    fromEnum (AnotherDateFormat k) = k++    toEnum 1 = DateFormatHttp+    toEnum 2 = DateFormatCookie+    toEnum 3 = DateFormatRfc2822+    toEnum 4 = DateFormatIso8601Compact+    toEnum 5 = DateFormatIso8601Full+    toEnum 6 = DateFormatIso8601Xmlrpc+    toEnum k = AnotherDateFormat k++foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type :: +    IO GType++instance BoxedEnum DateFormat where+    boxedEnumType _ = c_soup_date_format_get_type++-- Enum CookieJarAcceptPolicy++data CookieJarAcceptPolicy = +      CookieJarAcceptPolicyAlways+    | CookieJarAcceptPolicyNever+    | CookieJarAcceptPolicyNoThirdParty+    | AnotherCookieJarAcceptPolicy Int+    deriving (Show, Eq)++instance Enum CookieJarAcceptPolicy where+    fromEnum CookieJarAcceptPolicyAlways = 0+    fromEnum CookieJarAcceptPolicyNever = 1+    fromEnum CookieJarAcceptPolicyNoThirdParty = 2+    fromEnum (AnotherCookieJarAcceptPolicy k) = k++    toEnum 0 = CookieJarAcceptPolicyAlways+    toEnum 1 = CookieJarAcceptPolicyNever+    toEnum 2 = CookieJarAcceptPolicyNoThirdParty+    toEnum k = AnotherCookieJarAcceptPolicy k++foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type :: +    IO GType++instance BoxedEnum CookieJarAcceptPolicy where+    boxedEnumType _ = c_soup_cookie_jar_accept_policy_get_type++-- Enum ConnectionState++data ConnectionState = +      ConnectionStateNew+    | ConnectionStateConnecting+    | ConnectionStateIdle+    | ConnectionStateInUse+    | ConnectionStateRemoteDisconnected+    | ConnectionStateDisconnected+    | AnotherConnectionState Int+    deriving (Show, Eq)++instance Enum ConnectionState where+    fromEnum ConnectionStateNew = 0+    fromEnum ConnectionStateConnecting = 1+    fromEnum ConnectionStateIdle = 2+    fromEnum ConnectionStateInUse = 3+    fromEnum ConnectionStateRemoteDisconnected = 4+    fromEnum ConnectionStateDisconnected = 5+    fromEnum (AnotherConnectionState k) = k++    toEnum 0 = ConnectionStateNew+    toEnum 1 = ConnectionStateConnecting+    toEnum 2 = ConnectionStateIdle+    toEnum 3 = ConnectionStateInUse+    toEnum 4 = ConnectionStateRemoteDisconnected+    toEnum 5 = ConnectionStateDisconnected+    toEnum k = AnotherConnectionState k++foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type :: +    IO GType++instance BoxedEnum ConnectionState where+    boxedEnumType _ = c_soup_connection_state_get_type++-- Enum CacheType++data CacheType = +      CacheTypeSingleUser+    | CacheTypeShared+    | AnotherCacheType Int+    deriving (Show, Eq)++instance Enum CacheType where+    fromEnum CacheTypeSingleUser = 0+    fromEnum CacheTypeShared = 1+    fromEnum (AnotherCacheType k) = k++    toEnum 0 = CacheTypeSingleUser+    toEnum 1 = CacheTypeShared+    toEnum k = AnotherCacheType k++foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type :: +    IO GType++instance BoxedEnum CacheType where+    boxedEnumType _ = c_soup_cache_type_get_type++-- Enum CacheResponse++data CacheResponse = +      CacheResponseFresh+    | CacheResponseNeedsValidation+    | CacheResponseStale+    | AnotherCacheResponse Int+    deriving (Show, Eq)++instance Enum CacheResponse where+    fromEnum CacheResponseFresh = 0+    fromEnum CacheResponseNeedsValidation = 1+    fromEnum CacheResponseStale = 2+    fromEnum (AnotherCacheResponse k) = k++    toEnum 0 = CacheResponseFresh+    toEnum 1 = CacheResponseNeedsValidation+    toEnum 2 = CacheResponseStale+    toEnum k = AnotherCacheResponse k++foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type :: +    IO GType++instance BoxedEnum CacheResponse where+    boxedEnumType _ = c_soup_cache_response_get_type++-- Enum AddressFamily++data AddressFamily = +      AddressFamilyInvalid+    | AddressFamilyIpv4+    | AddressFamilyIpv6+    | AnotherAddressFamily Int+    deriving (Show, Eq)++instance Enum AddressFamily where+    fromEnum AddressFamilyInvalid = -1+    fromEnum AddressFamilyIpv4 = 2+    fromEnum AddressFamilyIpv6 = 10+    fromEnum (AnotherAddressFamily k) = k++    toEnum -1 = AddressFamilyInvalid+    toEnum 2 = AddressFamilyIpv4+    toEnum 10 = AddressFamilyIpv6+    toEnum k = AnotherAddressFamily k++foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type :: +    IO GType++instance BoxedEnum AddressFamily where+    boxedEnumType _ = c_soup_address_family_get_type++
+ GI/Soup/Flags.hs view
@@ -0,0 +1,157 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Flags+    ( ++-- * Exported types+    ServerListenOptions(..)                 ,+    MessageFlags(..)                        ,+    Expectation(..)                         ,+    Cacheability(..)                        ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- Flags ServerListenOptions++data ServerListenOptions = +      ServerListenOptionsHttps+    | ServerListenOptionsIpv4Only+    | ServerListenOptionsIpv6Only+    | AnotherServerListenOptions Int+    deriving (Show, Eq)++instance Enum ServerListenOptions where+    fromEnum ServerListenOptionsHttps = 1+    fromEnum ServerListenOptionsIpv4Only = 2+    fromEnum ServerListenOptionsIpv6Only = 4+    fromEnum (AnotherServerListenOptions k) = k++    toEnum 1 = ServerListenOptionsHttps+    toEnum 2 = ServerListenOptionsIpv4Only+    toEnum 4 = ServerListenOptionsIpv6Only+    toEnum k = AnotherServerListenOptions k++foreign import ccall "soup_server_listen_options_get_type" c_soup_server_listen_options_get_type :: +    IO GType++instance BoxedEnum ServerListenOptions where+    boxedEnumType _ = c_soup_server_listen_options_get_type++instance IsGFlag ServerListenOptions++-- Flags MessageFlags++data MessageFlags = +      MessageFlagsNoRedirect+    | MessageFlagsCanRebuild+    | MessageFlagsOverwriteChunks+    | MessageFlagsContentDecoded+    | MessageFlagsCertificateTrusted+    | MessageFlagsNewConnection+    | MessageFlagsIdempotent+    | MessageFlagsIgnoreConnectionLimits+    | AnotherMessageFlags Int+    deriving (Show, Eq)++instance Enum MessageFlags where+    fromEnum MessageFlagsNoRedirect = 2+    fromEnum MessageFlagsCanRebuild = 4+    fromEnum MessageFlagsOverwriteChunks = 8+    fromEnum MessageFlagsContentDecoded = 16+    fromEnum MessageFlagsCertificateTrusted = 32+    fromEnum MessageFlagsNewConnection = 64+    fromEnum MessageFlagsIdempotent = 128+    fromEnum MessageFlagsIgnoreConnectionLimits = 256+    fromEnum (AnotherMessageFlags k) = k++    toEnum 2 = MessageFlagsNoRedirect+    toEnum 4 = MessageFlagsCanRebuild+    toEnum 8 = MessageFlagsOverwriteChunks+    toEnum 16 = MessageFlagsContentDecoded+    toEnum 32 = MessageFlagsCertificateTrusted+    toEnum 64 = MessageFlagsNewConnection+    toEnum 128 = MessageFlagsIdempotent+    toEnum 256 = MessageFlagsIgnoreConnectionLimits+    toEnum k = AnotherMessageFlags k++foreign import ccall "soup_message_flags_get_type" c_soup_message_flags_get_type :: +    IO GType++instance BoxedEnum MessageFlags where+    boxedEnumType _ = c_soup_message_flags_get_type++instance IsGFlag MessageFlags++-- Flags Expectation++data Expectation = +      ExpectationUnrecognized+    | ExpectationContinue+    | AnotherExpectation Int+    deriving (Show, Eq)++instance Enum Expectation where+    fromEnum ExpectationUnrecognized = 1+    fromEnum ExpectationContinue = 2+    fromEnum (AnotherExpectation k) = k++    toEnum 1 = ExpectationUnrecognized+    toEnum 2 = ExpectationContinue+    toEnum k = AnotherExpectation k++foreign import ccall "soup_expectation_get_type" c_soup_expectation_get_type :: +    IO GType++instance BoxedEnum Expectation where+    boxedEnumType _ = c_soup_expectation_get_type++instance IsGFlag Expectation++-- Flags Cacheability++data Cacheability = +      CacheabilityCacheable+    | CacheabilityUncacheable+    | CacheabilityInvalidates+    | CacheabilityValidates+    | AnotherCacheability Int+    deriving (Show, Eq)++instance Enum Cacheability where+    fromEnum CacheabilityCacheable = 1+    fromEnum CacheabilityUncacheable = 2+    fromEnum CacheabilityInvalidates = 4+    fromEnum CacheabilityValidates = 8+    fromEnum (AnotherCacheability k) = k++    toEnum 1 = CacheabilityCacheable+    toEnum 2 = CacheabilityUncacheable+    toEnum 4 = CacheabilityInvalidates+    toEnum 8 = CacheabilityValidates+    toEnum k = AnotherCacheability k++foreign import ccall "soup_cacheability_get_type" c_soup_cacheability_get_type :: +    IO GType++instance BoxedEnum Cacheability where+    boxedEnumType _ = c_soup_cacheability_get_type++instance IsGFlag Cacheability++
+ GI/Soup/Functions.hs view
@@ -0,0 +1,2116 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Functions+    ( ++ -- * Methods+-- ** cookieParse+    cookieParse                             ,+++-- ** cookiesFromRequest+    cookiesFromRequest                      ,+++-- ** cookiesFromResponse+    cookiesFromResponse                     ,+++-- ** cookiesToCookieHeader+    cookiesToCookieHeader                   ,+++-- ** cookiesToRequest+    cookiesToRequest                        ,+++-- ** cookiesToResponse+    cookiesToResponse                       ,+++-- ** formDecode+    formDecode                              ,+++-- ** formDecodeMultipart+    formDecodeMultipart                     ,+++-- ** formEncodeDatalist+    formEncodeDatalist                      ,+++-- ** formEncodeHash+    formEncodeHash                          ,+++-- ** formRequestNewFromDatalist+    formRequestNewFromDatalist              ,+++-- ** formRequestNewFromHash+    formRequestNewFromHash                  ,+++-- ** formRequestNewFromMultipart+    formRequestNewFromMultipart             ,+++-- ** headerContains+    headerContains                          ,+++-- ** headerFreeParamList+    headerFreeParamList                     ,+++-- ** headerGStringAppendParam+    headerGStringAppendParam                ,+++-- ** headerGStringAppendParamQuoted+    headerGStringAppendParamQuoted          ,+++-- ** headerParseList+    headerParseList                         ,+++-- ** headerParseParamList+    headerParseParamList                    ,+++-- ** headerParseQualityList+    headerParseQualityList                  ,+++-- ** headerParseSemiParamList+    headerParseSemiParamList                ,+++-- ** headersParse+    headersParse                            ,+++-- ** headersParseRequest+    headersParseRequest                     ,+++-- ** headersParseResponse+    headersParseResponse                    ,+++-- ** headersParseStatusLine+    headersParseStatusLine                  ,+++-- ** httpErrorQuark+    httpErrorQuark                          ,+++-- ** messageHeadersIterInit+    messageHeadersIterInit                  ,+++-- ** requestErrorQuark+    requestErrorQuark                       ,+++-- ** requesterErrorQuark+    requesterErrorQuark                     ,+++-- ** statusGetPhrase+    statusGetPhrase                         ,+++-- ** statusProxify+    statusProxify                           ,+++-- ** strCaseEqual+    strCaseEqual                            ,+++-- ** strCaseHash+    strCaseHash                             ,+++-- ** tldDomainIsPublicSuffix+    tldDomainIsPublicSuffix                 ,+++-- ** tldErrorQuark+    tldErrorQuark                           ,+++-- ** tldGetBaseDomain+    tldGetBaseDomain                        ,+++-- ** uriDecode+    uriDecode                               ,+++-- ** uriEncode+    uriEncode                               ,+++-- ** uriNormalize+    uriNormalize                            ,+++-- ** valueArrayNew+    valueArrayNew                           ,+++-- ** websocketClientPrepareHandshake+    websocketClientPrepareHandshake         ,+++-- ** websocketClientVerifyHandshake+    websocketClientVerifyHandshake          ,+++-- ** websocketErrorGetQuark+    websocketErrorGetQuark                  ,+++-- ** websocketServerCheckHandshake+    websocketServerCheckHandshake           ,+++-- ** websocketServerProcessHandshake+    websocketServerProcessHandshake         ,+++-- ** xmlrpcBuildMethodCall+    xmlrpcBuildMethodCall                   ,+++-- ** xmlrpcBuildMethodResponse+    xmlrpcBuildMethodResponse               ,+++-- ** xmlrpcBuildRequest+    xmlrpcBuildRequest                      ,+++-- ** xmlrpcBuildResponse+    xmlrpcBuildResponse                     ,+++-- ** xmlrpcErrorQuark+    xmlrpcErrorQuark                        ,+++-- ** xmlrpcFaultQuark+    xmlrpcFaultQuark                        ,+++-- ** xmlrpcMessageNew+    xmlrpcMessageNew                        ,+++-- ** xmlrpcMessageSetResponse+    xmlrpcMessageSetResponse                ,+++-- ** xmlrpcParseMethodCall+    xmlrpcParseMethodCall                   ,+++-- ** xmlrpcParseMethodResponse+    xmlrpcParseMethodResponse               ,+++-- ** xmlrpcParseRequest+    xmlrpcParseRequest                      ,+++-- ** xmlrpcParseResponse+    xmlrpcParseResponse                     ,+++-- ** xmlrpcVariantGetDatetime+    xmlrpcVariantGetDatetime                ,+++-- ** xmlrpcVariantNewDatetime+    xmlrpcVariantNewDatetime                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject++-- function soup_xmlrpc_variant_new_datetime+-- Args : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_variant_new_datetime" soup_xmlrpc_variant_new_datetime :: +    Ptr Date ->                             -- date : TInterface "Soup" "Date"+    IO (Ptr GVariant)+++xmlrpcVariantNewDatetime ::+    (MonadIO m) =>+    Date ->                                 -- date+    m GVariant+xmlrpcVariantNewDatetime date = liftIO $ do+    let date' = unsafeManagedPtrGetPtr date+    result <- soup_xmlrpc_variant_new_datetime date'+    checkUnexpectedReturnNULL "soup_xmlrpc_variant_new_datetime" result+    result' <- wrapGVariantPtr result+    touchManagedPtr date+    return result'+++-- function soup_xmlrpc_variant_get_datetime+-- Args : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_variant_get_datetime" soup_xmlrpc_variant_get_datetime :: +    Ptr GVariant ->                         -- variant : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Date)+++xmlrpcVariantGetDatetime ::+    (MonadIO m) =>+    GVariant ->                             -- variant+    m Date+xmlrpcVariantGetDatetime variant = liftIO $ do+    let variant' = unsafeManagedPtrGetPtr variant+    onException (do+        result <- propagateGError $ soup_xmlrpc_variant_get_datetime variant'+        checkUnexpectedReturnNULL "soup_xmlrpc_variant_get_datetime" result+        result' <- (wrapBoxed Date) result+        return result'+     ) (do+        return ()+     )+++-- function soup_xmlrpc_parse_response+-- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    CString ->                              -- signature : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr GVariant)+++xmlrpcParseResponse ::+    (MonadIO m) =>+    T.Text ->                               -- method_response+    Int32 ->                                -- length+    Maybe (T.Text) ->                       -- signature+    m GVariant+xmlrpcParseResponse method_response length_ signature = liftIO $ do+    method_response' <- textToCString method_response+    maybeSignature <- case signature of+        Nothing -> return nullPtr+        Just jSignature -> do+            jSignature' <- textToCString jSignature+            return jSignature'+    onException (do+        result <- propagateGError $ soup_xmlrpc_parse_response method_response' length_ maybeSignature+        checkUnexpectedReturnNULL "soup_xmlrpc_parse_response" result+        result' <- wrapGVariantPtr result+        freeMem method_response'+        freeMem maybeSignature+        return result'+     ) (do+        freeMem method_response'+        freeMem maybeSignature+     )+++-- function soup_xmlrpc_parse_request+-- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr (Ptr XMLRPCParams) ->               -- params : TInterface "Soup" "XMLRPCParams"+    Ptr (Ptr GError) ->                     -- error+    IO CString+++xmlrpcParseRequest ::+    (MonadIO m) =>+    T.Text ->                               -- method_call+    Int32 ->                                -- length+    m (T.Text,XMLRPCParams)+xmlrpcParseRequest method_call length_ = liftIO $ do+    method_call' <- textToCString method_call+    params <- allocMem :: IO (Ptr (Ptr XMLRPCParams))+    onException (do+        result <- propagateGError $ soup_xmlrpc_parse_request method_call' length_ params+        checkUnexpectedReturnNULL "soup_xmlrpc_parse_request" result+        result' <- cstringToText result+        freeMem result+        params' <- peek params+        -- XXX Wrapping a foreign struct/union with no known destructor, leak?+        params'' <- (\x -> XMLRPCParams <$> newForeignPtr_ x) params'+        freeMem method_call'+        freeMem params+        return (result', params'')+     ) (do+        freeMem method_call'+        freeMem params+     )+++-- function soup_xmlrpc_parse_method_response+-- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{-# DEPRECATED xmlrpcParseMethodResponse ["Use soup_xmlrpc_parse_response() instead."]#-}+xmlrpcParseMethodResponse ::+    (MonadIO m) =>+    T.Text ->                               -- method_response+    Int32 ->                                -- length+    m (GValue)+xmlrpcParseMethodResponse method_response length_ = liftIO $ do+    method_response' <- textToCString method_response+    value <- callocBoxedBytes 24 :: IO (Ptr GValue)+    onException (do+        _ <- propagateGError $ soup_xmlrpc_parse_method_response method_response' length_ value+        value' <- (wrapBoxed GValue) value+        freeMem method_response'+        return value'+     ) (do+        freeMem method_response'+        freeMem value+     )+++-- function soup_xmlrpc_parse_method_call+-- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr CString ->                          -- method_name : TBasicType TUTF8+    Ptr GObject.ValueArray ->               -- params : TInterface "GObject" "ValueArray"+    IO CInt++{-# DEPRECATED xmlrpcParseMethodCall ["Use soup_xmlrpc_parse_request_full() instead."]#-}+xmlrpcParseMethodCall ::+    (MonadIO m) =>+    T.Text ->                               -- method_call+    Int32 ->                                -- length+    m (Bool,T.Text,GObject.ValueArray)+xmlrpcParseMethodCall method_call length_ = liftIO $ do+    method_call' <- textToCString method_call+    method_name <- allocMem :: IO (Ptr CString)+    params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray)+    result <- soup_xmlrpc_parse_method_call method_call' length_ method_name params+    let result' = (/= 0) result+    method_name' <- peek method_name+    method_name'' <- cstringToText method_name'+    freeMem method_name'+    params' <- (wrapBoxed GObject.ValueArray) params+    freeMem method_call'+    freeMem method_name+    return (result', method_name'', params')+++-- function soup_xmlrpc_message_set_response+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_message_set_response" soup_xmlrpc_message_set_response :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr GVariant ->                         -- value : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++xmlrpcMessageSetResponse ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    GVariant ->                             -- value+    m ()+xmlrpcMessageSetResponse msg value = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    let value' = unsafeManagedPtrGetPtr value+    onException (do+        _ <- propagateGError $ soup_xmlrpc_message_set_response msg' value'+        touchManagedPtr msg+        return ()+     ) (do+        return ()+     )+++-- function soup_xmlrpc_message_new+-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_message_new" soup_xmlrpc_message_new :: +    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- method_name : TBasicType TUTF8+    Ptr GVariant ->                         -- params : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Message)+++xmlrpcMessageNew ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    T.Text ->                               -- method_name+    GVariant ->                             -- params+    m Message+xmlrpcMessageNew uri method_name params = liftIO $ do+    uri' <- textToCString uri+    method_name' <- textToCString method_name+    let params' = unsafeManagedPtrGetPtr params+    onException (do+        result <- propagateGError $ soup_xmlrpc_message_new uri' method_name' params'+        checkUnexpectedReturnNULL "soup_xmlrpc_message_new" result+        result' <- (wrapObject Message) result+        freeMem uri'+        freeMem method_name'+        return result'+     ) (do+        freeMem uri'+        freeMem method_name'+     )+++-- function soup_xmlrpc_fault_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_fault_quark" soup_xmlrpc_fault_quark :: +    IO Word32+++xmlrpcFaultQuark ::+    (MonadIO m) =>+    m Word32+xmlrpcFaultQuark  = liftIO $ do+    result <- soup_xmlrpc_fault_quark+    return result+++-- function soup_xmlrpc_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_error_quark" soup_xmlrpc_error_quark :: +    IO Word32+++xmlrpcErrorQuark ::+    (MonadIO m) =>+    m Word32+xmlrpcErrorQuark  = liftIO $ do+    result <- soup_xmlrpc_error_quark+    return result+++-- function soup_xmlrpc_build_response+-- Args : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_build_response" soup_xmlrpc_build_response :: +    Ptr GVariant ->                         -- value : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CString+++xmlrpcBuildResponse ::+    (MonadIO m) =>+    GVariant ->                             -- value+    m T.Text+xmlrpcBuildResponse value = liftIO $ do+    let value' = unsafeManagedPtrGetPtr value+    onException (do+        result <- propagateGError $ soup_xmlrpc_build_response value'+        checkUnexpectedReturnNULL "soup_xmlrpc_build_response" result+        result' <- cstringToText result+        freeMem result+        return result'+     ) (do+        return ()+     )+++-- function soup_xmlrpc_build_request+-- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_build_request" soup_xmlrpc_build_request :: +    CString ->                              -- method_name : TBasicType TUTF8+    Ptr GVariant ->                         -- params : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CString+++xmlrpcBuildRequest ::+    (MonadIO m) =>+    T.Text ->                               -- method_name+    GVariant ->                             -- params+    m T.Text+xmlrpcBuildRequest method_name params = liftIO $ do+    method_name' <- textToCString method_name+    let params' = unsafeManagedPtrGetPtr params+    onException (do+        result <- propagateGError $ soup_xmlrpc_build_request method_name' params'+        checkUnexpectedReturnNULL "soup_xmlrpc_build_request" result+        result' <- cstringToText result+        freeMem result+        freeMem method_name'+        return result'+     ) (do+        freeMem method_name'+     )+++-- function soup_xmlrpc_build_method_response+-- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_build_method_response" soup_xmlrpc_build_method_response :: +    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO CString++{-# DEPRECATED xmlrpcBuildMethodResponse ["Use soup_xmlrpc_build_response() instead."]#-}+xmlrpcBuildMethodResponse ::+    (MonadIO m) =>+    GValue ->                               -- value+    m T.Text+xmlrpcBuildMethodResponse value = liftIO $ do+    let value' = unsafeManagedPtrGetPtr value+    result <- soup_xmlrpc_build_method_response value'+    checkUnexpectedReturnNULL "soup_xmlrpc_build_method_response" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr value+    return result'+++-- function soup_xmlrpc_build_method_call+-- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call :: +    CString ->                              -- method_name : TBasicType TUTF8+    Ptr GValue ->                           -- params : TCArray False (-1) 2 (TInterface "GObject" "Value")+    Int32 ->                                -- n_params : TBasicType TInt32+    IO CString++{-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-}+xmlrpcBuildMethodCall ::+    (MonadIO m) =>+    T.Text ->                               -- method_name+    [GValue] ->                             -- params+    m T.Text+xmlrpcBuildMethodCall method_name params = liftIO $ do+    let n_params = fromIntegral $ length params+    method_name' <- textToCString method_name+    let params' = map unsafeManagedPtrGetPtr params+    params'' <- packBlockArray 24 params'+    result <- soup_xmlrpc_build_method_call method_name' params'' n_params+    checkUnexpectedReturnNULL "soup_xmlrpc_build_method_call" result+    result' <- cstringToText result+    freeMem result+    mapM_ touchManagedPtr params+    freeMem method_name'+    freeMem params''+    return result'+++-- function soup_websocket_server_process_handshake+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_server_process_handshake" soup_websocket_server_process_handshake :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- expected_origin : TBasicType TUTF8+    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO CInt+++websocketServerProcessHandshake ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    Maybe (T.Text) ->                       -- expected_origin+    Maybe ([T.Text]) ->                     -- protocols+    m Bool+websocketServerProcessHandshake msg expected_origin protocols = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    maybeExpected_origin <- case expected_origin of+        Nothing -> return nullPtr+        Just jExpected_origin -> do+            jExpected_origin' <- textToCString jExpected_origin+            return jExpected_origin'+    maybeProtocols <- case protocols of+        Nothing -> return nullPtr+        Just jProtocols -> do+            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols+            return jProtocols'+    result <- soup_websocket_server_process_handshake msg' maybeExpected_origin maybeProtocols+    let result' = (/= 0) result+    touchManagedPtr msg+    freeMem maybeExpected_origin+    mapZeroTerminatedCArray freeMem maybeProtocols+    freeMem maybeProtocols+    return result'+++-- function soup_websocket_server_check_handshake+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_websocket_server_check_handshake" soup_websocket_server_check_handshake :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- origin : TBasicType TUTF8+    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++websocketServerCheckHandshake ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    Maybe (T.Text) ->                       -- origin+    Maybe ([T.Text]) ->                     -- protocols+    m ()+websocketServerCheckHandshake msg origin protocols = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    maybeOrigin <- case origin of+        Nothing -> return nullPtr+        Just jOrigin -> do+            jOrigin' <- textToCString jOrigin+            return jOrigin'+    maybeProtocols <- case protocols of+        Nothing -> return nullPtr+        Just jProtocols -> do+            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols+            return jProtocols'+    onException (do+        _ <- propagateGError $ soup_websocket_server_check_handshake msg' maybeOrigin maybeProtocols+        touchManagedPtr msg+        freeMem maybeOrigin+        mapZeroTerminatedCArray freeMem maybeProtocols+        freeMem maybeProtocols+        return ()+     ) (do+        freeMem maybeOrigin+        mapZeroTerminatedCArray freeMem maybeProtocols+        freeMem maybeProtocols+     )+++-- function soup_websocket_error_get_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_error_get_quark" soup_websocket_error_get_quark :: +    IO Word32+++websocketErrorGetQuark ::+    (MonadIO m) =>+    m Word32+websocketErrorGetQuark  = liftIO $ do+    result <- soup_websocket_error_get_quark+    return result+++-- function soup_websocket_client_verify_handshake+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_websocket_client_verify_handshake" soup_websocket_client_verify_handshake :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++websocketClientVerifyHandshake ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    m ()+websocketClientVerifyHandshake msg = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    onException (do+        _ <- propagateGError $ soup_websocket_client_verify_handshake msg'+        touchManagedPtr msg+        return ()+     ) (do+        return ()+     )+++-- function soup_websocket_client_prepare_handshake+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_client_prepare_handshake" soup_websocket_client_prepare_handshake :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- origin : TBasicType TUTF8+    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO ()+++websocketClientPrepareHandshake ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    Maybe (T.Text) ->                       -- origin+    Maybe ([T.Text]) ->                     -- protocols+    m ()+websocketClientPrepareHandshake msg origin protocols = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    maybeOrigin <- case origin of+        Nothing -> return nullPtr+        Just jOrigin -> do+            jOrigin' <- textToCString jOrigin+            return jOrigin'+    maybeProtocols <- case protocols of+        Nothing -> return nullPtr+        Just jProtocols -> do+            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols+            return jProtocols'+    soup_websocket_client_prepare_handshake msg' maybeOrigin maybeProtocols+    touchManagedPtr msg+    freeMem maybeOrigin+    mapZeroTerminatedCArray freeMem maybeProtocols+    freeMem maybeProtocols+    return ()+++-- function soup_value_hash_new+-- XXX Could not generate function soup_value_hash_new+-- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."++-- function soup_value_hash_insert_value+-- XXX Could not generate function soup_value_hash_insert_value+-- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."++-- function soup_value_array_new+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GObject" "ValueArray"+-- throws : False+-- Skip return : False++foreign import ccall "soup_value_array_new" soup_value_array_new :: +    IO (Ptr GObject.ValueArray)++{-# DEPRECATED valueArrayNew ["Use #GVariant API instead."]#-}+valueArrayNew ::+    (MonadIO m) =>+    m GObject.ValueArray+valueArrayNew  = liftIO $ do+    result <- soup_value_array_new+    checkUnexpectedReturnNULL "soup_value_array_new" result+    result' <- (wrapBoxed GObject.ValueArray) result+    return result'+++-- function soup_uri_normalize+-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_normalize" soup_uri_normalize :: +    CString ->                              -- part : TBasicType TUTF8+    CString ->                              -- unescape_extra : TBasicType TUTF8+    IO CString+++uriNormalize ::+    (MonadIO m) =>+    T.Text ->                               -- part+    Maybe (T.Text) ->                       -- unescape_extra+    m T.Text+uriNormalize part unescape_extra = liftIO $ do+    part' <- textToCString part+    maybeUnescape_extra <- case unescape_extra of+        Nothing -> return nullPtr+        Just jUnescape_extra -> do+            jUnescape_extra' <- textToCString jUnescape_extra+            return jUnescape_extra'+    result <- soup_uri_normalize part' maybeUnescape_extra+    checkUnexpectedReturnNULL "soup_uri_normalize" result+    result' <- cstringToText result+    freeMem result+    freeMem part'+    freeMem maybeUnescape_extra+    return result'+++-- function soup_uri_encode+-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_encode" soup_uri_encode :: +    CString ->                              -- part : TBasicType TUTF8+    CString ->                              -- escape_extra : TBasicType TUTF8+    IO CString+++uriEncode ::+    (MonadIO m) =>+    T.Text ->                               -- part+    Maybe (T.Text) ->                       -- escape_extra+    m T.Text+uriEncode part escape_extra = liftIO $ do+    part' <- textToCString part+    maybeEscape_extra <- case escape_extra of+        Nothing -> return nullPtr+        Just jEscape_extra -> do+            jEscape_extra' <- textToCString jEscape_extra+            return jEscape_extra'+    result <- soup_uri_encode part' maybeEscape_extra+    checkUnexpectedReturnNULL "soup_uri_encode" result+    result' <- cstringToText result+    freeMem result+    freeMem part'+    freeMem maybeEscape_extra+    return result'+++-- function soup_uri_decode+-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_decode" soup_uri_decode :: +    CString ->                              -- part : TBasicType TUTF8+    IO CString+++uriDecode ::+    (MonadIO m) =>+    T.Text ->                               -- part+    m T.Text+uriDecode part = liftIO $ do+    part' <- textToCString part+    result <- soup_uri_decode part'+    checkUnexpectedReturnNULL "soup_uri_decode" result+    result' <- cstringToText result+    freeMem result+    freeMem part'+    return result'+++-- function soup_tld_get_base_domain+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "soup_tld_get_base_domain" soup_tld_get_base_domain :: +    CString ->                              -- hostname : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++tldGetBaseDomain ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m T.Text+tldGetBaseDomain hostname = liftIO $ do+    hostname' <- textToCString hostname+    onException (do+        result <- propagateGError $ soup_tld_get_base_domain hostname'+        checkUnexpectedReturnNULL "soup_tld_get_base_domain" result+        result' <- cstringToText result+        freeMem hostname'+        return result'+     ) (do+        freeMem hostname'+     )+++-- function soup_tld_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_tld_error_quark" soup_tld_error_quark :: +    IO Word32+++tldErrorQuark ::+    (MonadIO m) =>+    m Word32+tldErrorQuark  = liftIO $ do+    result <- soup_tld_error_quark+    return result+++-- function soup_tld_domain_is_public_suffix+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_tld_domain_is_public_suffix" soup_tld_domain_is_public_suffix :: +    CString ->                              -- domain : TBasicType TUTF8+    IO CInt+++tldDomainIsPublicSuffix ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    m Bool+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 {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_str_case_hash" soup_str_case_hash :: +    Ptr () ->                               -- key : TBasicType TVoid+    IO Word32+++strCaseHash ::+    (MonadIO m) =>+    Ptr () ->                               -- key+    m Word32+strCaseHash key = liftIO $ do+    result <- soup_str_case_hash key+    return result+++-- function soup_str_case_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_str_case_equal" soup_str_case_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++strCaseEqual ::+    (MonadIO m) =>+    Ptr () ->                               -- v1+    Ptr () ->                               -- v2+    m Bool+strCaseEqual v1 v2 = liftIO $ do+    result <- soup_str_case_equal v1 v2+    let result' = (/= 0) result+    return result'+++-- function soup_status_proxify+-- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_status_proxify" soup_status_proxify :: +    Word32 ->                               -- status_code : TBasicType TUInt32+    IO Word32+++statusProxify ::+    (MonadIO m) =>+    Word32 ->                               -- status_code+    m Word32+statusProxify status_code = liftIO $ do+    result <- soup_status_proxify status_code+    return result+++-- function soup_status_get_phrase+-- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_status_get_phrase" soup_status_get_phrase :: +    Word32 ->                               -- status_code : TBasicType TUInt32+    IO CString+++statusGetPhrase ::+    (MonadIO m) =>+    Word32 ->                               -- status_code+    m T.Text+statusGetPhrase status_code = liftIO $ do+    result <- soup_status_get_phrase status_code+    checkUnexpectedReturnNULL "soup_status_get_phrase" result+    result' <- cstringToText result+    return result'+++-- function soup_requester_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_requester_error_quark" soup_requester_error_quark :: +    IO Word32+++requesterErrorQuark ::+    (MonadIO m) =>+    m Word32+requesterErrorQuark  = liftIO $ do+    result <- soup_requester_error_quark+    return result+++-- function soup_request_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_error_quark" soup_request_error_quark :: +    IO Word32+++requestErrorQuark ::+    (MonadIO m) =>+    m Word32+requestErrorQuark  = liftIO $ do+    result <- soup_request_error_quark+    return result+++-- function soup_message_headers_iter_init+-- Args : [Arg {argName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_iter_init" soup_message_headers_iter_init :: +    Ptr MessageHeadersIter ->               -- iter : TInterface "Soup" "MessageHeadersIter"+    Ptr MessageHeaders ->                   -- hdrs : TInterface "Soup" "MessageHeaders"+    IO ()+++messageHeadersIterInit ::+    (MonadIO m) =>+    MessageHeaders ->                       -- hdrs+    m (MessageHeadersIter)+messageHeadersIterInit hdrs = liftIO $ do+    iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter)+    let hdrs' = unsafeManagedPtrGetPtr hdrs+    soup_message_headers_iter_init iter hdrs'+    iter' <- (wrapPtr MessageHeadersIter) iter+    touchManagedPtr hdrs+    return iter'+++-- function soup_http_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_http_error_quark" soup_http_error_quark :: +    IO Word32+++httpErrorQuark ::+    (MonadIO m) =>+    m Word32+httpErrorQuark  = liftIO $ do+    result <- soup_http_error_quark+    return result+++-- function soup_headers_parse_status_line+-- Args : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_headers_parse_status_line" soup_headers_parse_status_line :: +    CString ->                              -- status_line : TBasicType TUTF8+    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"+    Ptr Word32 ->                           -- status_code : TBasicType TUInt32+    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8+    IO CInt+++headersParseStatusLine ::+    (MonadIO m) =>+    T.Text ->                               -- status_line+    m (Bool,HTTPVersion,Word32,T.Text)+headersParseStatusLine status_line = liftIO $ do+    status_line' <- textToCString status_line+    ver <- allocMem :: IO (Ptr CUInt)+    status_code <- allocMem :: IO (Ptr Word32)+    reason_phrase <- allocMem :: IO (Ptr CString)+    result <- soup_headers_parse_status_line status_line' ver status_code reason_phrase+    let result' = (/= 0) result+    ver' <- peek ver+    let ver'' = (toEnum . fromIntegral) ver'+    status_code' <- peek status_code+    reason_phrase' <- peek reason_phrase+    reason_phrase'' <- cstringToText reason_phrase'+    freeMem reason_phrase'+    freeMem status_line'+    freeMem ver+    freeMem status_code+    freeMem reason_phrase+    return (result', ver'', status_code', reason_phrase'')+++-- function soup_headers_parse_response+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"+    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"+    Ptr Word32 ->                           -- status_code : TBasicType TUInt32+    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8+    IO CInt+++headersParseResponse ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int32 ->                                -- len+    MessageHeaders ->                       -- headers+    m (Bool,HTTPVersion,Word32,T.Text)+headersParseResponse str len headers = liftIO $ do+    str' <- textToCString str+    let headers' = unsafeManagedPtrGetPtr headers+    ver <- allocMem :: IO (Ptr CUInt)+    status_code <- allocMem :: IO (Ptr Word32)+    reason_phrase <- allocMem :: IO (Ptr CString)+    result <- soup_headers_parse_response str' len headers' ver status_code reason_phrase+    let result' = (/= 0) result+    ver' <- peek ver+    let ver'' = (toEnum . fromIntegral) ver'+    status_code' <- peek status_code+    reason_phrase' <- peek reason_phrase+    reason_phrase'' <- cstringToText reason_phrase'+    freeMem reason_phrase'+    touchManagedPtr headers+    freeMem str'+    freeMem ver+    freeMem status_code+    freeMem reason_phrase+    return (result', ver'', status_code', reason_phrase'')+++-- function soup_headers_parse_request+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: +    CString ->                              -- str : TBasicType TUTF8+    Int32 ->                                -- len : TBasicType TInt32+    Ptr MessageHeaders ->                   -- req_headers : TInterface "Soup" "MessageHeaders"+    Ptr CString ->                          -- req_method : TBasicType TUTF8+    Ptr CString ->                          -- req_path : TBasicType TUTF8+    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"+    IO Word32+++headersParseRequest ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int32 ->                                -- len+    MessageHeaders ->                       -- req_headers+    m (Word32,T.Text,T.Text,HTTPVersion)+headersParseRequest str len req_headers = liftIO $ do+    str' <- textToCString str+    let req_headers' = unsafeManagedPtrGetPtr req_headers+    req_method <- allocMem :: IO (Ptr CString)+    req_path <- allocMem :: IO (Ptr CString)+    ver <- allocMem :: IO (Ptr CUInt)+    result <- soup_headers_parse_request str' len req_headers' req_method req_path ver+    req_method' <- peek req_method+    req_method'' <- cstringToText req_method'+    freeMem req_method'+    req_path' <- peek req_path+    req_path'' <- cstringToText req_path'+    freeMem req_path'+    ver' <- peek ver+    let ver'' = (toEnum . fromIntegral) ver'+    touchManagedPtr req_headers+    freeMem str'+    freeMem req_method+    freeMem req_path+    freeMem ver+    return (result, req_method'', req_path'', ver'')+++-- function soup_headers_parse+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_headers_parse" soup_headers_parse :: +    CString ->                              -- str : TBasicType TUTF8+    Int32 ->                                -- len : TBasicType TInt32+    Ptr MessageHeaders ->                   -- dest : TInterface "Soup" "MessageHeaders"+    IO CInt+++headersParse ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int32 ->                                -- len+    MessageHeaders ->                       -- dest+    m Bool+headersParse str len dest = liftIO $ do+    str' <- textToCString str+    let dest' = unsafeManagedPtrGetPtr dest+    result <- soup_headers_parse str' len dest'+    let result' = (/= 0) result+    touchManagedPtr dest+    freeMem str'+    return result'+++-- function soup_header_parse_semi_param_list+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_parse_semi_param_list" soup_header_parse_semi_param_list :: +    CString ->                              -- header : TBasicType TUTF8+    IO (Ptr (GHashTable CString CString))+++headerParseSemiParamList ::+    (MonadIO m) =>+    T.Text ->                               -- header+    m (Map.Map T.Text T.Text)+headerParseSemiParamList header = liftIO $ do+    header' <- textToCString header+    result <- soup_header_parse_semi_param_list header'+    checkUnexpectedReturnNULL "soup_header_parse_semi_param_list" result+    result' <- unpackGHashTable result+    let result'' = mapFirst cstringUnpackPtr result'+    result''' <- mapFirstA cstringToText result''+    let result'''' = mapSecond cstringUnpackPtr result'''+    result''''' <- mapSecondA cstringToText result''''+    let result'''''' = Map.fromList result'''''+    unrefGHashTable result+    freeMem header'+    return result''''''+++-- function soup_header_parse_quality_list+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_parse_quality_list" soup_header_parse_quality_list :: +    CString ->                              -- header : TBasicType TUTF8+    Ptr (Ptr (GSList CString)) ->           -- unacceptable : TGSList (TBasicType TUTF8)+    IO (Ptr (GSList CString))+++headerParseQualityList ::+    (MonadIO m) =>+    T.Text ->                               -- header+    m ([T.Text],[T.Text])+headerParseQualityList header = liftIO $ do+    header' <- textToCString header+    unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString)))+    result <- soup_header_parse_quality_list header' unacceptable+    checkUnexpectedReturnNULL "soup_header_parse_quality_list" result+    result' <- unpackGSList result+    result'' <- mapM cstringToText result'+    mapGSList freeMem result+    g_slist_free result+    unacceptable' <- peek unacceptable+    unacceptable'' <- unpackGSList unacceptable'+    unacceptable''' <- mapM cstringToText unacceptable''+    mapGSList freeMem unacceptable'+    g_slist_free unacceptable'+    freeMem header'+    freeMem unacceptable+    return (result'', unacceptable''')+++-- function soup_header_parse_param_list+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_parse_param_list" soup_header_parse_param_list :: +    CString ->                              -- header : TBasicType TUTF8+    IO (Ptr (GHashTable CString CString))+++headerParseParamList ::+    (MonadIO m) =>+    T.Text ->                               -- header+    m (Map.Map T.Text T.Text)+headerParseParamList header = liftIO $ do+    header' <- textToCString header+    result <- soup_header_parse_param_list header'+    checkUnexpectedReturnNULL "soup_header_parse_param_list" result+    result' <- unpackGHashTable result+    let result'' = mapFirst cstringUnpackPtr result'+    result''' <- mapFirstA cstringToText result''+    let result'''' = mapSecond cstringUnpackPtr result'''+    result''''' <- mapSecondA cstringToText result''''+    let result'''''' = Map.fromList result'''''+    unrefGHashTable result+    freeMem header'+    return result''''''+++-- function soup_header_parse_list+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_parse_list" soup_header_parse_list :: +    CString ->                              -- header : TBasicType TUTF8+    IO (Ptr (GSList CString))+++headerParseList ::+    (MonadIO m) =>+    T.Text ->                               -- header+    m [T.Text]+headerParseList header = liftIO $ do+    header' <- textToCString header+    result <- soup_header_parse_list header'+    checkUnexpectedReturnNULL "soup_header_parse_list" result+    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 {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_g_string_append_param_quoted" soup_header_g_string_append_param_quoted :: +    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++headerGStringAppendParamQuoted ::+    (MonadIO m) =>+    GLib.String ->                          -- string+    T.Text ->                               -- name+    T.Text ->                               -- value+    m ()+headerGStringAppendParamQuoted string name value = liftIO $ do+    let string' = unsafeManagedPtrGetPtr string+    name' <- textToCString name+    value' <- textToCString value+    soup_header_g_string_append_param_quoted string' name' value'+    touchManagedPtr string+    freeMem name'+    freeMem value'+    return ()+++-- function soup_header_g_string_append_param+-- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_g_string_append_param" soup_header_g_string_append_param :: +    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++headerGStringAppendParam ::+    (MonadIO m) =>+    GLib.String ->                          -- string+    T.Text ->                               -- name+    T.Text ->                               -- value+    m ()+headerGStringAppendParam string name value = liftIO $ do+    let string' = unsafeManagedPtrGetPtr string+    name' <- textToCString name+    value' <- textToCString value+    soup_header_g_string_append_param string' name' value'+    touchManagedPtr string+    freeMem name'+    freeMem value'+    return ()+++-- function soup_header_free_param_list+-- Args : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_free_param_list" soup_header_free_param_list :: +    Ptr (GHashTable CString CString) ->     -- param_list : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO ()+++headerFreeParamList ::+    (MonadIO m) =>+    Map.Map T.Text T.Text ->                -- param_list+    m ()+headerFreeParamList param_list = liftIO $ do+    let param_list' = Map.toList param_list+    param_list'' <- mapFirstA textToCString param_list'+    param_list''' <- mapSecondA textToCString param_list''+    let param_list'''' = mapFirst cstringPackPtr param_list'''+    let param_list''''' = mapSecond cstringPackPtr param_list''''+    param_list'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) param_list'''''+    soup_header_free_param_list param_list''''''+    unrefGHashTable param_list''''''+    return ()+++-- function soup_header_contains+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_header_contains" soup_header_contains :: +    CString ->                              -- header : TBasicType TUTF8+    CString ->                              -- token : TBasicType TUTF8+    IO CInt+++headerContains ::+    (MonadIO m) =>+    T.Text ->                               -- header+    T.Text ->                               -- token+    m Bool+headerContains header token = liftIO $ do+    header' <- textToCString header+    token' <- textToCString token+    result <- soup_header_contains header' token'+    let result' = (/= 0) result+    freeMem header'+    freeMem token'+    return result'+++-- function soup_form_request_new_from_multipart+-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_request_new_from_multipart" soup_form_request_new_from_multipart :: +    CString ->                              -- uri : TBasicType TUTF8+    Ptr Multipart ->                        -- multipart : TInterface "Soup" "Multipart"+    IO (Ptr Message)+++formRequestNewFromMultipart ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    Multipart ->                            -- multipart+    m Message+formRequestNewFromMultipart uri multipart = liftIO $ do+    uri' <- textToCString uri+    let multipart' = unsafeManagedPtrGetPtr multipart+    result <- soup_form_request_new_from_multipart uri' multipart'+    checkUnexpectedReturnNULL "soup_form_request_new_from_multipart" result+    result' <- (wrapObject Message) result+    touchManagedPtr multipart+    freeMem uri'+    return result'+++-- function soup_form_request_new_from_hash+-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_request_new_from_hash" soup_form_request_new_from_hash :: +    CString ->                              -- method : TBasicType TUTF8+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO (Ptr Message)+++formRequestNewFromHash ::+    (MonadIO m) =>+    T.Text ->                               -- method+    T.Text ->                               -- uri+    Map.Map T.Text T.Text ->                -- form_data_set+    m Message+formRequestNewFromHash method uri form_data_set = liftIO $ do+    method' <- textToCString method+    uri' <- textToCString uri+    let form_data_set' = Map.toList form_data_set+    form_data_set'' <- mapFirstA textToCString form_data_set'+    form_data_set''' <- mapSecondA textToCString form_data_set''+    let form_data_set'''' = mapFirst cstringPackPtr form_data_set'''+    let form_data_set''''' = mapSecond cstringPackPtr form_data_set''''+    form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set'''''+    result <- soup_form_request_new_from_hash method' uri' form_data_set''''''+    checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result+    result' <- (wrapObject Message) result+    freeMem method'+    freeMem uri'+    unrefGHashTable form_data_set''''''+    return result'+++-- function soup_form_request_new_from_datalist+-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_request_new_from_datalist" soup_form_request_new_from_datalist :: +    CString ->                              -- method : TBasicType TUTF8+    CString ->                              -- uri : TBasicType TUTF8+    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"+    IO (Ptr Message)+++formRequestNewFromDatalist ::+    (MonadIO m) =>+    T.Text ->                               -- method+    T.Text ->                               -- uri+    GLib.Data ->                            -- form_data_set+    m Message+formRequestNewFromDatalist method uri form_data_set = liftIO $ do+    method' <- textToCString method+    uri' <- textToCString uri+    let form_data_set' = unsafeManagedPtrGetPtr form_data_set+    result <- soup_form_request_new_from_datalist method' uri' form_data_set'+    checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result+    result' <- (wrapObject Message) result+    touchManagedPtr form_data_set+    freeMem method'+    freeMem uri'+    return result'+++-- function soup_form_encode_hash+-- Args : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_encode_hash" soup_form_encode_hash :: +    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO CString+++formEncodeHash ::+    (MonadIO m) =>+    Map.Map T.Text T.Text ->                -- form_data_set+    m T.Text+formEncodeHash form_data_set = liftIO $ do+    let form_data_set' = Map.toList form_data_set+    form_data_set'' <- mapFirstA textToCString form_data_set'+    form_data_set''' <- mapSecondA textToCString form_data_set''+    let form_data_set'''' = mapFirst cstringPackPtr form_data_set'''+    let form_data_set''''' = mapSecond cstringPackPtr form_data_set''''+    form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set'''''+    result <- soup_form_encode_hash form_data_set''''''+    checkUnexpectedReturnNULL "soup_form_encode_hash" result+    result' <- cstringToText result+    freeMem result+    unrefGHashTable form_data_set''''''+    return result'+++-- function soup_form_encode_datalist+-- Args : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_encode_datalist" soup_form_encode_datalist :: +    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"+    IO CString+++formEncodeDatalist ::+    (MonadIO m) =>+    GLib.Data ->                            -- form_data_set+    m T.Text+formEncodeDatalist form_data_set = liftIO $ do+    let form_data_set' = unsafeManagedPtrGetPtr form_data_set+    result <- soup_form_encode_datalist form_data_set'+    checkUnexpectedReturnNULL "soup_form_encode_datalist" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr form_data_set+    return result'+++-- function soup_form_decode_multipart+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_decode_multipart" soup_form_decode_multipart :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- file_control_name : TBasicType TUTF8+    Ptr CString ->                          -- filename : TBasicType TUTF8+    Ptr CString ->                          -- content_type : TBasicType TUTF8+    Ptr Buffer ->                           -- file : TInterface "Soup" "Buffer"+    IO (Ptr (GHashTable CString CString))+++formDecodeMultipart ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    Maybe (T.Text) ->                       -- file_control_name+    m ((Map.Map T.Text T.Text),T.Text,T.Text,Buffer)+formDecodeMultipart msg file_control_name = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    maybeFile_control_name <- case file_control_name of+        Nothing -> return nullPtr+        Just jFile_control_name -> do+            jFile_control_name' <- textToCString jFile_control_name+            return jFile_control_name'+    filename <- allocMem :: IO (Ptr CString)+    content_type <- allocMem :: IO (Ptr CString)+    file <- callocBoxedBytes 16 :: IO (Ptr Buffer)+    result <- soup_form_decode_multipart msg' maybeFile_control_name filename content_type file+    checkUnexpectedReturnNULL "soup_form_decode_multipart" 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+    filename' <- peek filename+    filename'' <- cstringToText filename'+    freeMem filename'+    content_type' <- peek content_type+    content_type'' <- cstringToText content_type'+    freeMem content_type'+    file' <- (wrapBoxed Buffer) file+    touchManagedPtr msg+    freeMem maybeFile_control_name+    freeMem filename+    freeMem content_type+    return (result'''''', filename'', content_type'', file')+++-- function soup_form_decode+-- Args : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_form_decode" soup_form_decode :: +    CString ->                              -- encoded_form : TBasicType TUTF8+    IO (Ptr (GHashTable CString CString))+++formDecode ::+    (MonadIO m) =>+    T.Text ->                               -- encoded_form+    m (Map.Map T.Text T.Text)+formDecode encoded_form = liftIO $ do+    encoded_form' <- textToCString encoded_form+    result <- soup_form_decode encoded_form'+    checkUnexpectedReturnNULL "soup_form_decode" result+    result' <- unpackGHashTable result+    let result'' = mapFirst cstringUnpackPtr result'+    result''' <- mapFirstA cstringToText result''+    let result'''' = mapSecond cstringUnpackPtr result'''+    result''''' <- mapSecondA cstringToText result''''+    let result'''''' = Map.fromList result'''''+    unrefGHashTable result+    freeMem encoded_form'+    return result''''''+++-- function soup_cookies_to_response+-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookies_to_response" soup_cookies_to_response :: +    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++cookiesToResponse ::+    (MonadIO m, MessageK a) =>+    [Cookie] ->                             -- cookies+    a ->                                    -- msg+    m ()+cookiesToResponse cookies msg = liftIO $ do+    let cookies' = map unsafeManagedPtrGetPtr cookies+    cookies'' <- packGSList cookies'+    let msg' = unsafeManagedPtrCastPtr msg+    soup_cookies_to_response cookies'' msg'+    mapM_ touchManagedPtr cookies+    touchManagedPtr msg+    g_slist_free cookies''+    return ()+++-- function soup_cookies_to_request+-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookies_to_request" soup_cookies_to_request :: +    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++cookiesToRequest ::+    (MonadIO m, MessageK a) =>+    [Cookie] ->                             -- cookies+    a ->                                    -- msg+    m ()+cookiesToRequest cookies msg = liftIO $ do+    let cookies' = map unsafeManagedPtrGetPtr cookies+    cookies'' <- packGSList cookies'+    let msg' = unsafeManagedPtrCastPtr msg+    soup_cookies_to_request cookies'' msg'+    mapM_ touchManagedPtr cookies+    touchManagedPtr msg+    g_slist_free cookies''+    return ()+++-- function soup_cookies_to_cookie_header+-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookies_to_cookie_header" soup_cookies_to_cookie_header :: +    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")+    IO CString+++cookiesToCookieHeader ::+    (MonadIO m) =>+    [Cookie] ->                             -- cookies+    m T.Text+cookiesToCookieHeader cookies = liftIO $ do+    let cookies' = map unsafeManagedPtrGetPtr cookies+    cookies'' <- packGSList cookies'+    result <- soup_cookies_to_cookie_header cookies''+    checkUnexpectedReturnNULL "soup_cookies_to_cookie_header" result+    result' <- cstringToText result+    freeMem result+    mapM_ touchManagedPtr cookies+    g_slist_free cookies''+    return result'+++-- function soup_cookies_from_response+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "Cookie")+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO (Ptr (GSList (Ptr Cookie)))+++cookiesFromResponse ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    m [Cookie]+cookiesFromResponse msg = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_cookies_from_response msg'+    checkUnexpectedReturnNULL "soup_cookies_from_response" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed Cookie) result'+    g_slist_free result+    touchManagedPtr msg+    return result''+++-- function soup_cookies_from_request+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "Cookie")+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO (Ptr (GSList (Ptr Cookie)))+++cookiesFromRequest ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- msg+    m [Cookie]+cookiesFromRequest msg = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_cookies_from_request msg'+    checkUnexpectedReturnNULL "soup_cookies_from_request" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed Cookie) result'+    g_slist_free result+    touchManagedPtr msg+    return result''+++-- function soup_cookie_parse+-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Cookie"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_parse" soup_cookie_parse :: +    CString ->                              -- header : TBasicType TUTF8+    Ptr URI ->                              -- origin : TInterface "Soup" "URI"+    IO (Ptr Cookie)+++cookieParse ::+    (MonadIO m) =>+    T.Text ->                               -- header+    URI ->                                  -- origin+    m Cookie+cookieParse header origin = liftIO $ do+    header' <- textToCString header+    let origin' = unsafeManagedPtrGetPtr origin+    result <- soup_cookie_parse header' origin'+    checkUnexpectedReturnNULL "soup_cookie_parse" result+    result' <- (wrapBoxed Cookie) result+    touchManagedPtr origin+    freeMem header'+    return result'+++
+ GI/Soup/Interfaces.hs view
@@ -0,0 +1,30 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Interfaces+    (     module GI.Soup.Interfaces.PasswordManager,+    module GI.Soup.Interfaces.ProxyURIResolver,+    module GI.Soup.Interfaces.SessionFeature,+++    ) where++import GI.Soup.Interfaces.PasswordManager+import GI.Soup.Interfaces.ProxyURIResolver+import GI.Soup.Interfaces.SessionFeature++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++
+ GI/Soup/Interfaces/PasswordManager.hs view
@@ -0,0 +1,167 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Interfaces.PasswordManager+    ( ++-- * Exported types+    PasswordManager(..)                     ,+    noPasswordManager                       ,+    PasswordManagerK                        ,+    toPasswordManager                       ,+++ -- * Methods+-- ** passwordManagerGetPasswordsAsync+    passwordManagerGetPasswordsAsync        ,+++-- ** passwordManagerGetPasswordsSync+    passwordManagerGetPasswordsSync         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++-- interface PasswordManager ++newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager)+noPasswordManager :: Maybe PasswordManager+noPasswordManager = Nothing++type instance AttributeList PasswordManager = PasswordManagerAttributeList+type PasswordManagerAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList PasswordManager = PasswordManagerSignalList+type PasswordManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "soup_password_manager_get_type"+    c_soup_password_manager_get_type :: IO GType++type instance ParentTypes PasswordManager = PasswordManagerParentTypes+type PasswordManagerParentTypes = '[SessionFeature, GObject.Object]++instance GObject PasswordManager where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_password_manager_get_type+    ++class GObject o => PasswordManagerK o+instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o++toPasswordManager :: PasswordManagerK o => o -> IO PasswordManager+toPasswordManager = unsafeCastTo PasswordManager++-- method PasswordManager::get_passwords_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_password_manager_get_passwords_async" soup_password_manager_get_passwords_async :: +    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"+    CInt ->                                 -- retrying : TBasicType TBoolean+    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr PasswordManagerCallbackC ->      -- callback : TInterface "Soup" "PasswordManagerCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++passwordManagerGetPasswordsAsync ::+    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    c ->                                    -- auth+    Bool ->                                 -- retrying+    GLib.MainContext ->                     -- async_context+    Maybe (d) ->                            -- cancellable+    PasswordManagerCallback ->              -- callback+    m ()+passwordManagerGetPasswordsAsync _obj msg auth retrying async_context cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    let auth' = unsafeManagedPtrCastPtr auth+    let retrying' = (fromIntegral . fromEnum) retrying+    let async_context' = unsafeManagedPtrGetPtr async_context+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr PasswordManagerCallbackC))+    callback' <- mkPasswordManagerCallback (passwordManagerCallbackWrapper (Just ptrcallback) callback)+    poke ptrcallback callback'+    let user_data = nullPtr+    soup_password_manager_get_passwords_async _obj' msg' auth' retrying' async_context' maybeCancellable callback' user_data+    touchManagedPtr _obj+    touchManagedPtr msg+    touchManagedPtr auth+    touchManagedPtr async_context+    whenJust cancellable touchManagedPtr+    return ()++-- method PasswordManager::get_passwords_sync+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_password_manager_get_passwords_sync" soup_password_manager_get_passwords_sync :: +    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    IO ()+++passwordManagerGetPasswordsSync ::+    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    c ->                                    -- auth+    Maybe (d) ->                            -- cancellable+    m ()+passwordManagerGetPasswordsSync _obj msg auth cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    let auth' = unsafeManagedPtrCastPtr auth+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    soup_password_manager_get_passwords_sync _obj' msg' auth' maybeCancellable+    touchManagedPtr _obj+    touchManagedPtr msg+    touchManagedPtr auth+    whenJust cancellable touchManagedPtr+    return ()++
+ GI/Soup/Interfaces/PasswordManager.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Interfaces.PasswordManager where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager)+instance GObject PasswordManager where+class GObject o => PasswordManagerK o+instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o
+ GI/Soup/Interfaces/ProxyURIResolver.hs view
@@ -0,0 +1,163 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Interfaces.ProxyURIResolver+    ( ++-- * Exported types+    ProxyURIResolver(..)                    ,+    noProxyURIResolver                      ,+    ProxyURIResolverK                       ,+    toProxyURIResolver                      ,+++ -- * Methods+-- ** proxyURIResolverGetProxyUriAsync+    proxyURIResolverGetProxyUriAsync        ,+++-- ** proxyURIResolverGetProxyUriSync+    proxyURIResolverGetProxyUriSync         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++-- interface ProxyURIResolver ++newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver)+noProxyURIResolver :: Maybe ProxyURIResolver+noProxyURIResolver = Nothing++type instance AttributeList ProxyURIResolver = ProxyURIResolverAttributeList+type ProxyURIResolverAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ProxyURIResolver = ProxyURIResolverSignalList+type ProxyURIResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "soup_proxy_uri_resolver_get_type"+    c_soup_proxy_uri_resolver_get_type :: IO GType++type instance ParentTypes ProxyURIResolver = ProxyURIResolverParentTypes+type ProxyURIResolverParentTypes = '[SessionFeature, GObject.Object]++instance GObject ProxyURIResolver where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_proxy_uri_resolver_get_type+    ++class GObject o => ProxyURIResolverK o+instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o++toProxyURIResolver :: ProxyURIResolverK o => o -> IO ProxyURIResolver+toProxyURIResolver = unsafeCastTo ProxyURIResolver++-- method ProxyURIResolver::get_proxy_uri_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_async" soup_proxy_uri_resolver_get_proxy_uri_async :: +    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr ProxyURIResolverCallbackC ->     -- callback : TInterface "Soup" "ProxyURIResolverCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()++{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}+proxyURIResolverGetProxyUriAsync ::+    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    Maybe (GLib.MainContext) ->             -- async_context+    Maybe (b) ->                            -- cancellable+    ProxyURIResolverCallback ->             -- callback+    m ()+proxyURIResolverGetProxyUriAsync _obj uri async_context cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    maybeAsync_context <- case async_context of+        Nothing -> return nullPtr+        Just jAsync_context -> do+            let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context+            return jAsync_context'+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr ProxyURIResolverCallbackC))+    callback' <- mkProxyURIResolverCallback (proxyURIResolverCallbackWrapper (Just ptrcallback) callback)+    poke ptrcallback callback'+    let user_data = nullPtr+    soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsync_context maybeCancellable callback' user_data+    touchManagedPtr _obj+    touchManagedPtr uri+    whenJust async_context touchManagedPtr+    whenJust cancellable touchManagedPtr+    return ()++-- method ProxyURIResolver::get_proxy_uri_sync+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_sync" soup_proxy_uri_resolver_get_proxy_uri_sync :: +    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr URI ->                              -- proxy_uri : TInterface "Soup" "URI"+    IO Word32++{-# DEPRECATED proxyURIResolverGetProxyUriSync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}+proxyURIResolverGetProxyUriSync ::+    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    Maybe (b) ->                            -- cancellable+    m (Word32,URI)+proxyURIResolverGetProxyUriSync _obj uri cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    proxy_uri <- callocBoxedBytes 64 :: IO (Ptr URI)+    result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxy_uri+    proxy_uri' <- (wrapBoxed URI) proxy_uri+    touchManagedPtr _obj+    touchManagedPtr uri+    whenJust cancellable touchManagedPtr+    return (result, proxy_uri')++
+ GI/Soup/Interfaces/ProxyURIResolver.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Interfaces.ProxyURIResolver where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver)+instance GObject ProxyURIResolver where+class GObject o => ProxyURIResolverK o+instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o
+ GI/Soup/Interfaces/SessionFeature.hs view
@@ -0,0 +1,223 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Interfaces.SessionFeature+    ( ++-- * Exported types+    SessionFeature(..)                      ,+    noSessionFeature                        ,+    SessionFeatureK                         ,+    toSessionFeature                        ,+++ -- * Methods+-- ** sessionFeatureAddFeature+    sessionFeatureAddFeature                ,+++-- ** sessionFeatureAttach+    sessionFeatureAttach                    ,+++-- ** sessionFeatureDetach+    sessionFeatureDetach                    ,+++-- ** sessionFeatureHasFeature+    sessionFeatureHasFeature                ,+++-- ** sessionFeatureRemoveFeature+    sessionFeatureRemoveFeature             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++-- interface SessionFeature ++newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature)+noSessionFeature :: Maybe SessionFeature+noSessionFeature = Nothing++type instance AttributeList SessionFeature = SessionFeatureAttributeList+type SessionFeatureAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList SessionFeature = SessionFeatureSignalList+type SessionFeatureSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "soup_session_feature_get_type"+    c_soup_session_feature_get_type :: IO GType++type instance ParentTypes SessionFeature = SessionFeatureParentTypes+type SessionFeatureParentTypes = '[GObject.Object]++instance GObject SessionFeature where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_session_feature_get_type+    ++class GObject o => SessionFeatureK o+instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o++toSessionFeature :: SessionFeatureK o => o -> IO SessionFeature+toSessionFeature = unsafeCastTo SessionFeature++-- method SessionFeature::add_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_feature_add_feature" soup_session_feature_add_feature :: +    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"+    CGType ->                               -- type : TBasicType TGType+    IO CInt+++sessionFeatureAddFeature ::+    (MonadIO m, SessionFeatureK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    m Bool+sessionFeatureAddFeature _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    result <- soup_session_feature_add_feature _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method SessionFeature::attach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_feature_attach" soup_session_feature_attach :: +    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"+    Ptr Session ->                          -- session : TInterface "Soup" "Session"+    IO ()+++sessionFeatureAttach ::+    (MonadIO m, SessionFeatureK a, SessionK b) =>+    a ->                                    -- _obj+    b ->                                    -- session+    m ()+sessionFeatureAttach _obj session = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let session' = unsafeManagedPtrCastPtr session+    soup_session_feature_attach _obj' session'+    touchManagedPtr _obj+    touchManagedPtr session+    return ()++-- method SessionFeature::detach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_feature_detach" soup_session_feature_detach :: +    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"+    Ptr Session ->                          -- session : TInterface "Soup" "Session"+    IO ()+++sessionFeatureDetach ::+    (MonadIO m, SessionFeatureK a, SessionK b) =>+    a ->                                    -- _obj+    b ->                                    -- session+    m ()+sessionFeatureDetach _obj session = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let session' = unsafeManagedPtrCastPtr session+    soup_session_feature_detach _obj' session'+    touchManagedPtr _obj+    touchManagedPtr session+    return ()++-- method SessionFeature::has_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_feature_has_feature" soup_session_feature_has_feature :: +    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"+    CGType ->                               -- type : TBasicType TGType+    IO CInt+++sessionFeatureHasFeature ::+    (MonadIO m, SessionFeatureK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    m Bool+sessionFeatureHasFeature _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    result <- soup_session_feature_has_feature _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method SessionFeature::remove_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_feature_remove_feature" soup_session_feature_remove_feature :: +    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"+    CGType ->                               -- type : TBasicType TGType+    IO CInt+++sessionFeatureRemoveFeature ::+    (MonadIO m, SessionFeatureK a) =>+    a ->                                    -- _obj+    GType ->                                -- type+    m Bool+sessionFeatureRemoveFeature _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = gtypeToCGType type_+    result <- soup_session_feature_remove_feature _obj' type_'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Interfaces/SessionFeature.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Interfaces.SessionFeature where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature)+instance GObject SessionFeature where+class GObject o => SessionFeatureK o+instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o
+ GI/Soup/Objects.hs view
@@ -0,0 +1,84 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects+    (     module GI.Soup.Objects.Address          ,+    module GI.Soup.Objects.Auth             ,+    module GI.Soup.Objects.AuthBasic        ,+    module GI.Soup.Objects.AuthDigest       ,+    module GI.Soup.Objects.AuthDomain       ,+    module GI.Soup.Objects.AuthDomainBasic  ,+    module GI.Soup.Objects.AuthDomainDigest ,+    module GI.Soup.Objects.AuthManager      ,+    module GI.Soup.Objects.AuthNTLM         ,+    module GI.Soup.Objects.Cache            ,+    module GI.Soup.Objects.ContentDecoder   ,+    module GI.Soup.Objects.ContentSniffer   ,+    module GI.Soup.Objects.CookieJar        ,+    module GI.Soup.Objects.CookieJarDB      ,+    module GI.Soup.Objects.CookieJarText    ,+    module GI.Soup.Objects.Logger           ,+    module GI.Soup.Objects.Message          ,+    module GI.Soup.Objects.MultipartInputStream,+    module GI.Soup.Objects.ProxyResolverDefault,+    module GI.Soup.Objects.Request          ,+    module GI.Soup.Objects.RequestData      ,+    module GI.Soup.Objects.RequestFile      ,+    module GI.Soup.Objects.RequestHTTP      ,+    module GI.Soup.Objects.Requester        ,+    module GI.Soup.Objects.Server           ,+    module GI.Soup.Objects.Session          ,+    module GI.Soup.Objects.SessionAsync     ,+    module GI.Soup.Objects.SessionSync      ,+    module GI.Soup.Objects.Socket           ,+    module GI.Soup.Objects.WebsocketConnection,+++    ) where++import GI.Soup.Objects.Address+import GI.Soup.Objects.Auth+import GI.Soup.Objects.AuthBasic+import GI.Soup.Objects.AuthDigest+import GI.Soup.Objects.AuthDomain+import GI.Soup.Objects.AuthDomainBasic+import GI.Soup.Objects.AuthDomainDigest+import GI.Soup.Objects.AuthManager+import GI.Soup.Objects.AuthNTLM+import GI.Soup.Objects.Cache+import GI.Soup.Objects.ContentDecoder+import GI.Soup.Objects.ContentSniffer+import GI.Soup.Objects.CookieJar+import GI.Soup.Objects.CookieJarDB+import GI.Soup.Objects.CookieJarText+import GI.Soup.Objects.Logger+import GI.Soup.Objects.Message+import GI.Soup.Objects.MultipartInputStream+import GI.Soup.Objects.ProxyResolverDefault+import GI.Soup.Objects.Request+import GI.Soup.Objects.RequestData+import GI.Soup.Objects.RequestFile+import GI.Soup.Objects.RequestHTTP+import GI.Soup.Objects.Requester+import GI.Soup.Objects.Server+import GI.Soup.Objects.Session+import GI.Soup.Objects.SessionAsync+import GI.Soup.Objects.SessionSync+import GI.Soup.Objects.Socket+import GI.Soup.Objects.WebsocketConnection++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++
+ GI/Soup/Objects/Address.hs view
@@ -0,0 +1,673 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Address+    ( ++-- * Exported types+    Address(..)                             ,+    AddressK                                ,+    toAddress                               ,+    noAddress                               ,+++ -- * Methods+-- ** addressEqualByIp+    addressEqualByIp                        ,+++-- ** addressEqualByName+    addressEqualByName                      ,+++-- ** addressGetGsockaddr+    addressGetGsockaddr                     ,+++-- ** addressGetName+    addressGetName                          ,+++-- ** addressGetPhysical+    addressGetPhysical                      ,+++-- ** addressGetPort+    addressGetPort                          ,+++-- ** addressHashByIp+    addressHashByIp                         ,+++-- ** addressHashByName+    addressHashByName                       ,+++-- ** addressIsResolved+    addressIsResolved                       ,+++-- ** addressNew+    addressNew                              ,+++-- ** addressNewAny+    addressNewAny                           ,+++-- ** addressNewFromSockaddr+    addressNewFromSockaddr                  ,+++-- ** addressResolveAsync+    addressResolveAsync                     ,+++-- ** addressResolveSync+    addressResolveSync                      ,+++++ -- * Properties+-- ** Family+    AddressFamilyPropertyInfo               ,+    constructAddressFamily                  ,+    getAddressFamily                        ,+++-- ** Name+    AddressNamePropertyInfo                 ,+    constructAddressName                    ,+    getAddressName                          ,+++-- ** Physical+    AddressPhysicalPropertyInfo             ,+    getAddressPhysical                      ,+++-- ** Port+    AddressPortPropertyInfo                 ,+    constructAddressPort                    ,+    getAddressPort                          ,+++-- ** Protocol+    AddressProtocolPropertyInfo             ,+    constructAddressProtocol                ,+    getAddressProtocol                      ,+++-- ** Sockaddr+    AddressSockaddrPropertyInfo             ,+    constructAddressSockaddr                ,+    getAddressSockaddr                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Address = Address (ForeignPtr Address)+foreign import ccall "soup_address_get_type"+    c_soup_address_get_type :: IO GType++type instance ParentTypes Address = AddressParentTypes+type AddressParentTypes = '[GObject.Object, Gio.SocketConnectable]++instance GObject Address where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_address_get_type+    ++class GObject o => AddressK o+instance (GObject o, IsDescendantOf Address o) => AddressK o++toAddress :: AddressK o => o -> IO Address+toAddress = unsafeCastTo Address++noAddress :: Maybe Address+noAddress = Nothing++-- VVV Prop "family"+   -- Type: TInterface "Soup" "AddressFamily"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily+getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"++constructAddressFamily :: AddressFamily -> IO ([Char], GValue)+constructAddressFamily val = constructObjectPropertyEnum "family" val++data AddressFamilyPropertyInfo+instance AttrInfo AddressFamilyPropertyInfo where+    type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) AddressFamily+    type AttrBaseTypeConstraint AddressFamilyPropertyInfo = AddressK+    type AttrGetType AddressFamilyPropertyInfo = AddressFamily+    type AttrLabel AddressFamilyPropertyInfo = "Address::family"+    attrGet _ = getAddressFamily+    attrSet _ = undefined+    attrConstruct _ = constructAddressFamily++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAddressName :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressName obj = liftIO $ getObjectPropertyString obj "name"++constructAddressName :: T.Text -> IO ([Char], GValue)+constructAddressName val = constructObjectPropertyString "name" val++data AddressNamePropertyInfo+instance AttrInfo AddressNamePropertyInfo where+    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK+    type AttrGetType AddressNamePropertyInfo = T.Text+    type AttrLabel AddressNamePropertyInfo = "Address::name"+    attrGet _ = getAddressName+    attrSet _ = undefined+    attrConstruct _ = constructAddressName++-- VVV Prop "physical"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getAddressPhysical :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical"++data AddressPhysicalPropertyInfo+instance AttrInfo AddressPhysicalPropertyInfo where+    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) ()+    type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK+    type AttrGetType AddressPhysicalPropertyInfo = T.Text+    type AttrLabel AddressPhysicalPropertyInfo = "Address::physical"+    attrGet _ = getAddressPhysical+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "port"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32+getAddressPort obj = liftIO $ getObjectPropertyCInt obj "port"++constructAddressPort :: Int32 -> IO ([Char], GValue)+constructAddressPort val = constructObjectPropertyCInt "port" val++data AddressPortPropertyInfo+instance AttrInfo AddressPortPropertyInfo where+    type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32+    type AttrBaseTypeConstraint AddressPortPropertyInfo = AddressK+    type AttrGetType AddressPortPropertyInfo = Int32+    type AttrLabel AddressPortPropertyInfo = "Address::port"+    attrGet _ = getAddressPort+    attrSet _ = undefined+    attrConstruct _ = constructAddressPort++-- VVV Prop "protocol"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAddressProtocol :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol"++constructAddressProtocol :: T.Text -> IO ([Char], GValue)+constructAddressProtocol val = constructObjectPropertyString "protocol" val++data AddressProtocolPropertyInfo+instance AttrInfo AddressProtocolPropertyInfo where+    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK+    type AttrGetType AddressProtocolPropertyInfo = T.Text+    type AttrLabel AddressProtocolPropertyInfo = "Address::protocol"+    attrGet _ = getAddressProtocol+    attrSet _ = undefined+    attrConstruct _ = constructAddressProtocol++-- VVV Prop "sockaddr"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ())+getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr"++constructAddressSockaddr :: (Ptr ()) -> IO ([Char], GValue)+constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val++data AddressSockaddrPropertyInfo+instance AttrInfo AddressSockaddrPropertyInfo where+    type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = AddressK+    type AttrGetType AddressSockaddrPropertyInfo = (Ptr ())+    type AttrLabel AddressSockaddrPropertyInfo = "Address::sockaddr"+    attrGet _ = getAddressSockaddr+    attrSet _ = undefined+    attrConstruct _ = constructAddressSockaddr++type instance AttributeList Address = AddressAttributeList+type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)])++type instance SignalList Address = AddressSignalList+type AddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Address::new+-- method type : Constructor+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_new" soup_address_new :: +    CString ->                              -- name : TBasicType TUTF8+    Word32 ->                               -- port : TBasicType TUInt32+    IO (Ptr Address)+++addressNew ::+    (MonadIO m) =>+    T.Text ->                               -- name+    Word32 ->                               -- port+    m Address+addressNew name port = liftIO $ do+    name' <- textToCString name+    result <- soup_address_new name' port+    checkUnexpectedReturnNULL "soup_address_new" result+    result' <- (wrapObject Address) result+    freeMem name'+    return result'++-- method Address::new_any+-- method type : Constructor+-- Args : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_new_any" soup_address_new_any :: +    CUInt ->                                -- family : TInterface "Soup" "AddressFamily"+    Word32 ->                               -- port : TBasicType TUInt32+    IO (Ptr Address)+++addressNewAny ::+    (MonadIO m) =>+    AddressFamily ->                        -- family+    Word32 ->                               -- port+    m Address+addressNewAny family port = liftIO $ do+    let family' = (fromIntegral . fromEnum) family+    result <- soup_address_new_any family' port+    checkUnexpectedReturnNULL "soup_address_new_any" result+    result' <- (wrapObject Address) result+    return result'++-- method Address::new_from_sockaddr+-- method type : Constructor+-- Args : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: +    Ptr () ->                               -- sa : TBasicType TVoid+    Int32 ->                                -- len : TBasicType TInt32+    IO (Ptr Address)+++addressNewFromSockaddr ::+    (MonadIO m) =>+    Ptr () ->                               -- sa+    Int32 ->                                -- len+    m Address+addressNewFromSockaddr sa len = liftIO $ do+    result <- soup_address_new_from_sockaddr sa len+    checkUnexpectedReturnNULL "soup_address_new_from_sockaddr" result+    result' <- (wrapObject Address) result+    return result'++-- method Address::equal_by_ip+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_equal_by_ip" soup_address_equal_by_ip :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"+    IO CInt+++addressEqualByIp ::+    (MonadIO m, AddressK a, AddressK b) =>+    a ->                                    -- _obj+    b ->                                    -- addr2+    m Bool+addressEqualByIp _obj addr2 = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let addr2' = unsafeManagedPtrCastPtr addr2+    result <- soup_address_equal_by_ip _obj' addr2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr addr2+    return result'++-- method Address::equal_by_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_equal_by_name" soup_address_equal_by_name :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"+    IO CInt+++addressEqualByName ::+    (MonadIO m, AddressK a, AddressK b) =>+    a ->                                    -- _obj+    b ->                                    -- addr2+    m Bool+addressEqualByName _obj addr2 = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let addr2' = unsafeManagedPtrCastPtr addr2+    result <- soup_address_equal_by_name _obj' addr2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr addr2+    return result'++-- method Address::get_gsockaddr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "SocketAddress"+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO (Ptr Gio.SocketAddress)+++addressGetGsockaddr ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m Gio.SocketAddress+addressGetGsockaddr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_get_gsockaddr _obj'+    checkUnexpectedReturnNULL "soup_address_get_gsockaddr" result+    result' <- (wrapObject Gio.SocketAddress) result+    touchManagedPtr _obj+    return result'++-- method Address::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_get_name" soup_address_get_name :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO CString+++addressGetName ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m T.Text+addressGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_get_name _obj'+    checkUnexpectedReturnNULL "soup_address_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Address::get_physical+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_get_physical" soup_address_get_physical :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO CString+++addressGetPhysical ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m T.Text+addressGetPhysical _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_get_physical _obj'+    checkUnexpectedReturnNULL "soup_address_get_physical" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Address::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_get_port" soup_address_get_port :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO Word32+++addressGetPort ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m Word32+addressGetPort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_get_port _obj'+    touchManagedPtr _obj+    return result++-- method Address::hash_by_ip+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_hash_by_ip" soup_address_hash_by_ip :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO Word32+++addressHashByIp ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m Word32+addressHashByIp _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_hash_by_ip _obj'+    touchManagedPtr _obj+    return result++-- method Address::hash_by_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_hash_by_name" soup_address_hash_by_name :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO Word32+++addressHashByName ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m Word32+addressHashByName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_hash_by_name _obj'+    touchManagedPtr _obj+    return result++-- method Address::is_resolved+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_is_resolved" soup_address_is_resolved :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    IO CInt+++addressIsResolved ::+    (MonadIO m, AddressK a) =>+    a ->                                    -- _obj+    m Bool+addressIsResolved _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_address_is_resolved _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Address::resolve_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_resolve_async" soup_address_resolve_async :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++addressResolveAsync ::+    (MonadIO m, AddressK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (GLib.MainContext) ->             -- async_context+    Maybe (b) ->                            -- cancellable+    AddressCallback ->                      -- callback+    m ()+addressResolveAsync _obj async_context cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeAsync_context <- case async_context of+        Nothing -> return nullPtr+        Just jAsync_context -> do+            let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context+            return jAsync_context'+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))+    callback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) callback)+    poke ptrcallback callback'+    let user_data = nullPtr+    soup_address_resolve_async _obj' maybeAsync_context maybeCancellable callback' user_data+    touchManagedPtr _obj+    whenJust async_context touchManagedPtr+    whenJust cancellable touchManagedPtr+    return ()++-- method Address::resolve_sync+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_address_resolve_sync" soup_address_resolve_sync :: +    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    IO Word32+++addressResolveSync ::+    (MonadIO m, AddressK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    m Word32+addressResolveSync _obj cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    result <- soup_address_resolve_sync _obj' maybeCancellable+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return result++
+ GI/Soup/Objects/Address.hs-boot view
@@ -0,0 +1,19 @@+module GI.Soup.Objects.Address where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Address = Address (ForeignPtr Address)+instance GObject Address where+class GObject o => AddressK o+instance (GObject o, IsDescendantOf Address o) => AddressK o+data AddressFamilyPropertyInfo+data AddressNamePropertyInfo+data AddressPhysicalPropertyInfo+data AddressPortPropertyInfo+data AddressProtocolPropertyInfo+data AddressSockaddrPropertyInfo
+ GI/Soup/Objects/Auth.hs view
@@ -0,0 +1,736 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Auth+    ( ++-- * Exported types+    Auth(..)                                ,+    AuthK                                   ,+    toAuth                                  ,+    noAuth                                  ,+++ -- * Methods+-- ** authAuthenticate+    authAuthenticate                        ,+++-- ** authGetAuthorization+    authGetAuthorization                    ,+++-- ** authGetHost+    authGetHost                             ,+++-- ** authGetInfo+    authGetInfo                             ,+++-- ** authGetProtectionSpace+    authGetProtectionSpace                  ,+++-- ** authGetRealm+    authGetRealm                            ,+++-- ** authGetSavedPassword+    authGetSavedPassword                    ,+++-- ** authGetSavedUsers+    authGetSavedUsers                       ,+++-- ** authGetSchemeName+    authGetSchemeName                       ,+++-- ** authHasSavedPassword+    authHasSavedPassword                    ,+++-- ** authIsAuthenticated+    authIsAuthenticated                     ,+++-- ** authIsForProxy+    authIsForProxy                          ,+++-- ** authIsReady+    authIsReady                             ,+++-- ** authNew+    authNew                                 ,+++-- ** authSavePassword+    authSavePassword                        ,+++-- ** authUpdate+    authUpdate                              ,+++++ -- * Properties+-- ** Host+    AuthHostPropertyInfo                    ,+    constructAuthHost                       ,+    getAuthHost                             ,+    setAuthHost                             ,+++-- ** IsAuthenticated+    AuthIsAuthenticatedPropertyInfo         ,+    getAuthIsAuthenticated                  ,+++-- ** IsForProxy+    AuthIsForProxyPropertyInfo              ,+    constructAuthIsForProxy                 ,+    getAuthIsForProxy                       ,+    setAuthIsForProxy                       ,+++-- ** Realm+    AuthRealmPropertyInfo                   ,+    constructAuthRealm                      ,+    getAuthRealm                            ,+    setAuthRealm                            ,+++-- ** SchemeName+    AuthSchemeNamePropertyInfo              ,+    getAuthSchemeName                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype Auth = Auth (ForeignPtr Auth)+foreign import ccall "soup_auth_get_type"+    c_soup_auth_get_type :: IO GType++type instance ParentTypes Auth = AuthParentTypes+type AuthParentTypes = '[GObject.Object]++instance GObject Auth where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_get_type+    ++class GObject o => AuthK o+instance (GObject o, IsDescendantOf Auth o) => AuthK o++toAuth :: AuthK o => o -> IO Auth+toAuth = unsafeCastTo Auth++noAuth :: Maybe Auth+noAuth = Nothing++-- VVV Prop "host"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text+getAuthHost obj = liftIO $ getObjectPropertyString obj "host"++setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m ()+setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" val++constructAuthHost :: T.Text -> IO ([Char], GValue)+constructAuthHost val = constructObjectPropertyString "host" val++data AuthHostPropertyInfo+instance AttrInfo AuthHostPropertyInfo where+    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK+    type AttrGetType AuthHostPropertyInfo = T.Text+    type AttrLabel AuthHostPropertyInfo = "Auth::host"+    attrGet _ = getAuthHost+    attrSet _ = setAuthHost+    attrConstruct _ = constructAuthHost++-- VVV Prop "is-authenticated"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool+getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated"++data AuthIsAuthenticatedPropertyInfo+instance AttrInfo AuthIsAuthenticatedPropertyInfo where+    type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = AuthK+    type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool+    type AttrLabel AuthIsAuthenticatedPropertyInfo = "Auth::is-authenticated"+    attrGet _ = getAuthIsAuthenticated+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "is-for-proxy"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool+getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy"++setAuthIsForProxy :: (MonadIO m, AuthK o) => o -> Bool -> m ()+setAuthIsForProxy obj val = liftIO $ setObjectPropertyBool obj "is-for-proxy" val++constructAuthIsForProxy :: Bool -> IO ([Char], GValue)+constructAuthIsForProxy val = constructObjectPropertyBool "is-for-proxy" val++data AuthIsForProxyPropertyInfo+instance AttrInfo AuthIsForProxyPropertyInfo where+    type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = AuthK+    type AttrGetType AuthIsForProxyPropertyInfo = Bool+    type AttrLabel AuthIsForProxyPropertyInfo = "Auth::is-for-proxy"+    attrGet _ = getAuthIsForProxy+    attrSet _ = setAuthIsForProxy+    attrConstruct _ = constructAuthIsForProxy++-- VVV Prop "realm"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text+getAuthRealm obj = liftIO $ getObjectPropertyString obj "realm"++setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m ()+setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" val++constructAuthRealm :: T.Text -> IO ([Char], GValue)+constructAuthRealm val = constructObjectPropertyString "realm" val++data AuthRealmPropertyInfo+instance AttrInfo AuthRealmPropertyInfo where+    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK+    type AttrGetType AuthRealmPropertyInfo = T.Text+    type AttrLabel AuthRealmPropertyInfo = "Auth::realm"+    attrGet _ = getAuthRealm+    attrSet _ = setAuthRealm+    attrConstruct _ = constructAuthRealm++-- VVV Prop "scheme-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text+getAuthSchemeName obj = liftIO $ getObjectPropertyString obj "scheme-name"++data AuthSchemeNamePropertyInfo+instance AttrInfo AuthSchemeNamePropertyInfo where+    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK+    type AttrGetType AuthSchemeNamePropertyInfo = T.Text+    type AttrLabel AuthSchemeNamePropertyInfo = "Auth::scheme-name"+    attrGet _ = getAuthSchemeName+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList Auth = AuthAttributeList+type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])++type instance SignalList Auth = AuthSignalList+type AuthSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Auth::new+-- method type : Constructor+-- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Auth"+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_new" soup_auth_new :: +    CGType ->                               -- type : TBasicType TGType+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- auth_header : TBasicType TUTF8+    IO (Ptr Auth)+++authNew ::+    (MonadIO m, MessageK a) =>+    GType ->                                -- type+    a ->                                    -- msg+    T.Text ->                               -- auth_header+    m Auth+authNew type_ msg auth_header = liftIO $ do+    let type_' = gtypeToCGType type_+    let msg' = unsafeManagedPtrCastPtr msg+    auth_header' <- textToCString auth_header+    result <- soup_auth_new type_' msg' auth_header'+    checkUnexpectedReturnNULL "soup_auth_new" result+    result' <- (wrapObject Auth) result+    touchManagedPtr msg+    freeMem auth_header'+    return result'++-- method Auth::authenticate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_authenticate" soup_auth_authenticate :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    IO ()+++authAuthenticate ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- username+    T.Text ->                               -- password+    m ()+authAuthenticate _obj username password = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    username' <- textToCString username+    password' <- textToCString password+    soup_auth_authenticate _obj' username' password'+    touchManagedPtr _obj+    freeMem username'+    freeMem password'+    return ()++-- method Auth::get_authorization+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_authorization" soup_auth_get_authorization :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CString+++authGetAuthorization ::+    (MonadIO m, AuthK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m T.Text+authGetAuthorization _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_auth_get_authorization _obj' msg'+    checkUnexpectedReturnNULL "soup_auth_get_authorization" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method Auth::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_host" soup_auth_get_host :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CString+++authGetHost ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m T.Text+authGetHost _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_get_host _obj'+    checkUnexpectedReturnNULL "soup_auth_get_host" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Auth::get_info+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_info" soup_auth_get_info :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CString+++authGetInfo ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m T.Text+authGetInfo _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_get_info _obj'+    checkUnexpectedReturnNULL "soup_auth_get_info" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Auth::get_protection_space+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_protection_space" soup_auth_get_protection_space :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    Ptr URI ->                              -- source_uri : TInterface "Soup" "URI"+    IO (Ptr (GSList CString))+++authGetProtectionSpace ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    URI ->                                  -- source_uri+    m [T.Text]+authGetProtectionSpace _obj source_uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let source_uri' = unsafeManagedPtrGetPtr source_uri+    result <- soup_auth_get_protection_space _obj' source_uri'+    checkUnexpectedReturnNULL "soup_auth_get_protection_space" result+    result' <- unpackGSList result+    result'' <- mapM cstringToText result'+    mapGSList freeMem result+    g_slist_free result+    touchManagedPtr _obj+    touchManagedPtr source_uri+    return result''++-- method Auth::get_realm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_realm" soup_auth_get_realm :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CString+++authGetRealm ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m T.Text+authGetRealm _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_get_realm _obj'+    checkUnexpectedReturnNULL "soup_auth_get_realm" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Auth::get_saved_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_saved_password" soup_auth_get_saved_password :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    CString ->                              -- user : TBasicType TUTF8+    IO CString+++authGetSavedPassword ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- user+    m T.Text+authGetSavedPassword _obj user = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    user' <- textToCString user+    result <- soup_auth_get_saved_password _obj' user'+    checkUnexpectedReturnNULL "soup_auth_get_saved_password" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem user'+    return result'++-- method Auth::get_saved_users+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_saved_users" soup_auth_get_saved_users :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO (Ptr (GSList CString))+++authGetSavedUsers ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m [T.Text]+authGetSavedUsers _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_get_saved_users _obj'+    checkUnexpectedReturnNULL "soup_auth_get_saved_users" result+    result' <- unpackGSList result+    result'' <- mapM cstringToText result'+    mapGSList freeMem result+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method Auth::get_scheme_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_get_scheme_name" soup_auth_get_scheme_name :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CString+++authGetSchemeName ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m T.Text+authGetSchemeName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_get_scheme_name _obj'+    checkUnexpectedReturnNULL "soup_auth_get_scheme_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Auth::has_saved_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_has_saved_password" soup_auth_has_saved_password :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    IO ()+++authHasSavedPassword ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- username+    T.Text ->                               -- password+    m ()+authHasSavedPassword _obj username password = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    username' <- textToCString username+    password' <- textToCString password+    soup_auth_has_saved_password _obj' username' password'+    touchManagedPtr _obj+    freeMem username'+    freeMem password'+    return ()++-- method Auth::is_authenticated+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_is_authenticated" soup_auth_is_authenticated :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CInt+++authIsAuthenticated ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m Bool+authIsAuthenticated _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_is_authenticated _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Auth::is_for_proxy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_is_for_proxy" soup_auth_is_for_proxy :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    IO CInt+++authIsForProxy ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    m Bool+authIsForProxy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_is_for_proxy _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Auth::is_ready+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_is_ready" soup_auth_is_ready :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CInt+++authIsReady ::+    (MonadIO m, AuthK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Bool+authIsReady _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_auth_is_ready _obj' msg'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method Auth::save_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_save_password" soup_auth_save_password :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    IO ()+++authSavePassword ::+    (MonadIO m, AuthK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- username+    T.Text ->                               -- password+    m ()+authSavePassword _obj username password = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    username' <- textToCString username+    password' <- textToCString password+    soup_auth_save_password _obj' username' password'+    touchManagedPtr _obj+    freeMem username'+    freeMem password'+    return ()++-- method Auth::update+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_update" soup_auth_update :: +    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- auth_header : TBasicType TUTF8+    IO CInt+++authUpdate ::+    (MonadIO m, AuthK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    T.Text ->                               -- auth_header+    m Bool+authUpdate _obj msg auth_header = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    auth_header' <- textToCString auth_header+    result <- soup_auth_update _obj' msg' auth_header'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    freeMem auth_header'+    return result'++
+ GI/Soup/Objects/Auth.hs-boot view
@@ -0,0 +1,18 @@+module GI.Soup.Objects.Auth where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Auth = Auth (ForeignPtr Auth)+instance GObject Auth where+class GObject o => AuthK o+instance (GObject o, IsDescendantOf Auth o) => AuthK o+data AuthHostPropertyInfo+data AuthIsAuthenticatedPropertyInfo+data AuthIsForProxyPropertyInfo+data AuthRealmPropertyInfo+data AuthSchemeNamePropertyInfo
+ GI/Soup/Objects/AuthBasic.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthBasic+    ( ++-- * Exported types+    AuthBasic(..)                           ,+    AuthBasicK                              ,+    toAuthBasic                             ,+    noAuthBasic                             ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic)+foreign import ccall "soup_auth_basic_get_type"+    c_soup_auth_basic_get_type :: IO GType++type instance ParentTypes AuthBasic = AuthBasicParentTypes+type AuthBasicParentTypes = '[Auth, GObject.Object]++instance GObject AuthBasic where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_basic_get_type+    ++class GObject o => AuthBasicK o+instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o++toAuthBasic :: AuthBasicK o => o -> IO AuthBasic+toAuthBasic = unsafeCastTo AuthBasic++noAuthBasic :: Maybe AuthBasic+noAuthBasic = Nothing++type instance AttributeList AuthBasic = AuthBasicAttributeList+type AuthBasicAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthBasic = AuthBasicSignalList+type AuthBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/AuthBasic.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.AuthBasic where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic)+instance GObject AuthBasic where+class GObject o => AuthBasicK o+instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o
+ GI/Soup/Objects/AuthDigest.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthDigest+    ( ++-- * Exported types+    AuthDigest(..)                          ,+    AuthDigestK                             ,+    toAuthDigest                            ,+    noAuthDigest                            ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest)+foreign import ccall "soup_auth_digest_get_type"+    c_soup_auth_digest_get_type :: IO GType++type instance ParentTypes AuthDigest = AuthDigestParentTypes+type AuthDigestParentTypes = '[Auth, GObject.Object]++instance GObject AuthDigest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_digest_get_type+    ++class GObject o => AuthDigestK o+instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o++toAuthDigest :: AuthDigestK o => o -> IO AuthDigest+toAuthDigest = unsafeCastTo AuthDigest++noAuthDigest :: Maybe AuthDigest+noAuthDigest = Nothing++type instance AttributeList AuthDigest = AuthDigestAttributeList+type AuthDigestAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthDigest = AuthDigestSignalList+type AuthDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/AuthDigest.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.AuthDigest where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest)+instance GObject AuthDigest where+class GObject o => AuthDigestK o+instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o
+ GI/Soup/Objects/AuthDomain.hs view
@@ -0,0 +1,709 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthDomain+    ( ++-- * Exported types+    AuthDomain(..)                          ,+    AuthDomainK                             ,+    toAuthDomain                            ,+    noAuthDomain                            ,+++ -- * Methods+-- ** authDomainAccepts+    authDomainAccepts                       ,+++-- ** authDomainAddPath+    authDomainAddPath                       ,+++-- ** authDomainBasicSetAuthCallback+    authDomainBasicSetAuthCallback          ,+++-- ** authDomainChallenge+    authDomainChallenge                     ,+++-- ** authDomainCheckPassword+    authDomainCheckPassword                 ,+++-- ** authDomainCovers+    authDomainCovers                        ,+++-- ** authDomainDigestSetAuthCallback+    authDomainDigestSetAuthCallback         ,+++-- ** authDomainGetRealm+    authDomainGetRealm                      ,+++-- ** authDomainRemovePath+    authDomainRemovePath                    ,+++-- ** authDomainSetFilter+    authDomainSetFilter                     ,+++-- ** authDomainSetGenericAuthCallback+    authDomainSetGenericAuthCallback        ,+++-- ** authDomainTryGenericAuthCallback+    authDomainTryGenericAuthCallback        ,+++++ -- * Properties+-- ** AddPath+    AuthDomainAddPathPropertyInfo           ,+    constructAuthDomainAddPath              ,+    setAuthDomainAddPath                    ,+++-- ** Filter+    AuthDomainFilterPropertyInfo            ,+    constructAuthDomainFilter               ,+    getAuthDomainFilter                     ,+    setAuthDomainFilter                     ,+++-- ** FilterData+    AuthDomainFilterDataPropertyInfo        ,+    constructAuthDomainFilterData           ,+    getAuthDomainFilterData                 ,+    setAuthDomainFilterData                 ,+++-- ** GenericAuthCallback+    AuthDomainGenericAuthCallbackPropertyInfo,+    constructAuthDomainGenericAuthCallback  ,+    getAuthDomainGenericAuthCallback        ,+    setAuthDomainGenericAuthCallback        ,+++-- ** GenericAuthData+    AuthDomainGenericAuthDataPropertyInfo   ,+    constructAuthDomainGenericAuthData      ,+    getAuthDomainGenericAuthData            ,+    setAuthDomainGenericAuthData            ,+++-- ** Proxy+    AuthDomainProxyPropertyInfo             ,+    constructAuthDomainProxy                ,+    getAuthDomainProxy                      ,+++-- ** Realm+    AuthDomainRealmPropertyInfo             ,+    constructAuthDomainRealm                ,+    getAuthDomainRealm                      ,+++-- ** RemovePath+    AuthDomainRemovePathPropertyInfo        ,+    constructAuthDomainRemovePath           ,+    setAuthDomainRemovePath                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject++newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain)+foreign import ccall "soup_auth_domain_get_type"+    c_soup_auth_domain_get_type :: IO GType++type instance ParentTypes AuthDomain = AuthDomainParentTypes+type AuthDomainParentTypes = '[GObject.Object]++instance GObject AuthDomain where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_domain_get_type+    ++class GObject o => AuthDomainK o+instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o++toAuthDomain :: AuthDomainK o => o -> IO AuthDomain+toAuthDomain = unsafeCastTo AuthDomain++noAuthDomain :: Maybe AuthDomain+noAuthDomain = Nothing++-- VVV Prop "add-path"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyWritable]++setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()+setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" val++constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue)+constructAuthDomainAddPath val = constructObjectPropertyString "add-path" val++data AuthDomainAddPathPropertyInfo+instance AttrInfo AuthDomainAddPathPropertyInfo where+    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainAddPathPropertyInfo = ()+    type AttrLabel AuthDomainAddPathPropertyInfo = "AuthDomain::add-path"+    attrGet _ = undefined+    attrSet _ = setAuthDomainAddPath+    attrConstruct _ = constructAuthDomainAddPath++-- VVV Prop "filter"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())+getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter"++setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val++constructAuthDomainFilter :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val++data AuthDomainFilterPropertyInfo+instance AttrInfo AuthDomainFilterPropertyInfo where+    type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainFilterPropertyInfo = "AuthDomain::filter"+    attrGet _ = getAuthDomainFilter+    attrSet _ = setAuthDomainFilter+    attrConstruct _ = constructAuthDomainFilter++-- VVV Prop "filter-data"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())+getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data"++setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val++constructAuthDomainFilterData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val++data AuthDomainFilterDataPropertyInfo+instance AttrInfo AuthDomainFilterDataPropertyInfo where+    type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainFilterDataPropertyInfo = "AuthDomain::filter-data"+    attrGet _ = getAuthDomainFilterData+    attrSet _ = setAuthDomainFilterData+    attrConstruct _ = constructAuthDomainFilterData++-- VVV Prop "generic-auth-callback"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())+getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback"++setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val++constructAuthDomainGenericAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val++data AuthDomainGenericAuthCallbackPropertyInfo+instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where+    type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "AuthDomain::generic-auth-callback"+    attrGet _ = getAuthDomainGenericAuthCallback+    attrSet _ = setAuthDomainGenericAuthCallback+    attrConstruct _ = constructAuthDomainGenericAuthCallback++-- VVV Prop "generic-auth-data"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())+getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data"++setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val++constructAuthDomainGenericAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val++data AuthDomainGenericAuthDataPropertyInfo+instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where+    type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "AuthDomain::generic-auth-data"+    attrGet _ = getAuthDomainGenericAuthData+    attrSet _ = setAuthDomainGenericAuthData+    attrConstruct _ = constructAuthDomainGenericAuthData++-- VVV Prop "proxy"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool+getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy"++constructAuthDomainProxy :: Bool -> IO ([Char], GValue)+constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val++data AuthDomainProxyPropertyInfo+instance AttrInfo AuthDomainProxyPropertyInfo where+    type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainProxyPropertyInfo = Bool+    type AttrLabel AuthDomainProxyPropertyInfo = "AuthDomain::proxy"+    attrGet _ = getAuthDomainProxy+    attrSet _ = undefined+    attrConstruct _ = constructAuthDomainProxy++-- VVV Prop "realm"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text+getAuthDomainRealm obj = liftIO $ getObjectPropertyString obj "realm"++constructAuthDomainRealm :: T.Text -> IO ([Char], GValue)+constructAuthDomainRealm val = constructObjectPropertyString "realm" val++data AuthDomainRealmPropertyInfo+instance AttrInfo AuthDomainRealmPropertyInfo where+    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainRealmPropertyInfo = T.Text+    type AttrLabel AuthDomainRealmPropertyInfo = "AuthDomain::realm"+    attrGet _ = getAuthDomainRealm+    attrSet _ = undefined+    attrConstruct _ = constructAuthDomainRealm++-- VVV Prop "remove-path"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyWritable]++setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()+setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" val++constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue)+constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" val++data AuthDomainRemovePathPropertyInfo+instance AttrInfo AuthDomainRemovePathPropertyInfo where+    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK+    type AttrGetType AuthDomainRemovePathPropertyInfo = ()+    type AttrLabel AuthDomainRemovePathPropertyInfo = "AuthDomain::remove-path"+    attrGet _ = undefined+    attrSet _ = setAuthDomainRemovePath+    attrConstruct _ = constructAuthDomainRemovePath++type instance AttributeList AuthDomain = AuthDomainAttributeList+type AuthDomainAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthDomain = AuthDomainSignalList+type AuthDomainSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method AuthDomain::accepts+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CString+++authDomainAccepts ::+    (MonadIO m, AuthDomainK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m T.Text+authDomainAccepts _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_auth_domain_accepts _obj' msg'+    checkUnexpectedReturnNULL "soup_auth_domain_accepts" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method AuthDomain::add_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_add_path" soup_auth_domain_add_path :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++authDomainAddPath ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- path+    m ()+authDomainAddPath _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    path' <- textToCString path+    soup_auth_domain_add_path _obj' path'+    touchManagedPtr _obj+    freeMem path'+    return ()++-- method AuthDomain::basic_set_auth_callback+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    FunPtr AuthDomainBasicAuthCallbackC ->  -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"+    IO ()+++authDomainBasicSetAuthCallback ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    AuthDomainBasicAuthCallback ->          -- callback+    m ()+authDomainBasicSetAuthCallback _obj callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback)+    let user_data = castFunPtrToPtr callback'+    let dnotify = safeFreeFunPtrPtr+    soup_auth_domain_basic_set_auth_callback _obj' callback' user_data dnotify+    touchManagedPtr _obj+    return ()++-- method AuthDomain::challenge+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++authDomainChallenge ::+    (MonadIO m, AuthDomainK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+authDomainChallenge _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_auth_domain_challenge _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method AuthDomain::check_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_check_password" soup_auth_domain_check_password :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    IO CInt+++authDomainCheckPassword ::+    (MonadIO m, AuthDomainK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    T.Text ->                               -- username+    T.Text ->                               -- password+    m Bool+authDomainCheckPassword _obj msg username password = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    username' <- textToCString username+    password' <- textToCString password+    result <- soup_auth_domain_check_password _obj' msg' username' password'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    freeMem username'+    freeMem password'+    return result'++-- method AuthDomain::covers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CInt+++authDomainCovers ::+    (MonadIO m, AuthDomainK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Bool+authDomainCovers _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_auth_domain_covers _obj' msg'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method AuthDomain::digest_set_auth_callback+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"+    IO ()+++authDomainDigestSetAuthCallback ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    AuthDomainDigestAuthCallback ->         -- callback+    m ()+authDomainDigestSetAuthCallback _obj callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback)+    let user_data = castFunPtrToPtr callback'+    let dnotify = safeFreeFunPtrPtr+    soup_auth_domain_digest_set_auth_callback _obj' callback' user_data dnotify+    touchManagedPtr _obj+    return ()++-- method AuthDomain::get_realm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    IO CString+++authDomainGetRealm ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    m T.Text+authDomainGetRealm _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_auth_domain_get_realm _obj'+    checkUnexpectedReturnNULL "soup_auth_domain_get_realm" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method AuthDomain::remove_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_remove_path" soup_auth_domain_remove_path :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++authDomainRemovePath ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- path+    m ()+authDomainRemovePath _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    path' <- textToCString path+    soup_auth_domain_remove_path _obj' path'+    touchManagedPtr _obj+    freeMem path'+    return ()++-- method AuthDomain::set_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    FunPtr AuthDomainFilterC ->             -- filter : TInterface "Soup" "AuthDomainFilter"+    Ptr () ->                               -- filter_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"+    IO ()+++authDomainSetFilter ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    AuthDomainFilter ->                     -- filter+    m ()+authDomainSetFilter _obj filter = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter)+    let filter_data = castFunPtrToPtr filter'+    let dnotify = safeFreeFunPtrPtr+    soup_auth_domain_set_filter _obj' filter' filter_data dnotify+    touchManagedPtr _obj+    return ()++-- method AuthDomain::set_generic_auth_callback+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "auth_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback"+    Ptr () ->                               -- auth_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"+    IO ()+++authDomainSetGenericAuthCallback ::+    (MonadIO m, AuthDomainK a) =>+    a ->                                    -- _obj+    AuthDomainGenericAuthCallback ->        -- auth_callback+    m ()+authDomainSetGenericAuthCallback _obj auth_callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    auth_callback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing auth_callback)+    let auth_data = castFunPtrToPtr auth_callback'+    let dnotify = safeFreeFunPtrPtr+    soup_auth_domain_set_generic_auth_callback _obj' auth_callback' auth_data dnotify+    touchManagedPtr _obj+    return ()++-- method AuthDomain::try_generic_auth_callback+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback :: +    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- username : TBasicType TUTF8+    IO CInt+++authDomainTryGenericAuthCallback ::+    (MonadIO m, AuthDomainK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    T.Text ->                               -- username+    m Bool+authDomainTryGenericAuthCallback _obj msg username = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    username' <- textToCString username+    result <- soup_auth_domain_try_generic_auth_callback _obj' msg' username'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    freeMem username'+    return result'++
+ GI/Soup/Objects/AuthDomain.hs-boot view
@@ -0,0 +1,21 @@+module GI.Soup.Objects.AuthDomain where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain)+instance GObject AuthDomain where+class GObject o => AuthDomainK o+instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o+data AuthDomainAddPathPropertyInfo+data AuthDomainFilterPropertyInfo+data AuthDomainFilterDataPropertyInfo+data AuthDomainGenericAuthCallbackPropertyInfo+data AuthDomainGenericAuthDataPropertyInfo+data AuthDomainProxyPropertyInfo+data AuthDomainRealmPropertyInfo+data AuthDomainRemovePathPropertyInfo
+ GI/Soup/Objects/AuthDomainBasic.hs view
@@ -0,0 +1,123 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthDomainBasic+    ( ++-- * Exported types+    AuthDomainBasic(..)                     ,+    AuthDomainBasicK                        ,+    toAuthDomainBasic                       ,+    noAuthDomainBasic                       ,+++ -- * Properties+-- ** AuthCallback+    AuthDomainBasicAuthCallbackPropertyInfo ,+    constructAuthDomainBasicAuthCallback    ,+    getAuthDomainBasicAuthCallback          ,+    setAuthDomainBasicAuthCallback          ,+++-- ** AuthData+    AuthDomainBasicAuthDataPropertyInfo     ,+    constructAuthDomainBasicAuthData        ,+    getAuthDomainBasicAuthData              ,+    setAuthDomainBasicAuthData              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic)+foreign import ccall "soup_auth_domain_basic_get_type"+    c_soup_auth_domain_basic_get_type :: IO GType++type instance ParentTypes AuthDomainBasic = AuthDomainBasicParentTypes+type AuthDomainBasicParentTypes = '[AuthDomain, GObject.Object]++instance GObject AuthDomainBasic where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_domain_basic_get_type+    ++class GObject o => AuthDomainBasicK o+instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o++toAuthDomainBasic :: AuthDomainBasicK o => o -> IO AuthDomainBasic+toAuthDomainBasic = unsafeCastTo AuthDomainBasic++noAuthDomainBasic :: Maybe AuthDomainBasic+noAuthDomainBasic = Nothing++-- VVV Prop "auth-callback"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())+getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"++setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()+setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val++constructAuthDomainBasicAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val++data AuthDomainBasicAuthCallbackPropertyInfo+instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where+    type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasicK+    type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "AuthDomainBasic::auth-callback"+    attrGet _ = getAuthDomainBasicAuthCallback+    attrSet _ = setAuthDomainBasicAuthCallback+    attrConstruct _ = constructAuthDomainBasicAuthCallback++-- VVV Prop "auth-data"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())+getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"++setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()+setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val++constructAuthDomainBasicAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val++data AuthDomainBasicAuthDataPropertyInfo+instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where+    type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasicK+    type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "AuthDomainBasic::auth-data"+    attrGet _ = getAuthDomainBasicAuthData+    attrSet _ = setAuthDomainBasicAuthData+    attrConstruct _ = constructAuthDomainBasicAuthData++type instance AttributeList AuthDomainBasic = AuthDomainBasicAttributeList+type AuthDomainBasicAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainBasicAuthCallbackPropertyInfo), '("auth-data", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthDomainBasic = AuthDomainBasicSignalList+type AuthDomainBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/AuthDomainBasic.hs-boot view
@@ -0,0 +1,15 @@+module GI.Soup.Objects.AuthDomainBasic where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic)+instance GObject AuthDomainBasic where+class GObject o => AuthDomainBasicK o+instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o+data AuthDomainBasicAuthCallbackPropertyInfo+data AuthDomainBasicAuthDataPropertyInfo
+ GI/Soup/Objects/AuthDomainDigest.hs view
@@ -0,0 +1,165 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthDomainDigest+    ( ++-- * Exported types+    AuthDomainDigest(..)                    ,+    AuthDomainDigestK                       ,+    toAuthDomainDigest                      ,+    noAuthDomainDigest                      ,+++ -- * Methods+-- ** authDomainDigestEncodePassword+    authDomainDigestEncodePassword          ,+++++ -- * Properties+-- ** AuthCallback+    AuthDomainDigestAuthCallbackPropertyInfo,+    constructAuthDomainDigestAuthCallback   ,+    getAuthDomainDigestAuthCallback         ,+    setAuthDomainDigestAuthCallback         ,+++-- ** AuthData+    AuthDomainDigestAuthDataPropertyInfo    ,+    constructAuthDomainDigestAuthData       ,+    getAuthDomainDigestAuthData             ,+    setAuthDomainDigestAuthData             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest)+foreign import ccall "soup_auth_domain_digest_get_type"+    c_soup_auth_domain_digest_get_type :: IO GType++type instance ParentTypes AuthDomainDigest = AuthDomainDigestParentTypes+type AuthDomainDigestParentTypes = '[AuthDomain, GObject.Object]++instance GObject AuthDomainDigest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_domain_digest_get_type+    ++class GObject o => AuthDomainDigestK o+instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o++toAuthDomainDigest :: AuthDomainDigestK o => o -> IO AuthDomainDigest+toAuthDomainDigest = unsafeCastTo AuthDomainDigest++noAuthDomainDigest :: Maybe AuthDomainDigest+noAuthDomainDigest = Nothing++-- VVV Prop "auth-callback"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())+getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"++setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()+setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val++constructAuthDomainDigestAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val++data AuthDomainDigestAuthCallbackPropertyInfo+instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where+    type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigestK+    type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "AuthDomainDigest::auth-callback"+    attrGet _ = getAuthDomainDigestAuthCallback+    attrSet _ = setAuthDomainDigestAuthCallback+    attrConstruct _ = constructAuthDomainDigestAuthCallback++-- VVV Prop "auth-data"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())+getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"++setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()+setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val++constructAuthDomainDigestAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val++data AuthDomainDigestAuthDataPropertyInfo+instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where+    type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigestK+    type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ())+    type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "AuthDomainDigest::auth-data"+    attrGet _ = getAuthDomainDigestAuthData+    attrSet _ = setAuthDomainDigestAuthData+    attrConstruct _ = constructAuthDomainDigestAuthData++type instance AttributeList AuthDomainDigest = AuthDomainDigestAttributeList+type AuthDomainDigestAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainDigestAuthCallbackPropertyInfo), '("auth-data", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthDomainDigest = AuthDomainDigestSignalList+type AuthDomainDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method AuthDomainDigest::encode_password+-- method type : MemberFunction+-- Args : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password :: +    CString ->                              -- username : TBasicType TUTF8+    CString ->                              -- realm : TBasicType TUTF8+    CString ->                              -- password : TBasicType TUTF8+    IO CString+++authDomainDigestEncodePassword ::+    (MonadIO m) =>+    T.Text ->                               -- username+    T.Text ->                               -- realm+    T.Text ->                               -- password+    m T.Text+authDomainDigestEncodePassword username realm password = liftIO $ do+    username' <- textToCString username+    realm' <- textToCString realm+    password' <- textToCString password+    result <- soup_auth_domain_digest_encode_password username' realm' password'+    checkUnexpectedReturnNULL "soup_auth_domain_digest_encode_password" result+    result' <- cstringToText result+    freeMem result+    freeMem username'+    freeMem realm'+    freeMem password'+    return result'++
+ GI/Soup/Objects/AuthDomainDigest.hs-boot view
@@ -0,0 +1,15 @@+module GI.Soup.Objects.AuthDomainDigest where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest)+instance GObject AuthDomainDigest where+class GObject o => AuthDomainDigestK o+instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o+data AuthDomainDigestAuthCallbackPropertyInfo+data AuthDomainDigestAuthDataPropertyInfo
+ GI/Soup/Objects/AuthManager.hs view
@@ -0,0 +1,167 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthManager+    ( ++-- * Exported types+    AuthManager(..)                         ,+    AuthManagerK                            ,+    toAuthManager                           ,+    noAuthManager                           ,+++ -- * Methods+-- ** authManagerUseAuth+    authManagerUseAuth                      ,+++++ -- * Signals+-- ** Authenticate+    AuthManagerAuthenticateCallback         ,+    AuthManagerAuthenticateCallbackC        ,+    AuthManagerAuthenticateSignalInfo       ,+    afterAuthManagerAuthenticate            ,+    authManagerAuthenticateCallbackWrapper  ,+    authManagerAuthenticateClosure          ,+    mkAuthManagerAuthenticateCallback       ,+    noAuthManagerAuthenticateCallback       ,+    onAuthManagerAuthenticate               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthManager = AuthManager (ForeignPtr AuthManager)+foreign import ccall "soup_auth_manager_get_type"+    c_soup_auth_manager_get_type :: IO GType++type instance ParentTypes AuthManager = AuthManagerParentTypes+type AuthManagerParentTypes = '[GObject.Object, SessionFeature]++instance GObject AuthManager where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_manager_get_type+    ++class GObject o => AuthManagerK o+instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o++toAuthManager :: AuthManagerK o => o -> IO AuthManager+toAuthManager = unsafeCastTo AuthManager++noAuthManager :: Maybe AuthManager+noAuthManager = Nothing++-- signal AuthManager::authenticate+type AuthManagerAuthenticateCallback =+    Message ->+    Auth ->+    Bool ->+    IO ()++noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback+noAuthManagerAuthenticateCallback = Nothing++type AuthManagerAuthenticateCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkAuthManagerAuthenticateCallback :: AuthManagerAuthenticateCallbackC -> IO (FunPtr AuthManagerAuthenticateCallbackC)++authManagerAuthenticateClosure :: AuthManagerAuthenticateCallback -> IO Closure+authManagerAuthenticateClosure cb = newCClosure =<< mkAuthManagerAuthenticateCallback wrapped+    where wrapped = authManagerAuthenticateCallbackWrapper cb++authManagerAuthenticateCallbackWrapper ::+    AuthManagerAuthenticateCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->+    IO ()+authManagerAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do+    msg' <- (newObject Message) msg+    auth' <- (newObject Auth) auth+    let retrying' = (/= 0) retrying+    _cb  msg' auth' retrying'++onAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId+onAuthManagerAuthenticate obj cb = liftIO $ connectAuthManagerAuthenticate obj cb SignalConnectBefore+afterAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId+afterAuthManagerAuthenticate obj cb = connectAuthManagerAuthenticate obj cb SignalConnectAfter++connectAuthManagerAuthenticate :: (GObject a, MonadIO m) =>+                                  a -> AuthManagerAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId+connectAuthManagerAuthenticate obj cb after = liftIO $ do+    cb' <- mkAuthManagerAuthenticateCallback (authManagerAuthenticateCallbackWrapper cb)+    connectSignalFunPtr obj "authenticate" cb' after++type instance AttributeList AuthManager = AuthManagerAttributeList+type AuthManagerAttributeList = ('[ ] :: [(Symbol, *)])++data AuthManagerAuthenticateSignalInfo+instance SignalInfo AuthManagerAuthenticateSignalInfo where+    type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback+    connectSignal _ = connectAuthManagerAuthenticate++type instance SignalList AuthManager = AuthManagerSignalList+type AuthManagerSignalList = ('[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method AuthManager::use_auth+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_auth_manager_use_auth" soup_auth_manager_use_auth :: +    Ptr AuthManager ->                      -- _obj : TInterface "Soup" "AuthManager"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"+    IO ()+++authManagerUseAuth ::+    (MonadIO m, AuthManagerK a, AuthK b) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    b ->                                    -- auth+    m ()+authManagerUseAuth _obj uri auth = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    let auth' = unsafeManagedPtrCastPtr auth+    soup_auth_manager_use_auth _obj' uri' auth'+    touchManagedPtr _obj+    touchManagedPtr uri+    touchManagedPtr auth+    return ()++
+ GI/Soup/Objects/AuthManager.hs-boot view
@@ -0,0 +1,14 @@+module GI.Soup.Objects.AuthManager where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthManager = AuthManager (ForeignPtr AuthManager)+instance GObject AuthManager where+class GObject o => AuthManagerK o+instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o+data AuthManagerAuthenticateSignalInfo
+ GI/Soup/Objects/AuthNTLM.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.AuthNTLM+    ( ++-- * Exported types+    AuthNTLM(..)                            ,+    AuthNTLMK                               ,+    toAuthNTLM                              ,+    noAuthNTLM                              ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM)+foreign import ccall "soup_auth_ntlm_get_type"+    c_soup_auth_ntlm_get_type :: IO GType++type instance ParentTypes AuthNTLM = AuthNTLMParentTypes+type AuthNTLMParentTypes = '[Auth, GObject.Object]++instance GObject AuthNTLM where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_auth_ntlm_get_type+    ++class GObject o => AuthNTLMK o+instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o++toAuthNTLM :: AuthNTLMK o => o -> IO AuthNTLM+toAuthNTLM = unsafeCastTo AuthNTLM++noAuthNTLM :: Maybe AuthNTLM+noAuthNTLM = Nothing++type instance AttributeList AuthNTLM = AuthNTLMAttributeList+type AuthNTLMAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])++type instance SignalList AuthNTLM = AuthNTLMSignalList+type AuthNTLMSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/AuthNTLM.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.AuthNTLM where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM)+instance GObject AuthNTLM where+class GObject o => AuthNTLMK o+instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o
+ GI/Soup/Objects/Cache.hs view
@@ -0,0 +1,321 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Cache+    ( ++-- * Exported types+    Cache(..)                               ,+    CacheK                                  ,+    toCache                                 ,+    noCache                                 ,+++ -- * Methods+-- ** cacheClear+    cacheClear                              ,+++-- ** cacheDump+    cacheDump                               ,+++-- ** cacheFlush+    cacheFlush                              ,+++-- ** cacheGetMaxSize+    cacheGetMaxSize                         ,+++-- ** cacheLoad+    cacheLoad                               ,+++-- ** cacheNew+    cacheNew                                ,+++-- ** cacheSetMaxSize+    cacheSetMaxSize                         ,+++++ -- * Properties+-- ** CacheDir+    CacheCacheDirPropertyInfo               ,+    constructCacheCacheDir                  ,+    getCacheCacheDir                        ,+++-- ** CacheType+    CacheCacheTypePropertyInfo              ,+    constructCacheCacheType                 ,+    getCacheCacheType                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype Cache = Cache (ForeignPtr Cache)+foreign import ccall "soup_cache_get_type"+    c_soup_cache_get_type :: IO GType++type instance ParentTypes Cache = CacheParentTypes+type CacheParentTypes = '[GObject.Object, SessionFeature]++instance GObject Cache where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_cache_get_type+    ++class GObject o => CacheK o+instance (GObject o, IsDescendantOf Cache o) => CacheK o++toCache :: CacheK o => o -> IO Cache+toCache = unsafeCastTo Cache++noCache :: Maybe Cache+noCache = Nothing++-- VVV Prop "cache-dir"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m T.Text+getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir"++constructCacheCacheDir :: T.Text -> IO ([Char], GValue)+constructCacheCacheDir val = constructObjectPropertyString "cache-dir" val++data CacheCacheDirPropertyInfo+instance AttrInfo CacheCacheDirPropertyInfo where+    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK+    type AttrGetType CacheCacheDirPropertyInfo = T.Text+    type AttrLabel CacheCacheDirPropertyInfo = "Cache::cache-dir"+    attrGet _ = getCacheCacheDir+    attrSet _ = undefined+    attrConstruct _ = constructCacheCacheDir++-- VVV Prop "cache-type"+   -- Type: TInterface "Soup" "CacheType"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType+getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type"++constructCacheCacheType :: CacheType -> IO ([Char], GValue)+constructCacheCacheType val = constructObjectPropertyEnum "cache-type" val++data CacheCacheTypePropertyInfo+instance AttrInfo CacheCacheTypePropertyInfo where+    type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) CacheType+    type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = CacheK+    type AttrGetType CacheCacheTypePropertyInfo = CacheType+    type AttrLabel CacheCacheTypePropertyInfo = "Cache::cache-type"+    attrGet _ = getCacheCacheType+    attrSet _ = undefined+    attrConstruct _ = constructCacheCacheType++type instance AttributeList Cache = CacheAttributeList+type CacheAttributeList = ('[ '("cache-dir", CacheCacheDirPropertyInfo), '("cache-type", CacheCacheTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList Cache = CacheSignalList+type CacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Cache::new+-- method type : Constructor+-- Args : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Cache"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_new" soup_cache_new :: +    CString ->                              -- cache_dir : TBasicType TUTF8+    CUInt ->                                -- cache_type : TInterface "Soup" "CacheType"+    IO (Ptr Cache)+++cacheNew ::+    (MonadIO m) =>+    T.Text ->                               -- cache_dir+    CacheType ->                            -- cache_type+    m Cache+cacheNew cache_dir cache_type = liftIO $ do+    cache_dir' <- textToCString cache_dir+    let cache_type' = (fromIntegral . fromEnum) cache_type+    result <- soup_cache_new cache_dir' cache_type'+    checkUnexpectedReturnNULL "soup_cache_new" result+    result' <- (wrapObject Cache) result+    freeMem cache_dir'+    return result'++-- method Cache::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_clear" soup_cache_clear :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    IO ()+++cacheClear ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    m ()+cacheClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cache_clear _obj'+    touchManagedPtr _obj+    return ()++-- method Cache::dump+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_dump" soup_cache_dump :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    IO ()+++cacheDump ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    m ()+cacheDump _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cache_dump _obj'+    touchManagedPtr _obj+    return ()++-- method Cache::flush+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_flush" soup_cache_flush :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    IO ()+++cacheFlush ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    m ()+cacheFlush _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cache_flush _obj'+    touchManagedPtr _obj+    return ()++-- method Cache::get_max_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_get_max_size" soup_cache_get_max_size :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    IO Word32+++cacheGetMaxSize ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    m Word32+cacheGetMaxSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_cache_get_max_size _obj'+    touchManagedPtr _obj+    return result++-- method Cache::load+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_load" soup_cache_load :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    IO ()+++cacheLoad ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    m ()+cacheLoad _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cache_load _obj'+    touchManagedPtr _obj+    return ()++-- method Cache::set_max_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size :: +    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"+    Word32 ->                               -- max_size : TBasicType TUInt32+    IO ()+++cacheSetMaxSize ::+    (MonadIO m, CacheK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- max_size+    m ()+cacheSetMaxSize _obj max_size = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cache_set_max_size _obj' max_size+    touchManagedPtr _obj+    return ()++
+ GI/Soup/Objects/Cache.hs-boot view
@@ -0,0 +1,15 @@+module GI.Soup.Objects.Cache where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Cache = Cache (ForeignPtr Cache)+instance GObject Cache where+class GObject o => CacheK o+instance (GObject o, IsDescendantOf Cache o) => CacheK o+data CacheCacheDirPropertyInfo+data CacheCacheTypePropertyInfo
+ GI/Soup/Objects/ContentDecoder.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.ContentDecoder+    ( ++-- * Exported types+    ContentDecoder(..)                      ,+    ContentDecoderK                         ,+    toContentDecoder                        ,+    noContentDecoder                        ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder)+foreign import ccall "soup_content_decoder_get_type"+    c_soup_content_decoder_get_type :: IO GType++type instance ParentTypes ContentDecoder = ContentDecoderParentTypes+type ContentDecoderParentTypes = '[GObject.Object, SessionFeature]++instance GObject ContentDecoder where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_content_decoder_get_type+    ++class GObject o => ContentDecoderK o+instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o++toContentDecoder :: ContentDecoderK o => o -> IO ContentDecoder+toContentDecoder = unsafeCastTo ContentDecoder++noContentDecoder :: Maybe ContentDecoder+noContentDecoder = Nothing++type instance AttributeList ContentDecoder = ContentDecoderAttributeList+type ContentDecoderAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContentDecoder = ContentDecoderSignalList+type ContentDecoderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/ContentDecoder.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.ContentDecoder where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder)+instance GObject ContentDecoder where+class GObject o => ContentDecoderK o+instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o
+ GI/Soup/Objects/ContentSniffer.hs view
@@ -0,0 +1,165 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.ContentSniffer+    ( ++-- * Exported types+    ContentSniffer(..)                      ,+    ContentSnifferK                         ,+    toContentSniffer                        ,+    noContentSniffer                        ,+++ -- * Methods+-- ** contentSnifferGetBufferSize+    contentSnifferGetBufferSize             ,+++-- ** contentSnifferNew+    contentSnifferNew                       ,+++-- ** contentSnifferSniff+    contentSnifferSniff                     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer)+foreign import ccall "soup_content_sniffer_get_type"+    c_soup_content_sniffer_get_type :: IO GType++type instance ParentTypes ContentSniffer = ContentSnifferParentTypes+type ContentSnifferParentTypes = '[GObject.Object, SessionFeature]++instance GObject ContentSniffer where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_content_sniffer_get_type+    ++class GObject o => ContentSnifferK o+instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o++toContentSniffer :: ContentSnifferK o => o -> IO ContentSniffer+toContentSniffer = unsafeCastTo ContentSniffer++noContentSniffer :: Maybe ContentSniffer+noContentSniffer = Nothing++type instance AttributeList ContentSniffer = ContentSnifferAttributeList+type ContentSnifferAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContentSniffer = ContentSnifferSignalList+type ContentSnifferSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ContentSniffer::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "ContentSniffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: +    IO (Ptr ContentSniffer)+++contentSnifferNew ::+    (MonadIO m) =>+    m ContentSniffer+contentSnifferNew  = liftIO $ do+    result <- soup_content_sniffer_new+    checkUnexpectedReturnNULL "soup_content_sniffer_new" result+    result' <- (wrapObject ContentSniffer) result+    return result'++-- method ContentSniffer::get_buffer_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "soup_content_sniffer_get_buffer_size" soup_content_sniffer_get_buffer_size :: +    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"+    IO Word64+++contentSnifferGetBufferSize ::+    (MonadIO m, ContentSnifferK a) =>+    a ->                                    -- _obj+    m Word64+contentSnifferGetBufferSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_content_sniffer_get_buffer_size _obj'+    touchManagedPtr _obj+    return result++-- method ContentSniffer::sniff+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_content_sniffer_sniff" soup_content_sniffer_sniff :: +    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"+    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO CString+++contentSnifferSniff ::+    (MonadIO m, ContentSnifferK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Buffer ->                               -- buffer+    m (T.Text,(Map.Map T.Text T.Text))+contentSnifferSniff _obj msg buffer = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    let buffer' = unsafeManagedPtrGetPtr buffer+    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))+    result <- soup_content_sniffer_sniff _obj' msg' buffer' params+    checkUnexpectedReturnNULL "soup_content_sniffer_sniff" result+    result' <- cstringToText result+    freeMem result+    params' <- peek params+    params'' <- unpackGHashTable params'+    let params''' = mapFirst cstringUnpackPtr params''+    params'''' <- mapFirstA cstringToText params'''+    let params''''' = mapSecond cstringUnpackPtr params''''+    params'''''' <- mapSecondA cstringToText params'''''+    let params''''''' = Map.fromList params''''''+    unrefGHashTable params'+    touchManagedPtr _obj+    touchManagedPtr msg+    touchManagedPtr buffer+    freeMem params+    return (result', params''''''')++
+ GI/Soup/Objects/ContentSniffer.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.ContentSniffer where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer)+instance GObject ContentSniffer where+class GObject o => ContentSnifferK o+instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o
+ GI/Soup/Objects/CookieJar.hs view
@@ -0,0 +1,616 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.CookieJar+    ( ++-- * Exported types+    CookieJar(..)                           ,+    CookieJarK                              ,+    toCookieJar                             ,+    noCookieJar                             ,+++ -- * Methods+-- ** cookieJarAddCookie+    cookieJarAddCookie                      ,+++-- ** cookieJarAddCookieWithFirstParty+    cookieJarAddCookieWithFirstParty        ,+++-- ** cookieJarAllCookies+    cookieJarAllCookies                     ,+++-- ** cookieJarDeleteCookie+    cookieJarDeleteCookie                   ,+++-- ** cookieJarGetAcceptPolicy+    cookieJarGetAcceptPolicy                ,+++-- ** cookieJarGetCookieList+    cookieJarGetCookieList                  ,+++-- ** cookieJarGetCookies+    cookieJarGetCookies                     ,+++-- ** cookieJarIsPersistent+    cookieJarIsPersistent                   ,+++-- ** cookieJarNew+    cookieJarNew                            ,+++-- ** cookieJarSave+    cookieJarSave                           ,+++-- ** cookieJarSetAcceptPolicy+    cookieJarSetAcceptPolicy                ,+++-- ** cookieJarSetCookie+    cookieJarSetCookie                      ,+++-- ** cookieJarSetCookieWithFirstParty+    cookieJarSetCookieWithFirstParty        ,+++++ -- * Properties+-- ** AcceptPolicy+    CookieJarAcceptPolicyPropertyInfo       ,+    constructCookieJarAcceptPolicy          ,+    getCookieJarAcceptPolicy                ,+    setCookieJarAcceptPolicy                ,+++-- ** ReadOnly+    CookieJarReadOnlyPropertyInfo           ,+    constructCookieJarReadOnly              ,+    getCookieJarReadOnly                    ,+++++ -- * Signals+-- ** Changed+    CookieJarChangedCallback                ,+    CookieJarChangedCallbackC               ,+    CookieJarChangedSignalInfo              ,+    afterCookieJarChanged                   ,+    cookieJarChangedCallbackWrapper         ,+    cookieJarChangedClosure                 ,+    mkCookieJarChangedCallback              ,+    noCookieJarChangedCallback              ,+    onCookieJarChanged                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype CookieJar = CookieJar (ForeignPtr CookieJar)+foreign import ccall "soup_cookie_jar_get_type"+    c_soup_cookie_jar_get_type :: IO GType++type instance ParentTypes CookieJar = CookieJarParentTypes+type CookieJarParentTypes = '[GObject.Object, SessionFeature]++instance GObject CookieJar where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_cookie_jar_get_type+    ++class GObject o => CookieJarK o+instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o++toCookieJar :: CookieJarK o => o -> IO CookieJar+toCookieJar = unsafeCastTo CookieJar++noCookieJar :: Maybe CookieJar+noCookieJar = Nothing++-- signal CookieJar::changed+type CookieJarChangedCallback =+    Cookie ->+    Cookie ->+    IO ()++noCookieJarChangedCallback :: Maybe CookieJarChangedCallback+noCookieJarChangedCallback = Nothing++type CookieJarChangedCallbackC =+    Ptr () ->                               -- object+    Ptr Cookie ->+    Ptr Cookie ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkCookieJarChangedCallback :: CookieJarChangedCallbackC -> IO (FunPtr CookieJarChangedCallbackC)++cookieJarChangedClosure :: CookieJarChangedCallback -> IO Closure+cookieJarChangedClosure cb = newCClosure =<< mkCookieJarChangedCallback wrapped+    where wrapped = cookieJarChangedCallbackWrapper cb++cookieJarChangedCallbackWrapper ::+    CookieJarChangedCallback ->+    Ptr () ->+    Ptr Cookie ->+    Ptr Cookie ->+    Ptr () ->+    IO ()+cookieJarChangedCallbackWrapper _cb _ old_cookie new_cookie _ = do+    old_cookie' <- (newBoxed Cookie) old_cookie+    new_cookie' <- (newBoxed Cookie) new_cookie+    _cb  old_cookie' new_cookie'++onCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId+onCookieJarChanged obj cb = liftIO $ connectCookieJarChanged obj cb SignalConnectBefore+afterCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId+afterCookieJarChanged obj cb = connectCookieJarChanged obj cb SignalConnectAfter++connectCookieJarChanged :: (GObject a, MonadIO m) =>+                           a -> CookieJarChangedCallback -> SignalConnectMode -> m SignalHandlerId+connectCookieJarChanged obj cb after = liftIO $ do+    cb' <- mkCookieJarChangedCallback (cookieJarChangedCallbackWrapper cb)+    connectSignalFunPtr obj "changed" cb' after++-- VVV Prop "accept-policy"+   -- Type: TInterface "Soup" "CookieJarAcceptPolicy"+   -- Flags: [PropertyReadable,PropertyWritable]++getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy+getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy"++setCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> CookieJarAcceptPolicy -> m ()+setCookieJarAcceptPolicy obj val = liftIO $ setObjectPropertyEnum obj "accept-policy" val++constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> IO ([Char], GValue)+constructCookieJarAcceptPolicy val = constructObjectPropertyEnum "accept-policy" val++data CookieJarAcceptPolicyPropertyInfo+instance AttrInfo CookieJarAcceptPolicyPropertyInfo where+    type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) CookieJarAcceptPolicy+    type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = CookieJarK+    type AttrGetType CookieJarAcceptPolicyPropertyInfo = CookieJarAcceptPolicy+    type AttrLabel CookieJarAcceptPolicyPropertyInfo = "CookieJar::accept-policy"+    attrGet _ = getCookieJarAcceptPolicy+    attrSet _ = setCookieJarAcceptPolicy+    attrConstruct _ = constructCookieJarAcceptPolicy++-- VVV Prop "read-only"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool+getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"++constructCookieJarReadOnly :: Bool -> IO ([Char], GValue)+constructCookieJarReadOnly val = constructObjectPropertyBool "read-only" val++data CookieJarReadOnlyPropertyInfo+instance AttrInfo CookieJarReadOnlyPropertyInfo where+    type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = CookieJarK+    type AttrGetType CookieJarReadOnlyPropertyInfo = Bool+    type AttrLabel CookieJarReadOnlyPropertyInfo = "CookieJar::read-only"+    attrGet _ = getCookieJarReadOnly+    attrSet _ = undefined+    attrConstruct _ = constructCookieJarReadOnly++type instance AttributeList CookieJar = CookieJarAttributeList+type CookieJarAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])++data CookieJarChangedSignalInfo+instance SignalInfo CookieJarChangedSignalInfo where+    type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback+    connectSignal _ = connectCookieJarChanged++type instance SignalList CookieJar = CookieJarSignalList+type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method CookieJar::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "CookieJar"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: +    IO (Ptr CookieJar)+++cookieJarNew ::+    (MonadIO m) =>+    m CookieJar+cookieJarNew  = liftIO $ do+    result <- soup_cookie_jar_new+    checkUnexpectedReturnNULL "soup_cookie_jar_new" result+    result' <- (wrapObject CookieJar) result+    return result'++-- method CookieJar::add_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"+    IO ()+++cookieJarAddCookie ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    Cookie ->                               -- cookie+    m ()+cookieJarAddCookie _obj cookie = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    cookie' <- copyBoxed cookie+    soup_cookie_jar_add_cookie _obj' cookie'+    touchManagedPtr _obj+    touchManagedPtr cookie+    return ()++-- method CookieJar::add_cookie_with_first_party+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"+    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"+    IO ()+++cookieJarAddCookieWithFirstParty ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    URI ->                                  -- first_party+    Cookie ->                               -- cookie+    m ()+cookieJarAddCookieWithFirstParty _obj first_party cookie = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let first_party' = unsafeManagedPtrGetPtr first_party+    cookie' <- copyBoxed cookie+    soup_cookie_jar_add_cookie_with_first_party _obj' first_party' cookie'+    touchManagedPtr _obj+    touchManagedPtr first_party+    touchManagedPtr cookie+    return ()++-- method CookieJar::all_cookies+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "Cookie")+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    IO (Ptr (GSList (Ptr Cookie)))+++cookieJarAllCookies ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    m [Cookie]+cookieJarAllCookies _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_cookie_jar_all_cookies _obj'+    checkUnexpectedReturnNULL "soup_cookie_jar_all_cookies" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed Cookie) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method CookieJar::delete_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"+    IO ()+++cookieJarDeleteCookie ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    Cookie ->                               -- cookie+    m ()+cookieJarDeleteCookie _obj cookie = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let cookie' = unsafeManagedPtrGetPtr cookie+    soup_cookie_jar_delete_cookie _obj' cookie'+    touchManagedPtr _obj+    touchManagedPtr cookie+    return ()++-- method CookieJar::get_accept_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "CookieJarAcceptPolicy"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    IO CUInt+++cookieJarGetAcceptPolicy ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    m CookieJarAcceptPolicy+cookieJarGetAcceptPolicy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_cookie_jar_get_accept_policy _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method CookieJar::get_cookie_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "Cookie")+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    CInt ->                                 -- for_http : TBasicType TBoolean+    IO (Ptr (GSList (Ptr Cookie)))+++cookieJarGetCookieList ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    Bool ->                                 -- for_http+    m [Cookie]+cookieJarGetCookieList _obj uri for_http = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    let for_http' = (fromIntegral . fromEnum) for_http+    result <- soup_cookie_jar_get_cookie_list _obj' uri' for_http'+    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookie_list" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed Cookie) result'+    g_slist_free result+    touchManagedPtr _obj+    touchManagedPtr uri+    return result''++-- method CookieJar::get_cookies+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    CInt ->                                 -- for_http : TBasicType TBoolean+    IO CString+++cookieJarGetCookies ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    Bool ->                                 -- for_http+    m T.Text+cookieJarGetCookies _obj uri for_http = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    let for_http' = (fromIntegral . fromEnum) for_http+    result <- soup_cookie_jar_get_cookies _obj' uri' for_http'+    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookies" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    touchManagedPtr uri+    return result'++-- method CookieJar::is_persistent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    IO CInt+++cookieJarIsPersistent ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    m Bool+cookieJarIsPersistent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_cookie_jar_is_persistent _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method CookieJar::save+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    IO ()++{-# DEPRECATED cookieJarSave ["This is a no-op."]#-}+cookieJarSave ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    m ()+cookieJarSave _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_cookie_jar_save _obj'+    touchManagedPtr _obj+    return ()++-- method CookieJar::set_accept_policy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    CUInt ->                                -- policy : TInterface "Soup" "CookieJarAcceptPolicy"+    IO ()+++cookieJarSetAcceptPolicy ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    CookieJarAcceptPolicy ->                -- policy+    m ()+cookieJarSetAcceptPolicy _obj policy = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let policy' = (fromIntegral . fromEnum) policy+    soup_cookie_jar_set_accept_policy _obj' policy'+    touchManagedPtr _obj+    return ()++-- method CookieJar::set_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_set_cookie" soup_cookie_jar_set_cookie :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    CString ->                              -- cookie : TBasicType TUTF8+    IO ()+++cookieJarSetCookie ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    T.Text ->                               -- cookie+    m ()+cookieJarSetCookie _obj uri cookie = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    cookie' <- textToCString cookie+    soup_cookie_jar_set_cookie _obj' uri' cookie'+    touchManagedPtr _obj+    touchManagedPtr uri+    freeMem cookie'+    return ()++-- method CookieJar::set_cookie_with_first_party+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party :: +    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"+    CString ->                              -- cookie : TBasicType TUTF8+    IO ()+++cookieJarSetCookieWithFirstParty ::+    (MonadIO m, CookieJarK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    URI ->                                  -- first_party+    T.Text ->                               -- cookie+    m ()+cookieJarSetCookieWithFirstParty _obj uri first_party cookie = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    let first_party' = unsafeManagedPtrGetPtr first_party+    cookie' <- textToCString cookie+    soup_cookie_jar_set_cookie_with_first_party _obj' uri' first_party' cookie'+    touchManagedPtr _obj+    touchManagedPtr uri+    touchManagedPtr first_party+    freeMem cookie'+    return ()++
+ GI/Soup/Objects/CookieJar.hs-boot view
@@ -0,0 +1,16 @@+module GI.Soup.Objects.CookieJar where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype CookieJar = CookieJar (ForeignPtr CookieJar)+instance GObject CookieJar where+class GObject o => CookieJarK o+instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o+data CookieJarAcceptPolicyPropertyInfo+data CookieJarReadOnlyPropertyInfo+data CookieJarChangedSignalInfo
+ GI/Soup/Objects/CookieJarDB.hs view
@@ -0,0 +1,124 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.CookieJarDB+    ( ++-- * Exported types+    CookieJarDB(..)                         ,+    CookieJarDBK                            ,+    toCookieJarDB                           ,+    noCookieJarDB                           ,+++ -- * Methods+-- ** cookieJarDBNew+    cookieJarDBNew                          ,+++++ -- * Properties+-- ** Filename+    CookieJarDBFilenamePropertyInfo         ,+    constructCookieJarDBFilename            ,+    getCookieJarDBFilename                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB)+foreign import ccall "soup_cookie_jar_db_get_type"+    c_soup_cookie_jar_db_get_type :: IO GType++type instance ParentTypes CookieJarDB = CookieJarDBParentTypes+type CookieJarDBParentTypes = '[CookieJar, GObject.Object, SessionFeature]++instance GObject CookieJarDB where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_cookie_jar_db_get_type+    ++class GObject o => CookieJarDBK o+instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o++toCookieJarDB :: CookieJarDBK o => o -> IO CookieJarDB+toCookieJarDB = unsafeCastTo CookieJarDB++noCookieJarDB :: Maybe CookieJarDB+noCookieJarDB = Nothing++-- VVV Prop "filename"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m T.Text+getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename"++constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue)+constructCookieJarDBFilename val = constructObjectPropertyString "filename" val++data CookieJarDBFilenamePropertyInfo+instance AttrInfo CookieJarDBFilenamePropertyInfo where+    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK+    type AttrGetType CookieJarDBFilenamePropertyInfo = T.Text+    type AttrLabel CookieJarDBFilenamePropertyInfo = "CookieJarDB::filename"+    attrGet _ = getCookieJarDBFilename+    attrSet _ = undefined+    attrConstruct _ = constructCookieJarDBFilename++type instance AttributeList CookieJarDB = CookieJarDBAttributeList+type CookieJarDBAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])++type instance SignalList CookieJarDB = CookieJarDBSignalList+type CookieJarDBSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method CookieJarDB::new+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "CookieJarDB"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_db_new" soup_cookie_jar_db_new :: +    CString ->                              -- filename : TBasicType TUTF8+    CInt ->                                 -- read_only : TBasicType TBoolean+    IO (Ptr CookieJarDB)+++cookieJarDBNew ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    Bool ->                                 -- read_only+    m CookieJarDB+cookieJarDBNew filename read_only = liftIO $ do+    filename' <- textToCString filename+    let read_only' = (fromIntegral . fromEnum) read_only+    result <- soup_cookie_jar_db_new filename' read_only'+    checkUnexpectedReturnNULL "soup_cookie_jar_db_new" result+    result' <- (wrapObject CookieJarDB) result+    freeMem filename'+    return result'++
+ GI/Soup/Objects/CookieJarDB.hs-boot view
@@ -0,0 +1,14 @@+module GI.Soup.Objects.CookieJarDB where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB)+instance GObject CookieJarDB where+class GObject o => CookieJarDBK o+instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o+data CookieJarDBFilenamePropertyInfo
+ GI/Soup/Objects/CookieJarText.hs view
@@ -0,0 +1,124 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.CookieJarText+    ( ++-- * Exported types+    CookieJarText(..)                       ,+    CookieJarTextK                          ,+    toCookieJarText                         ,+    noCookieJarText                         ,+++ -- * Methods+-- ** cookieJarTextNew+    cookieJarTextNew                        ,+++++ -- * Properties+-- ** Filename+    CookieJarTextFilenamePropertyInfo       ,+    constructCookieJarTextFilename          ,+    getCookieJarTextFilename                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText)+foreign import ccall "soup_cookie_jar_text_get_type"+    c_soup_cookie_jar_text_get_type :: IO GType++type instance ParentTypes CookieJarText = CookieJarTextParentTypes+type CookieJarTextParentTypes = '[CookieJar, GObject.Object, SessionFeature]++instance GObject CookieJarText where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_cookie_jar_text_get_type+    ++class GObject o => CookieJarTextK o+instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o++toCookieJarText :: CookieJarTextK o => o -> IO CookieJarText+toCookieJarText = unsafeCastTo CookieJarText++noCookieJarText :: Maybe CookieJarText+noCookieJarText = Nothing++-- VVV Prop "filename"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m T.Text+getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename"++constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue)+constructCookieJarTextFilename val = constructObjectPropertyString "filename" val++data CookieJarTextFilenamePropertyInfo+instance AttrInfo CookieJarTextFilenamePropertyInfo where+    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK+    type AttrGetType CookieJarTextFilenamePropertyInfo = T.Text+    type AttrLabel CookieJarTextFilenamePropertyInfo = "CookieJarText::filename"+    attrGet _ = getCookieJarTextFilename+    attrSet _ = undefined+    attrConstruct _ = constructCookieJarTextFilename++type instance AttributeList CookieJarText = CookieJarTextAttributeList+type CookieJarTextAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])++type instance SignalList CookieJarText = CookieJarTextSignalList+type CookieJarTextSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method CookieJarText::new+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "CookieJarText"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_jar_text_new" soup_cookie_jar_text_new :: +    CString ->                              -- filename : TBasicType TUTF8+    CInt ->                                 -- read_only : TBasicType TBoolean+    IO (Ptr CookieJarText)+++cookieJarTextNew ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    Bool ->                                 -- read_only+    m CookieJarText+cookieJarTextNew filename read_only = liftIO $ do+    filename' <- textToCString filename+    let read_only' = (fromIntegral . fromEnum) read_only+    result <- soup_cookie_jar_text_new filename' read_only'+    checkUnexpectedReturnNULL "soup_cookie_jar_text_new" result+    result' <- (wrapObject CookieJarText) result+    freeMem filename'+    return result'++
+ GI/Soup/Objects/CookieJarText.hs-boot view
@@ -0,0 +1,14 @@+module GI.Soup.Objects.CookieJarText where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText)+instance GObject CookieJarText where+class GObject o => CookieJarTextK o+instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o+data CookieJarTextFilenamePropertyInfo
+ GI/Soup/Objects/Logger.hs view
@@ -0,0 +1,262 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Logger+    ( ++-- * Exported types+    Logger(..)                              ,+    LoggerK                                 ,+    toLogger                                ,+    noLogger                                ,+++ -- * Methods+-- ** loggerAttach+    loggerAttach                            ,+++-- ** loggerDetach+    loggerDetach                            ,+++-- ** loggerNew+    loggerNew                               ,+++-- ** loggerSetPrinter+    loggerSetPrinter                        ,+++-- ** loggerSetRequestFilter+    loggerSetRequestFilter                  ,+++-- ** loggerSetResponseFilter+    loggerSetResponseFilter                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject++newtype Logger = Logger (ForeignPtr Logger)+foreign import ccall "soup_logger_get_type"+    c_soup_logger_get_type :: IO GType++type instance ParentTypes Logger = LoggerParentTypes+type LoggerParentTypes = '[GObject.Object, SessionFeature]++instance GObject Logger where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_logger_get_type+    ++class GObject o => LoggerK o+instance (GObject o, IsDescendantOf Logger o) => LoggerK o++toLogger :: LoggerK o => o -> IO Logger+toLogger = unsafeCastTo Logger++noLogger :: Maybe Logger+noLogger = Nothing++type instance AttributeList Logger = LoggerAttributeList+type LoggerAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Logger = LoggerSignalList+type LoggerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Logger::new+-- method type : Constructor+-- Args : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Logger"+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_new" soup_logger_new :: +    CUInt ->                                -- level : TInterface "Soup" "LoggerLogLevel"+    Int32 ->                                -- max_body_size : TBasicType TInt32+    IO (Ptr Logger)+++loggerNew ::+    (MonadIO m) =>+    LoggerLogLevel ->                       -- level+    Int32 ->                                -- max_body_size+    m Logger+loggerNew level max_body_size = liftIO $ do+    let level' = (fromIntegral . fromEnum) level+    result <- soup_logger_new level' max_body_size+    checkUnexpectedReturnNULL "soup_logger_new" result+    result' <- (wrapObject Logger) result+    return result'++-- method Logger::attach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_attach" soup_logger_attach :: +    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"+    Ptr Session ->                          -- session : TInterface "Soup" "Session"+    IO ()++{-# DEPRECATED loggerAttach ["Use soup_session_add_feature() instead."]#-}+loggerAttach ::+    (MonadIO m, LoggerK a, SessionK b) =>+    a ->                                    -- _obj+    b ->                                    -- session+    m ()+loggerAttach _obj session = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let session' = unsafeManagedPtrCastPtr session+    soup_logger_attach _obj' session'+    touchManagedPtr _obj+    touchManagedPtr session+    return ()++-- method Logger::detach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_detach" soup_logger_detach :: +    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"+    Ptr Session ->                          -- session : TInterface "Soup" "Session"+    IO ()++{-# DEPRECATED loggerDetach ["Use soup_session_remove_feature() instead."]#-}+loggerDetach ::+    (MonadIO m, LoggerK a, SessionK b) =>+    a ->                                    -- _obj+    b ->                                    -- session+    m ()+loggerDetach _obj session = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let session' = unsafeManagedPtrCastPtr session+    soup_logger_detach _obj' session'+    touchManagedPtr _obj+    touchManagedPtr session+    return ()++-- method Logger::set_printer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "printer_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_set_printer" soup_logger_set_printer :: +    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"+    FunPtr LoggerPrinterC ->                -- printer : TInterface "Soup" "LoggerPrinter"+    Ptr () ->                               -- printer_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++loggerSetPrinter ::+    (MonadIO m, LoggerK a) =>+    a ->                                    -- _obj+    LoggerPrinter ->                        -- printer+    m ()+loggerSetPrinter _obj printer = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer)+    let printer_data = castFunPtrToPtr printer'+    let destroy = safeFreeFunPtrPtr+    soup_logger_set_printer _obj' printer' printer_data destroy+    touchManagedPtr _obj+    return ()++-- method Logger::set_request_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter :: +    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"+    FunPtr LoggerFilterC ->                 -- request_filter : TInterface "Soup" "LoggerFilter"+    Ptr () ->                               -- filter_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++loggerSetRequestFilter ::+    (MonadIO m, LoggerK a) =>+    a ->                                    -- _obj+    LoggerFilter ->                         -- request_filter+    m ()+loggerSetRequestFilter _obj request_filter = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    request_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing request_filter)+    let filter_data = castFunPtrToPtr request_filter'+    let destroy = safeFreeFunPtrPtr+    soup_logger_set_request_filter _obj' request_filter' filter_data destroy+    touchManagedPtr _obj+    return ()++-- method Logger::set_response_filter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter :: +    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"+    FunPtr LoggerFilterC ->                 -- response_filter : TInterface "Soup" "LoggerFilter"+    Ptr () ->                               -- filter_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++loggerSetResponseFilter ::+    (MonadIO m, LoggerK a) =>+    a ->                                    -- _obj+    LoggerFilter ->                         -- response_filter+    m ()+loggerSetResponseFilter _obj response_filter = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    response_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing response_filter)+    let filter_data = castFunPtrToPtr response_filter'+    let destroy = safeFreeFunPtrPtr+    soup_logger_set_response_filter _obj' response_filter' filter_data destroy+    touchManagedPtr _obj+    return ()++
+ GI/Soup/Objects/Logger.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.Logger where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Logger = Logger (ForeignPtr Logger)+instance GObject Logger where+class GObject o => LoggerK o+instance (GObject o, IsDescendantOf Logger o) => LoggerK o
+ GI/Soup/Objects/Message.hs view
@@ -0,0 +1,2492 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Message+    ( ++-- * Exported types+    Message(..)                             ,+    MessageK                                ,+    toMessage                               ,+    noMessage                               ,+++ -- * Methods+-- ** messageContentSniffed+    messageContentSniffed                   ,+++-- ** messageDisableFeature+    messageDisableFeature                   ,+++-- ** messageFinished+    messageFinished                         ,+++-- ** messageGetAddress+    messageGetAddress                       ,+++-- ** messageGetFirstParty+    messageGetFirstParty                    ,+++-- ** messageGetFlags+    messageGetFlags                         ,+++-- ** messageGetHttpVersion+    messageGetHttpVersion                   ,+++-- ** messageGetHttpsStatus+    messageGetHttpsStatus                   ,+++-- ** messageGetPriority+    messageGetPriority                      ,+++-- ** messageGetSoupRequest+    messageGetSoupRequest                   ,+++-- ** messageGetUri+    messageGetUri                           ,+++-- ** messageGotBody+    messageGotBody                          ,+++-- ** messageGotChunk+    messageGotChunk                         ,+++-- ** messageGotHeaders+    messageGotHeaders                       ,+++-- ** messageGotInformational+    messageGotInformational                 ,+++-- ** messageIsKeepalive+    messageIsKeepalive                      ,+++-- ** messageNew+    messageNew                              ,+++-- ** messageNewFromUri+    messageNewFromUri                       ,+++-- ** messageRestarted+    messageRestarted                        ,+++-- ** messageSetChunkAllocator+    messageSetChunkAllocator                ,+++-- ** messageSetFirstParty+    messageSetFirstParty                    ,+++-- ** messageSetFlags+    messageSetFlags                         ,+++-- ** messageSetHttpVersion+    messageSetHttpVersion                   ,+++-- ** messageSetPriority+    messageSetPriority                      ,+++-- ** messageSetRedirect+    messageSetRedirect                      ,+++-- ** messageSetRequest+    messageSetRequest                       ,+++-- ** messageSetResponse+    messageSetResponse                      ,+++-- ** messageSetStatus+    messageSetStatus                        ,+++-- ** messageSetStatusFull+    messageSetStatusFull                    ,+++-- ** messageSetUri+    messageSetUri                           ,+++-- ** messageStarting+    messageStarting                         ,+++-- ** messageWroteBody+    messageWroteBody                        ,+++-- ** messageWroteBodyData+    messageWroteBodyData                    ,+++-- ** messageWroteChunk+    messageWroteChunk                       ,+++-- ** messageWroteHeaders+    messageWroteHeaders                     ,+++-- ** messageWroteInformational+    messageWroteInformational               ,+++++ -- * Properties+-- ** FirstParty+    MessageFirstPartyPropertyInfo           ,+    constructMessageFirstParty              ,+    getMessageFirstParty                    ,+    setMessageFirstParty                    ,+++-- ** Flags+    MessageFlagsPropertyInfo                ,+    constructMessageFlags                   ,+    getMessageFlags                         ,+    setMessageFlags                         ,+++-- ** HttpVersion+    MessageHttpVersionPropertyInfo          ,+    constructMessageHttpVersion             ,+    getMessageHttpVersion                   ,+    setMessageHttpVersion                   ,+++-- ** Method+    MessageMethodPropertyInfo               ,+    constructMessageMethod                  ,+    getMessageMethod                        ,+    setMessageMethod                        ,+++-- ** Priority+    MessagePriorityPropertyInfo             ,+    constructMessagePriority                ,+    getMessagePriority                      ,+    setMessagePriority                      ,+++-- ** ReasonPhrase+    MessageReasonPhrasePropertyInfo         ,+    constructMessageReasonPhrase            ,+    getMessageReasonPhrase                  ,+    setMessageReasonPhrase                  ,+++-- ** RequestBody+    MessageRequestBodyPropertyInfo          ,+    getMessageRequestBody                   ,+++-- ** RequestBodyData+    MessageRequestBodyDataPropertyInfo      ,+    getMessageRequestBodyData               ,+++-- ** RequestHeaders+    MessageRequestHeadersPropertyInfo       ,+    getMessageRequestHeaders                ,+++-- ** ResponseBody+    MessageResponseBodyPropertyInfo         ,+    getMessageResponseBody                  ,+++-- ** ResponseBodyData+    MessageResponseBodyDataPropertyInfo     ,+    getMessageResponseBodyData              ,+++-- ** ResponseHeaders+    MessageResponseHeadersPropertyInfo      ,+    getMessageResponseHeaders               ,+++-- ** ServerSide+    MessageServerSidePropertyInfo           ,+    constructMessageServerSide              ,+    getMessageServerSide                    ,+++-- ** StatusCode+    MessageStatusCodePropertyInfo           ,+    constructMessageStatusCode              ,+    getMessageStatusCode                    ,+    setMessageStatusCode                    ,+++-- ** TlsCertificate+    MessageTlsCertificatePropertyInfo       ,+    constructMessageTlsCertificate          ,+    getMessageTlsCertificate                ,+    setMessageTlsCertificate                ,+++-- ** TlsErrors+    MessageTlsErrorsPropertyInfo            ,+    constructMessageTlsErrors               ,+    getMessageTlsErrors                     ,+    setMessageTlsErrors                     ,+++-- ** Uri+    MessageUriPropertyInfo                  ,+    constructMessageUri                     ,+    getMessageUri                           ,+    setMessageUri                           ,+++++ -- * Signals+-- ** ContentSniffed+    MessageContentSniffedCallback           ,+    MessageContentSniffedCallbackC          ,+    MessageContentSniffedSignalInfo         ,+    afterMessageContentSniffed              ,+    messageContentSniffedCallbackWrapper    ,+    messageContentSniffedClosure            ,+    mkMessageContentSniffedCallback         ,+    noMessageContentSniffedCallback         ,+    onMessageContentSniffed                 ,+++-- ** Finished+    MessageFinishedCallback                 ,+    MessageFinishedCallbackC                ,+    MessageFinishedSignalInfo               ,+    afterMessageFinished                    ,+    messageFinishedCallbackWrapper          ,+    messageFinishedClosure                  ,+    mkMessageFinishedCallback               ,+    noMessageFinishedCallback               ,+    onMessageFinished                       ,+++-- ** GotBody+    MessageGotBodyCallback                  ,+    MessageGotBodyCallbackC                 ,+    MessageGotBodySignalInfo                ,+    afterMessageGotBody                     ,+    messageGotBodyCallbackWrapper           ,+    messageGotBodyClosure                   ,+    mkMessageGotBodyCallback                ,+    noMessageGotBodyCallback                ,+    onMessageGotBody                        ,+++-- ** GotChunk+    MessageGotChunkCallback                 ,+    MessageGotChunkCallbackC                ,+    MessageGotChunkSignalInfo               ,+    afterMessageGotChunk                    ,+    messageGotChunkCallbackWrapper          ,+    messageGotChunkClosure                  ,+    mkMessageGotChunkCallback               ,+    noMessageGotChunkCallback               ,+    onMessageGotChunk                       ,+++-- ** GotHeaders+    MessageGotHeadersCallback               ,+    MessageGotHeadersCallbackC              ,+    MessageGotHeadersSignalInfo             ,+    afterMessageGotHeaders                  ,+    messageGotHeadersCallbackWrapper        ,+    messageGotHeadersClosure                ,+    mkMessageGotHeadersCallback             ,+    noMessageGotHeadersCallback             ,+    onMessageGotHeaders                     ,+++-- ** GotInformational+    MessageGotInformationalCallback         ,+    MessageGotInformationalCallbackC        ,+    MessageGotInformationalSignalInfo       ,+    afterMessageGotInformational            ,+    messageGotInformationalCallbackWrapper  ,+    messageGotInformationalClosure          ,+    mkMessageGotInformationalCallback       ,+    noMessageGotInformationalCallback       ,+    onMessageGotInformational               ,+++-- ** NetworkEvent+    MessageNetworkEventCallback             ,+    MessageNetworkEventCallbackC            ,+    MessageNetworkEventSignalInfo           ,+    afterMessageNetworkEvent                ,+    messageNetworkEventCallbackWrapper      ,+    messageNetworkEventClosure              ,+    mkMessageNetworkEventCallback           ,+    noMessageNetworkEventCallback           ,+    onMessageNetworkEvent                   ,+++-- ** Restarted+    MessageRestartedCallback                ,+    MessageRestartedCallbackC               ,+    MessageRestartedSignalInfo              ,+    afterMessageRestarted                   ,+    messageRestartedCallbackWrapper         ,+    messageRestartedClosure                 ,+    mkMessageRestartedCallback              ,+    noMessageRestartedCallback              ,+    onMessageRestarted                      ,+++-- ** Starting+    MessageStartingCallback                 ,+    MessageStartingCallbackC                ,+    MessageStartingSignalInfo               ,+    afterMessageStarting                    ,+    messageStartingCallbackWrapper          ,+    messageStartingClosure                  ,+    mkMessageStartingCallback               ,+    noMessageStartingCallback               ,+    onMessageStarting                       ,+++-- ** WroteBody+    MessageWroteBodyCallback                ,+    MessageWroteBodyCallbackC               ,+    MessageWroteBodySignalInfo              ,+    afterMessageWroteBody                   ,+    messageWroteBodyCallbackWrapper         ,+    messageWroteBodyClosure                 ,+    mkMessageWroteBodyCallback              ,+    noMessageWroteBodyCallback              ,+    onMessageWroteBody                      ,+++-- ** WroteBodyData+    MessageWroteBodyDataCallback            ,+    MessageWroteBodyDataCallbackC           ,+    MessageWroteBodyDataSignalInfo          ,+    afterMessageWroteBodyData               ,+    messageWroteBodyDataCallbackWrapper     ,+    messageWroteBodyDataClosure             ,+    mkMessageWroteBodyDataCallback          ,+    noMessageWroteBodyDataCallback          ,+    onMessageWroteBodyData                  ,+++-- ** WroteChunk+    MessageWroteChunkCallback               ,+    MessageWroteChunkCallbackC              ,+    MessageWroteChunkSignalInfo             ,+    afterMessageWroteChunk                  ,+    messageWroteChunkCallbackWrapper        ,+    messageWroteChunkClosure                ,+    mkMessageWroteChunkCallback             ,+    noMessageWroteChunkCallback             ,+    onMessageWroteChunk                     ,+++-- ** WroteHeaders+    MessageWroteHeadersCallback             ,+    MessageWroteHeadersCallbackC            ,+    MessageWroteHeadersSignalInfo           ,+    afterMessageWroteHeaders                ,+    messageWroteHeadersCallbackWrapper      ,+    messageWroteHeadersClosure              ,+    mkMessageWroteHeadersCallback           ,+    noMessageWroteHeadersCallback           ,+    onMessageWroteHeaders                   ,+++-- ** WroteInformational+    MessageWroteInformationalCallback       ,+    MessageWroteInformationalCallbackC      ,+    MessageWroteInformationalSignalInfo     ,+    afterMessageWroteInformational          ,+    messageWroteInformationalCallbackWrapper,+    messageWroteInformationalClosure        ,+    mkMessageWroteInformationalCallback     ,+    noMessageWroteInformationalCallback     ,+    onMessageWroteInformational             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Message = Message (ForeignPtr Message)+foreign import ccall "soup_message_get_type"+    c_soup_message_get_type :: IO GType++type instance ParentTypes Message = MessageParentTypes+type MessageParentTypes = '[GObject.Object]++instance GObject Message where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_message_get_type+    ++class GObject o => MessageK o+instance (GObject o, IsDescendantOf Message o) => MessageK o++toMessage :: MessageK o => o -> IO Message+toMessage = unsafeCastTo Message++noMessage :: Maybe Message+noMessage = Nothing++-- signal Message::content-sniffed+type MessageContentSniffedCallback =+    T.Text ->+    Map.Map T.Text T.Text ->+    IO ()++noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback+noMessageContentSniffedCallback = Nothing++type MessageContentSniffedCallbackC =+    Ptr () ->                               -- object+    CString ->+    Ptr (GHashTable CString CString) ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC)++messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure+messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped+    where wrapped = messageContentSniffedCallbackWrapper cb++messageContentSniffedCallbackWrapper ::+    MessageContentSniffedCallback ->+    Ptr () ->+    CString ->+    Ptr (GHashTable CString CString) ->+    Ptr () ->+    IO ()+messageContentSniffedCallbackWrapper _cb _ type_ params _ = do+    type_' <- cstringToText type_+    params' <- unpackGHashTable params+    let params'' = mapFirst cstringUnpackPtr params'+    params''' <- mapFirstA cstringToText params''+    let params'''' = mapSecond cstringUnpackPtr params'''+    params''''' <- mapSecondA cstringToText params''''+    let params'''''' = Map.fromList params'''''+    _cb  type_' params''''''++onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId+onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore+afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId+afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter++connectMessageContentSniffed :: (GObject a, MonadIO m) =>+                                a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageContentSniffed obj cb after = liftIO $ do+    cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb)+    connectSignalFunPtr obj "content-sniffed" cb' after++-- signal Message::finished+type MessageFinishedCallback =+    IO ()++noMessageFinishedCallback :: Maybe MessageFinishedCallback+noMessageFinishedCallback = Nothing++type MessageFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC)++messageFinishedClosure :: MessageFinishedCallback -> IO Closure+messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped+    where wrapped = messageFinishedCallbackWrapper cb++messageFinishedCallbackWrapper ::+    MessageFinishedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageFinishedCallbackWrapper _cb _ _ = do+    _cb ++onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId+onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore+afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId+afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter++connectMessageFinished :: (GObject a, MonadIO m) =>+                          a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageFinished obj cb after = liftIO $ do+    cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "finished" cb' after++-- signal Message::got-body+type MessageGotBodyCallback =+    IO ()++noMessageGotBodyCallback :: Maybe MessageGotBodyCallback+noMessageGotBodyCallback = Nothing++type MessageGotBodyCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC)++messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure+messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped+    where wrapped = messageGotBodyCallbackWrapper cb++messageGotBodyCallbackWrapper ::+    MessageGotBodyCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageGotBodyCallbackWrapper _cb _ _ = do+    _cb ++onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId+onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore+afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId+afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter++connectMessageGotBody :: (GObject a, MonadIO m) =>+                         a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageGotBody obj cb after = liftIO $ do+    cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb)+    connectSignalFunPtr obj "got-body" cb' after++-- signal Message::got-chunk+type MessageGotChunkCallback =+    Buffer ->+    IO ()++noMessageGotChunkCallback :: Maybe MessageGotChunkCallback+noMessageGotChunkCallback = Nothing++type MessageGotChunkCallbackC =+    Ptr () ->                               -- object+    Ptr Buffer ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC)++messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure+messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped+    where wrapped = messageGotChunkCallbackWrapper cb++messageGotChunkCallbackWrapper ::+    MessageGotChunkCallback ->+    Ptr () ->+    Ptr Buffer ->+    Ptr () ->+    IO ()+messageGotChunkCallbackWrapper _cb _ chunk _ = do+    chunk' <- (newBoxed Buffer) chunk+    _cb  chunk'++onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId+onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore+afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId+afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter++connectMessageGotChunk :: (GObject a, MonadIO m) =>+                          a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageGotChunk obj cb after = liftIO $ do+    cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb)+    connectSignalFunPtr obj "got-chunk" cb' after++-- signal Message::got-headers+type MessageGotHeadersCallback =+    IO ()++noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback+noMessageGotHeadersCallback = Nothing++type MessageGotHeadersCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC)++messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure+messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped+    where wrapped = messageGotHeadersCallbackWrapper cb++messageGotHeadersCallbackWrapper ::+    MessageGotHeadersCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageGotHeadersCallbackWrapper _cb _ _ = do+    _cb ++onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId+onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore+afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId+afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter++connectMessageGotHeaders :: (GObject a, MonadIO m) =>+                            a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageGotHeaders obj cb after = liftIO $ do+    cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb)+    connectSignalFunPtr obj "got-headers" cb' after++-- signal Message::got-informational+type MessageGotInformationalCallback =+    IO ()++noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback+noMessageGotInformationalCallback = Nothing++type MessageGotInformationalCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC)++messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure+messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped+    where wrapped = messageGotInformationalCallbackWrapper cb++messageGotInformationalCallbackWrapper ::+    MessageGotInformationalCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageGotInformationalCallbackWrapper _cb _ _ = do+    _cb ++onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId+onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore+afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId+afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter++connectMessageGotInformational :: (GObject a, MonadIO m) =>+                                  a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageGotInformational obj cb after = liftIO $ do+    cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb)+    connectSignalFunPtr obj "got-informational" cb' after++-- signal Message::network-event+type MessageNetworkEventCallback =+    Gio.SocketClientEvent ->+    Gio.IOStream ->+    IO ()++noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback+noMessageNetworkEventCallback = Nothing++type MessageNetworkEventCallbackC =+    Ptr () ->                               -- object+    CUInt ->+    Ptr Gio.IOStream ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC)++messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure+messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped+    where wrapped = messageNetworkEventCallbackWrapper cb++messageNetworkEventCallbackWrapper ::+    MessageNetworkEventCallback ->+    Ptr () ->+    CUInt ->+    Ptr Gio.IOStream ->+    Ptr () ->+    IO ()+messageNetworkEventCallbackWrapper _cb _ event connection _ = do+    let event' = (toEnum . fromIntegral) event+    connection' <- (newObject Gio.IOStream) connection+    _cb  event' connection'++onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId+onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore+afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId+afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter++connectMessageNetworkEvent :: (GObject a, MonadIO m) =>+                              a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageNetworkEvent obj cb after = liftIO $ do+    cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb)+    connectSignalFunPtr obj "network-event" cb' after++-- signal Message::restarted+type MessageRestartedCallback =+    IO ()++noMessageRestartedCallback :: Maybe MessageRestartedCallback+noMessageRestartedCallback = Nothing++type MessageRestartedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC)++messageRestartedClosure :: MessageRestartedCallback -> IO Closure+messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped+    where wrapped = messageRestartedCallbackWrapper cb++messageRestartedCallbackWrapper ::+    MessageRestartedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageRestartedCallbackWrapper _cb _ _ = do+    _cb ++onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId+onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore+afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId+afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter++connectMessageRestarted :: (GObject a, MonadIO m) =>+                           a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageRestarted obj cb after = liftIO $ do+    cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb)+    connectSignalFunPtr obj "restarted" cb' after++-- signal Message::starting+type MessageStartingCallback =+    IO ()++noMessageStartingCallback :: Maybe MessageStartingCallback+noMessageStartingCallback = Nothing++type MessageStartingCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC)++messageStartingClosure :: MessageStartingCallback -> IO Closure+messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped+    where wrapped = messageStartingCallbackWrapper cb++messageStartingCallbackWrapper ::+    MessageStartingCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageStartingCallbackWrapper _cb _ _ = do+    _cb ++onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId+onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore+afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId+afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter++connectMessageStarting :: (GObject a, MonadIO m) =>+                          a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageStarting obj cb after = liftIO $ do+    cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb)+    connectSignalFunPtr obj "starting" cb' after++-- signal Message::wrote-body+type MessageWroteBodyCallback =+    IO ()++noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback+noMessageWroteBodyCallback = Nothing++type MessageWroteBodyCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC)++messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure+messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped+    where wrapped = messageWroteBodyCallbackWrapper cb++messageWroteBodyCallbackWrapper ::+    MessageWroteBodyCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageWroteBodyCallbackWrapper _cb _ _ = do+    _cb ++onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId+onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore+afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId+afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter++connectMessageWroteBody :: (GObject a, MonadIO m) =>+                           a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageWroteBody obj cb after = liftIO $ do+    cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb)+    connectSignalFunPtr obj "wrote-body" cb' after++-- signal Message::wrote-body-data+type MessageWroteBodyDataCallback =+    Buffer ->+    IO ()++noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback+noMessageWroteBodyDataCallback = Nothing++type MessageWroteBodyDataCallbackC =+    Ptr () ->                               -- object+    Ptr Buffer ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC)++messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure+messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped+    where wrapped = messageWroteBodyDataCallbackWrapper cb++messageWroteBodyDataCallbackWrapper ::+    MessageWroteBodyDataCallback ->+    Ptr () ->+    Ptr Buffer ->+    Ptr () ->+    IO ()+messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do+    chunk' <- (newBoxed Buffer) chunk+    _cb  chunk'++onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId+onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore+afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId+afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter++connectMessageWroteBodyData :: (GObject a, MonadIO m) =>+                               a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageWroteBodyData obj cb after = liftIO $ do+    cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb)+    connectSignalFunPtr obj "wrote-body-data" cb' after++-- signal Message::wrote-chunk+type MessageWroteChunkCallback =+    IO ()++noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback+noMessageWroteChunkCallback = Nothing++type MessageWroteChunkCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC)++messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure+messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped+    where wrapped = messageWroteChunkCallbackWrapper cb++messageWroteChunkCallbackWrapper ::+    MessageWroteChunkCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageWroteChunkCallbackWrapper _cb _ _ = do+    _cb ++onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId+onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore+afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId+afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter++connectMessageWroteChunk :: (GObject a, MonadIO m) =>+                            a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageWroteChunk obj cb after = liftIO $ do+    cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb)+    connectSignalFunPtr obj "wrote-chunk" cb' after++-- signal Message::wrote-headers+type MessageWroteHeadersCallback =+    IO ()++noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback+noMessageWroteHeadersCallback = Nothing++type MessageWroteHeadersCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC)++messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure+messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped+    where wrapped = messageWroteHeadersCallbackWrapper cb++messageWroteHeadersCallbackWrapper ::+    MessageWroteHeadersCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageWroteHeadersCallbackWrapper _cb _ _ = do+    _cb ++onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId+onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore+afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId+afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter++connectMessageWroteHeaders :: (GObject a, MonadIO m) =>+                              a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageWroteHeaders obj cb after = liftIO $ do+    cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb)+    connectSignalFunPtr obj "wrote-headers" cb' after++-- signal Message::wrote-informational+type MessageWroteInformationalCallback =+    IO ()++noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback+noMessageWroteInformationalCallback = Nothing++type MessageWroteInformationalCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC)++messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure+messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped+    where wrapped = messageWroteInformationalCallbackWrapper cb++messageWroteInformationalCallbackWrapper ::+    MessageWroteInformationalCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+messageWroteInformationalCallbackWrapper _cb _ _ = do+    _cb ++onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId+onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore+afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId+afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter++connectMessageWroteInformational :: (GObject a, MonadIO m) =>+                                    a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId+connectMessageWroteInformational obj cb after = liftIO $ do+    cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb)+    connectSignalFunPtr obj "wrote-informational" cb' after++-- VVV Prop "first-party"+   -- Type: TInterface "Soup" "URI"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI+getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI++setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m ()+setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val++constructMessageFirstParty :: URI -> IO ([Char], GValue)+constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val++data MessageFirstPartyPropertyInfo+instance AttrInfo MessageFirstPartyPropertyInfo where+    type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI+    type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK+    type AttrGetType MessageFirstPartyPropertyInfo = URI+    type AttrLabel MessageFirstPartyPropertyInfo = "Message::first-party"+    attrGet _ = getMessageFirstParty+    attrSet _ = setMessageFirstParty+    attrConstruct _ = constructMessageFirstParty++-- VVV Prop "flags"+   -- Type: TInterface "Soup" "MessageFlags"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags]+getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags"++setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m ()+setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val++constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue)+constructMessageFlags val = constructObjectPropertyFlags "flags" val++data MessageFlagsPropertyInfo+instance AttrInfo MessageFlagsPropertyInfo where+    type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags]+    type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK+    type AttrGetType MessageFlagsPropertyInfo = [MessageFlags]+    type AttrLabel MessageFlagsPropertyInfo = "Message::flags"+    attrGet _ = getMessageFlags+    attrSet _ = setMessageFlags+    attrConstruct _ = constructMessageFlags++-- VVV Prop "http-version"+   -- Type: TInterface "Soup" "HTTPVersion"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion+getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version"++setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m ()+setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val++constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue)+constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val++data MessageHttpVersionPropertyInfo+instance AttrInfo MessageHttpVersionPropertyInfo where+    type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion+    type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK+    type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion+    type AttrLabel MessageHttpVersionPropertyInfo = "Message::http-version"+    attrGet _ = getMessageHttpVersion+    attrSet _ = setMessageHttpVersion+    attrConstruct _ = constructMessageHttpVersion++-- VVV Prop "method"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text+getMessageMethod obj = liftIO $ getObjectPropertyString obj "method"++setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m ()+setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val++constructMessageMethod :: T.Text -> IO ([Char], GValue)+constructMessageMethod val = constructObjectPropertyString "method" val++data MessageMethodPropertyInfo+instance AttrInfo MessageMethodPropertyInfo where+    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK+    type AttrGetType MessageMethodPropertyInfo = T.Text+    type AttrLabel MessageMethodPropertyInfo = "Message::method"+    attrGet _ = getMessageMethod+    attrSet _ = setMessageMethod+    attrConstruct _ = constructMessageMethod++-- VVV Prop "priority"+   -- Type: TInterface "Soup" "MessagePriority"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority+getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority"++setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m ()+setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val++constructMessagePriority :: MessagePriority -> IO ([Char], GValue)+constructMessagePriority val = constructObjectPropertyEnum "priority" val++data MessagePriorityPropertyInfo+instance AttrInfo MessagePriorityPropertyInfo where+    type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority+    type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK+    type AttrGetType MessagePriorityPropertyInfo = MessagePriority+    type AttrLabel MessagePriorityPropertyInfo = "Message::priority"+    attrGet _ = getMessagePriority+    attrSet _ = setMessagePriority+    attrConstruct _ = constructMessagePriority++-- VVV Prop "reason-phrase"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text+getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase"++setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m ()+setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val++constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue)+constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val++data MessageReasonPhrasePropertyInfo+instance AttrInfo MessageReasonPhrasePropertyInfo where+    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK+    type AttrGetType MessageReasonPhrasePropertyInfo = T.Text+    type AttrLabel MessageReasonPhrasePropertyInfo = "Message::reason-phrase"+    attrGet _ = getMessageReasonPhrase+    attrSet _ = setMessageReasonPhrase+    attrConstruct _ = constructMessageReasonPhrase++-- VVV Prop "request-body"+   -- Type: TInterface "Soup" "MessageBody"+   -- Flags: [PropertyReadable]++getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody+getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody++data MessageRequestBodyPropertyInfo+instance AttrInfo MessageRequestBodyPropertyInfo where+    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK+    type AttrGetType MessageRequestBodyPropertyInfo = MessageBody+    type AttrLabel MessageRequestBodyPropertyInfo = "Message::request-body"+    attrGet _ = getMessageRequestBody+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "request-body-data"+   -- Type: TInterface "GLib" "Bytes"+   -- Flags: [PropertyReadable]++getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes+getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes++data MessageRequestBodyDataPropertyInfo+instance AttrInfo MessageRequestBodyDataPropertyInfo where+    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK+    type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes+    type AttrLabel MessageRequestBodyDataPropertyInfo = "Message::request-body-data"+    attrGet _ = getMessageRequestBodyData+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "request-headers"+   -- Type: TInterface "Soup" "MessageHeaders"+   -- Flags: [PropertyReadable]++getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders+getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders++data MessageRequestHeadersPropertyInfo+instance AttrInfo MessageRequestHeadersPropertyInfo where+    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK+    type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders+    type AttrLabel MessageRequestHeadersPropertyInfo = "Message::request-headers"+    attrGet _ = getMessageRequestHeaders+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "response-body"+   -- Type: TInterface "Soup" "MessageBody"+   -- Flags: [PropertyReadable]++getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody+getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody++data MessageResponseBodyPropertyInfo+instance AttrInfo MessageResponseBodyPropertyInfo where+    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK+    type AttrGetType MessageResponseBodyPropertyInfo = MessageBody+    type AttrLabel MessageResponseBodyPropertyInfo = "Message::response-body"+    attrGet _ = getMessageResponseBody+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "response-body-data"+   -- Type: TInterface "GLib" "Bytes"+   -- Flags: [PropertyReadable]++getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes+getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes++data MessageResponseBodyDataPropertyInfo+instance AttrInfo MessageResponseBodyDataPropertyInfo where+    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK+    type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes+    type AttrLabel MessageResponseBodyDataPropertyInfo = "Message::response-body-data"+    attrGet _ = getMessageResponseBodyData+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "response-headers"+   -- Type: TInterface "Soup" "MessageHeaders"+   -- Flags: [PropertyReadable]++getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders+getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders++data MessageResponseHeadersPropertyInfo+instance AttrInfo MessageResponseHeadersPropertyInfo where+    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK+    type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders+    type AttrLabel MessageResponseHeadersPropertyInfo = "Message::response-headers"+    attrGet _ = getMessageResponseHeaders+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "server-side"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool+getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side"++constructMessageServerSide :: Bool -> IO ([Char], GValue)+constructMessageServerSide val = constructObjectPropertyBool "server-side" val++data MessageServerSidePropertyInfo+instance AttrInfo MessageServerSidePropertyInfo where+    type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK+    type AttrGetType MessageServerSidePropertyInfo = Bool+    type AttrLabel MessageServerSidePropertyInfo = "Message::server-side"+    attrGet _ = getMessageServerSide+    attrSet _ = undefined+    attrConstruct _ = constructMessageServerSide++-- VVV Prop "status-code"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32+getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"++setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m ()+setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val++constructMessageStatusCode :: Word32 -> IO ([Char], GValue)+constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val++data MessageStatusCodePropertyInfo+instance AttrInfo MessageStatusCodePropertyInfo where+    type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32+    type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK+    type AttrGetType MessageStatusCodePropertyInfo = Word32+    type AttrLabel MessageStatusCodePropertyInfo = "Message::status-code"+    attrGet _ = getMessageStatusCode+    attrSet _ = setMessageStatusCode+    attrConstruct _ = constructMessageStatusCode++-- VVV Prop "tls-certificate"+   -- Type: TInterface "Gio" "TlsCertificate"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate+getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate++setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m ()+setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val++constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)+constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val++data MessageTlsCertificatePropertyInfo+instance AttrInfo MessageTlsCertificatePropertyInfo where+    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK+    type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK+    type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate+    type AttrLabel MessageTlsCertificatePropertyInfo = "Message::tls-certificate"+    attrGet _ = getMessageTlsCertificate+    attrSet _ = setMessageTlsCertificate+    attrConstruct _ = constructMessageTlsCertificate++-- VVV Prop "tls-errors"+   -- Type: TInterface "Gio" "TlsCertificateFlags"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags]+getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"++setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m ()+setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val++constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue)+constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val++data MessageTlsErrorsPropertyInfo+instance AttrInfo MessageTlsErrorsPropertyInfo where+    type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags]+    type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK+    type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]+    type AttrLabel MessageTlsErrorsPropertyInfo = "Message::tls-errors"+    attrGet _ = getMessageTlsErrors+    attrSet _ = setMessageTlsErrors+    attrConstruct _ = constructMessageTlsErrors++-- VVV Prop "uri"+   -- Type: TInterface "Soup" "URI"+   -- Flags: [PropertyReadable,PropertyWritable]++getMessageUri :: (MonadIO m, MessageK o) => o -> m URI+getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI++setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m ()+setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val++constructMessageUri :: URI -> IO ([Char], GValue)+constructMessageUri val = constructObjectPropertyBoxed "uri" val++data MessageUriPropertyInfo+instance AttrInfo MessageUriPropertyInfo where+    type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI+    type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK+    type AttrGetType MessageUriPropertyInfo = URI+    type AttrLabel MessageUriPropertyInfo = "Message::uri"+    attrGet _ = getMessageUri+    attrSet _ = setMessageUri+    attrConstruct _ = constructMessageUri++type instance AttributeList Message = MessageAttributeList+type MessageAttributeList = ('[ '("first-party", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("http-version", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reason-phrase", MessageReasonPhrasePropertyInfo), '("request-body", MessageRequestBodyPropertyInfo), '("request-body-data", MessageRequestBodyDataPropertyInfo), '("request-headers", MessageRequestHeadersPropertyInfo), '("response-body", MessageResponseBodyPropertyInfo), '("response-body-data", MessageResponseBodyDataPropertyInfo), '("response-headers", MessageResponseHeadersPropertyInfo), '("server-side", MessageServerSidePropertyInfo), '("status-code", MessageStatusCodePropertyInfo), '("tls-certificate", MessageTlsCertificatePropertyInfo), '("tls-errors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)])++data MessageContentSniffedSignalInfo+instance SignalInfo MessageContentSniffedSignalInfo where+    type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback+    connectSignal _ = connectMessageContentSniffed++data MessageFinishedSignalInfo+instance SignalInfo MessageFinishedSignalInfo where+    type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback+    connectSignal _ = connectMessageFinished++data MessageGotBodySignalInfo+instance SignalInfo MessageGotBodySignalInfo where+    type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback+    connectSignal _ = connectMessageGotBody++data MessageGotChunkSignalInfo+instance SignalInfo MessageGotChunkSignalInfo where+    type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback+    connectSignal _ = connectMessageGotChunk++data MessageGotHeadersSignalInfo+instance SignalInfo MessageGotHeadersSignalInfo where+    type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback+    connectSignal _ = connectMessageGotHeaders++data MessageGotInformationalSignalInfo+instance SignalInfo MessageGotInformationalSignalInfo where+    type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback+    connectSignal _ = connectMessageGotInformational++data MessageNetworkEventSignalInfo+instance SignalInfo MessageNetworkEventSignalInfo where+    type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback+    connectSignal _ = connectMessageNetworkEvent++data MessageRestartedSignalInfo+instance SignalInfo MessageRestartedSignalInfo where+    type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback+    connectSignal _ = connectMessageRestarted++data MessageStartingSignalInfo+instance SignalInfo MessageStartingSignalInfo where+    type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback+    connectSignal _ = connectMessageStarting++data MessageWroteBodySignalInfo+instance SignalInfo MessageWroteBodySignalInfo where+    type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback+    connectSignal _ = connectMessageWroteBody++data MessageWroteBodyDataSignalInfo+instance SignalInfo MessageWroteBodyDataSignalInfo where+    type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback+    connectSignal _ = connectMessageWroteBodyData++data MessageWroteChunkSignalInfo+instance SignalInfo MessageWroteChunkSignalInfo where+    type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback+    connectSignal _ = connectMessageWroteChunk++data MessageWroteHeadersSignalInfo+instance SignalInfo MessageWroteHeadersSignalInfo where+    type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback+    connectSignal _ = connectMessageWroteHeaders++data MessageWroteInformationalSignalInfo+instance SignalInfo MessageWroteInformationalSignalInfo where+    type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback+    connectSignal _ = connectMessageWroteInformational++type instance SignalList Message = MessageSignalList+type MessageSignalList = ('[ '("content-sniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("got-body", MessageGotBodySignalInfo), '("got-chunk", MessageGotChunkSignalInfo), '("got-headers", MessageGotHeadersSignalInfo), '("got-informational", MessageGotInformationalSignalInfo), '("network-event", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wrote-body", MessageWroteBodySignalInfo), '("wrote-body-data", MessageWroteBodyDataSignalInfo), '("wrote-chunk", MessageWroteChunkSignalInfo), '("wrote-headers", MessageWroteHeadersSignalInfo), '("wrote-informational", MessageWroteInformationalSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Message::new+-- method type : Constructor+-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_new" soup_message_new :: +    CString ->                              -- method : TBasicType TUTF8+    CString ->                              -- uri_string : TBasicType TUTF8+    IO (Ptr Message)+++messageNew ::+    (MonadIO m) =>+    T.Text ->                               -- method+    T.Text ->                               -- uri_string+    m Message+messageNew method uri_string = liftIO $ do+    method' <- textToCString method+    uri_string' <- textToCString uri_string+    result <- soup_message_new method' uri_string'+    checkUnexpectedReturnNULL "soup_message_new" result+    result' <- (wrapObject Message) result+    freeMem method'+    freeMem uri_string'+    return result'++-- method Message::new_from_uri+-- method type : Constructor+-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: +    CString ->                              -- method : TBasicType TUTF8+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    IO (Ptr Message)+++messageNewFromUri ::+    (MonadIO m) =>+    T.Text ->                               -- method+    URI ->                                  -- uri+    m Message+messageNewFromUri method uri = liftIO $ do+    method' <- textToCString method+    let uri' = unsafeManagedPtrGetPtr uri+    result <- soup_message_new_from_uri method' uri'+    checkUnexpectedReturnNULL "soup_message_new_from_uri" result+    result' <- (wrapObject Message) result+    touchManagedPtr uri+    freeMem method'+    return result'++-- method Message::content_sniffed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_content_sniffed" soup_message_content_sniffed :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CString ->                              -- content_type : TBasicType TUTF8+    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++messageContentSniffed ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- content_type+    Map.Map (Ptr ()) (Ptr ()) ->            -- params+    m ()+messageContentSniffed _obj content_type params = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    content_type' <- textToCString content_type+    let params' = Map.toList params+    let params'' = mapFirst ptrPackPtr params'+    let params''' = mapSecond ptrPackPtr params''+    params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params'''+    soup_message_content_sniffed _obj' content_type' params''''+    touchManagedPtr _obj+    freeMem content_type'+    unrefGHashTable params''''+    return ()++-- method Message::disable_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_disable_feature" soup_message_disable_feature :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CGType ->                               -- feature_type : TBasicType TGType+    IO ()+++messageDisableFeature ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m ()+messageDisableFeature _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    soup_message_disable_feature _obj' feature_type'+    touchManagedPtr _obj+    return ()++-- method Message::finished+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_finished" soup_message_finished :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageFinished ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageFinished _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_finished _obj'+    touchManagedPtr _obj+    return ()++-- method Message::get_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_address" soup_message_get_address :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO (Ptr Address)+++messageGetAddress ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m Address+messageGetAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_address _obj'+    checkUnexpectedReturnNULL "soup_message_get_address" result+    result' <- (newObject Address) result+    touchManagedPtr _obj+    return result'++-- method Message::get_first_party+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO (Ptr URI)+++messageGetFirstParty ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m URI+messageGetFirstParty _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_first_party _obj'+    checkUnexpectedReturnNULL "soup_message_get_first_party" result+    result' <- (newBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method Message::get_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageFlags"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_flags" soup_message_get_flags :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO CUInt+++messageGetFlags ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m [MessageFlags]+messageGetFlags _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_flags _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Message::get_http_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "HTTPVersion"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO CUInt+++messageGetHttpVersion ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m HTTPVersion+messageGetHttpVersion _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_http_version _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Message::get_https_status+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_https_status" soup_message_get_https_status :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Ptr (Ptr Gio.TlsCertificate) ->         -- certificate : TInterface "Gio" "TlsCertificate"+    Ptr CUInt ->                            -- errors : TInterface "Gio" "TlsCertificateFlags"+    IO CInt+++messageGetHttpsStatus ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])+messageGetHttpsStatus _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate))+    errors <- allocMem :: IO (Ptr CUInt)+    result <- soup_message_get_https_status _obj' certificate errors+    let result' = (/= 0) result+    certificate' <- peek certificate+    certificate'' <- (newObject Gio.TlsCertificate) certificate'+    errors' <- peek errors+    let errors'' = wordToGFlags errors'+    touchManagedPtr _obj+    freeMem certificate+    freeMem errors+    return (result', certificate'', errors'')++-- method Message::get_priority+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessagePriority"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_priority" soup_message_get_priority :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO CUInt+++messageGetPriority ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m MessagePriority+messageGetPriority _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_priority _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Message::get_soup_request+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Request"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO (Ptr Request)+++messageGetSoupRequest ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m Request+messageGetSoupRequest _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_soup_request _obj'+    checkUnexpectedReturnNULL "soup_message_get_soup_request" result+    result' <- (newObject Request) result+    touchManagedPtr _obj+    return result'++-- method Message::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_get_uri" soup_message_get_uri :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO (Ptr URI)+++messageGetUri ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m URI+messageGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_get_uri _obj'+    checkUnexpectedReturnNULL "soup_message_get_uri" result+    result' <- (newBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method Message::got_body+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_got_body" soup_message_got_body :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageGotBody ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageGotBody _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_got_body _obj'+    touchManagedPtr _obj+    return ()++-- method Message::got_chunk+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_got_chunk" soup_message_got_chunk :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"+    IO ()+++messageGotChunk ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Buffer ->                               -- chunk+    m ()+messageGotChunk _obj chunk = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let chunk' = unsafeManagedPtrGetPtr chunk+    soup_message_got_chunk _obj' chunk'+    touchManagedPtr _obj+    touchManagedPtr chunk+    return ()++-- method Message::got_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_got_headers" soup_message_got_headers :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageGotHeaders ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageGotHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_got_headers _obj'+    touchManagedPtr _obj+    return ()++-- method Message::got_informational+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_got_informational" soup_message_got_informational :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageGotInformational ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageGotInformational _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_got_informational _obj'+    touchManagedPtr _obj+    return ()++-- method Message::is_keepalive+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_is_keepalive" soup_message_is_keepalive :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO CInt+++messageIsKeepalive ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m Bool+messageIsKeepalive _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_message_is_keepalive _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Message::restarted+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_restarted" soup_message_restarted :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageRestarted ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageRestarted _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_restarted _obj'+    touchManagedPtr _obj+    return ()++-- method Message::set_chunk_allocator+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    FunPtr ChunkAllocatorC ->               -- allocator : TInterface "Soup" "ChunkAllocator"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy_notify : TInterface "GLib" "DestroyNotify"+    IO ()++{-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-}+messageSetChunkAllocator ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    ChunkAllocator ->                       -- allocator+    m ()+messageSetChunkAllocator _obj allocator = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator)+    let user_data = castFunPtrToPtr allocator'+    let destroy_notify = safeFreeFunPtrPtr+    soup_message_set_chunk_allocator _obj' allocator' user_data destroy_notify+    touchManagedPtr _obj+    return ()++-- method Message::set_first_party+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_first_party" soup_message_set_first_party :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"+    IO ()+++messageSetFirstParty ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    URI ->                                  -- first_party+    m ()+messageSetFirstParty _obj first_party = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let first_party' = unsafeManagedPtrGetPtr first_party+    soup_message_set_first_party _obj' first_party'+    touchManagedPtr _obj+    touchManagedPtr first_party+    return ()++-- method Message::set_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_flags" soup_message_set_flags :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CUInt ->                                -- flags : TInterface "Soup" "MessageFlags"+    IO ()+++messageSetFlags ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    [MessageFlags] ->                       -- flags+    m ()+messageSetFlags _obj flags = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let flags' = gflagsToWord flags+    soup_message_set_flags _obj' flags'+    touchManagedPtr _obj+    return ()++-- method Message::set_http_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_http_version" soup_message_set_http_version :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CUInt ->                                -- version : TInterface "Soup" "HTTPVersion"+    IO ()+++messageSetHttpVersion ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    HTTPVersion ->                          -- version+    m ()+messageSetHttpVersion _obj version = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let version' = (fromIntegral . fromEnum) version+    soup_message_set_http_version _obj' version'+    touchManagedPtr _obj+    return ()++-- method Message::set_priority+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_priority" soup_message_set_priority :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CUInt ->                                -- priority : TInterface "Soup" "MessagePriority"+    IO ()+++messageSetPriority ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    MessagePriority ->                      -- priority+    m ()+messageSetPriority _obj priority = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let priority' = (fromIntegral . fromEnum) priority+    soup_message_set_priority _obj' priority'+    touchManagedPtr _obj+    return ()++-- method Message::set_redirect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_redirect" soup_message_set_redirect :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Word32 ->                               -- status_code : TBasicType TUInt32+    CString ->                              -- redirect_uri : TBasicType TUTF8+    IO ()+++messageSetRedirect ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- status_code+    T.Text ->                               -- redirect_uri+    m ()+messageSetRedirect _obj status_code redirect_uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    redirect_uri' <- textToCString redirect_uri+    soup_message_set_redirect _obj' status_code redirect_uri'+    touchManagedPtr _obj+    freeMem redirect_uri'+    return ()++-- method Message::set_request+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_request" soup_message_set_request :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CString ->                              -- content_type : TBasicType TUTF8+    CUInt ->                                -- req_use : TInterface "Soup" "MemoryUse"+    Ptr Word8 ->                            -- req_body : TCArray False (-1) 4 (TBasicType TUInt8)+    Word64 ->                               -- req_length : TBasicType TUInt64+    IO ()+++messageSetRequest ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- content_type+    MemoryUse ->                            -- req_use+    Maybe (ByteString) ->                   -- req_body+    m ()+messageSetRequest _obj content_type req_use req_body = liftIO $ do+    let req_length = case req_body of+            Nothing -> 0+            Just jReq_body -> fromIntegral $ B.length jReq_body+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeContent_type <- case content_type of+        Nothing -> return nullPtr+        Just jContent_type -> do+            jContent_type' <- textToCString jContent_type+            return jContent_type'+    let req_use' = (fromIntegral . fromEnum) req_use+    maybeReq_body <- case req_body of+        Nothing -> return nullPtr+        Just jReq_body -> do+            jReq_body' <- packByteString jReq_body+            return jReq_body'+    soup_message_set_request _obj' maybeContent_type req_use' maybeReq_body req_length+    touchManagedPtr _obj+    freeMem maybeContent_type+    freeMem maybeReq_body+    return ()++-- method Message::set_response+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_response" soup_message_set_response :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    CString ->                              -- content_type : TBasicType TUTF8+    CUInt ->                                -- resp_use : TInterface "Soup" "MemoryUse"+    Ptr Word8 ->                            -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8)+    Word64 ->                               -- resp_length : TBasicType TUInt64+    IO ()+++messageSetResponse ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- content_type+    MemoryUse ->                            -- resp_use+    Maybe (ByteString) ->                   -- resp_body+    m ()+messageSetResponse _obj content_type resp_use resp_body = liftIO $ do+    let resp_length = case resp_body of+            Nothing -> 0+            Just jResp_body -> fromIntegral $ B.length jResp_body+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeContent_type <- case content_type of+        Nothing -> return nullPtr+        Just jContent_type -> do+            jContent_type' <- textToCString jContent_type+            return jContent_type'+    let resp_use' = (fromIntegral . fromEnum) resp_use+    maybeResp_body <- case resp_body of+        Nothing -> return nullPtr+        Just jResp_body -> do+            jResp_body' <- packByteString jResp_body+            return jResp_body'+    soup_message_set_response _obj' maybeContent_type resp_use' maybeResp_body resp_length+    touchManagedPtr _obj+    freeMem maybeContent_type+    freeMem maybeResp_body+    return ()++-- method Message::set_status+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_status" soup_message_set_status :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Word32 ->                               -- status_code : TBasicType TUInt32+    IO ()+++messageSetStatus ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- status_code+    m ()+messageSetStatus _obj status_code = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_set_status _obj' status_code+    touchManagedPtr _obj+    return ()++-- method Message::set_status_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_status_full" soup_message_set_status_full :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Word32 ->                               -- status_code : TBasicType TUInt32+    CString ->                              -- reason_phrase : TBasicType TUTF8+    IO ()+++messageSetStatusFull ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- status_code+    T.Text ->                               -- reason_phrase+    m ()+messageSetStatusFull _obj status_code reason_phrase = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    reason_phrase' <- textToCString reason_phrase+    soup_message_set_status_full _obj' status_code reason_phrase'+    touchManagedPtr _obj+    freeMem reason_phrase'+    return ()++-- method Message::set_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_set_uri" soup_message_set_uri :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    IO ()+++messageSetUri ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    m ()+messageSetUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    soup_message_set_uri _obj' uri'+    touchManagedPtr _obj+    touchManagedPtr uri+    return ()++-- method Message::starting+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_starting" soup_message_starting :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageStarting ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageStarting _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_starting _obj'+    touchManagedPtr _obj+    return ()++-- method Message::wrote_body+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_wrote_body" soup_message_wrote_body :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageWroteBody ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageWroteBody _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_wrote_body _obj'+    touchManagedPtr _obj+    return ()++-- method Message::wrote_body_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_wrote_body_data" soup_message_wrote_body_data :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"+    IO ()+++messageWroteBodyData ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    Buffer ->                               -- chunk+    m ()+messageWroteBodyData _obj chunk = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let chunk' = unsafeManagedPtrGetPtr chunk+    soup_message_wrote_body_data _obj' chunk'+    touchManagedPtr _obj+    touchManagedPtr chunk+    return ()++-- method Message::wrote_chunk+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_wrote_chunk" soup_message_wrote_chunk :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageWroteChunk ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageWroteChunk _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_wrote_chunk _obj'+    touchManagedPtr _obj+    return ()++-- method Message::wrote_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_wrote_headers" soup_message_wrote_headers :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageWroteHeaders ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageWroteHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_wrote_headers _obj'+    touchManagedPtr _obj+    return ()++-- method Message::wrote_informational+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_wrote_informational" soup_message_wrote_informational :: +    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"+    IO ()+++messageWroteInformational ::+    (MonadIO m, MessageK a) =>+    a ->                                    -- _obj+    m ()+messageWroteInformational _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_message_wrote_informational _obj'+    touchManagedPtr _obj+    return ()++
+ GI/Soup/Objects/Message.hs-boot view
@@ -0,0 +1,44 @@+module GI.Soup.Objects.Message where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Message = Message (ForeignPtr Message)+instance GObject Message where+class GObject o => MessageK o+instance (GObject o, IsDescendantOf Message o) => MessageK o+data MessageFirstPartyPropertyInfo+data MessageFlagsPropertyInfo+data MessageHttpVersionPropertyInfo+data MessageMethodPropertyInfo+data MessagePriorityPropertyInfo+data MessageReasonPhrasePropertyInfo+data MessageRequestBodyPropertyInfo+data MessageRequestBodyDataPropertyInfo+data MessageRequestHeadersPropertyInfo+data MessageResponseBodyPropertyInfo+data MessageResponseBodyDataPropertyInfo+data MessageResponseHeadersPropertyInfo+data MessageServerSidePropertyInfo+data MessageStatusCodePropertyInfo+data MessageTlsCertificatePropertyInfo+data MessageTlsErrorsPropertyInfo+data MessageUriPropertyInfo+data MessageContentSniffedSignalInfo+data MessageFinishedSignalInfo+data MessageGotBodySignalInfo+data MessageGotChunkSignalInfo+data MessageGotHeadersSignalInfo+data MessageGotInformationalSignalInfo+data MessageNetworkEventSignalInfo+data MessageRestartedSignalInfo+data MessageStartingSignalInfo+data MessageWroteBodySignalInfo+data MessageWroteBodyDataSignalInfo+data MessageWroteChunkSignalInfo+data MessageWroteHeadersSignalInfo+data MessageWroteInformationalSignalInfo
+ GI/Soup/Objects/MultipartInputStream.hs view
@@ -0,0 +1,287 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.MultipartInputStream+    ( ++-- * Exported types+    MultipartInputStream(..)                ,+    MultipartInputStreamK                   ,+    toMultipartInputStream                  ,+    noMultipartInputStream                  ,+++ -- * Methods+-- ** multipartInputStreamGetHeaders+    multipartInputStreamGetHeaders          ,+++-- ** multipartInputStreamNew+    multipartInputStreamNew                 ,+++-- ** multipartInputStreamNextPart+    multipartInputStreamNextPart            ,+++-- ** multipartInputStreamNextPartAsync+    multipartInputStreamNextPartAsync       ,+++-- ** multipartInputStreamNextPartFinish+    multipartInputStreamNextPartFinish      ,+++++ -- * Properties+-- ** Message+    MultipartInputStreamMessagePropertyInfo ,+    constructMultipartInputStreamMessage    ,+    getMultipartInputStreamMessage          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream)+foreign import ccall "soup_multipart_input_stream_get_type"+    c_soup_multipart_input_stream_get_type :: IO GType++type instance ParentTypes MultipartInputStream = MultipartInputStreamParentTypes+type MultipartInputStreamParentTypes = '[Gio.FilterInputStream, Gio.InputStream, GObject.Object, Gio.PollableInputStream]++instance GObject MultipartInputStream where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_multipart_input_stream_get_type+    ++class GObject o => MultipartInputStreamK o+instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o++toMultipartInputStream :: MultipartInputStreamK o => o -> IO MultipartInputStream+toMultipartInputStream = unsafeCastTo MultipartInputStream++noMultipartInputStream :: Maybe MultipartInputStream+noMultipartInputStream = Nothing++-- VVV Prop "message"+   -- Type: TInterface "Soup" "Message"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m Message+getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message++constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue)+constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" val++data MultipartInputStreamMessagePropertyInfo+instance AttrInfo MultipartInputStreamMessagePropertyInfo where+    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK+    type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK+    type AttrGetType MultipartInputStreamMessagePropertyInfo = Message+    type AttrLabel MultipartInputStreamMessagePropertyInfo = "MultipartInputStream::message"+    attrGet _ = getMultipartInputStreamMessage+    attrSet _ = undefined+    attrConstruct _ = constructMultipartInputStreamMessage++type instance AttributeList MultipartInputStream = MultipartInputStreamAttributeList+type MultipartInputStreamAttributeList = ('[ '("base-stream", Gio.FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", Gio.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)])++type instance SignalList MultipartInputStream = MultipartInputStreamSignalList+type MultipartInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method MultipartInputStream::new+-- method type : Constructor+-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MultipartInputStream"+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: +    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Gio.InputStream ->                  -- base_stream : TInterface "Gio" "InputStream"+    IO (Ptr MultipartInputStream)+++multipartInputStreamNew ::+    (MonadIO m, MessageK a, Gio.InputStreamK b) =>+    a ->                                    -- msg+    b ->                                    -- base_stream+    m MultipartInputStream+multipartInputStreamNew msg base_stream = liftIO $ do+    let msg' = unsafeManagedPtrCastPtr msg+    let base_stream' = unsafeManagedPtrCastPtr base_stream+    result <- soup_multipart_input_stream_new msg' base_stream'+    checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result+    result' <- (wrapObject MultipartInputStream) result+    touchManagedPtr msg+    touchManagedPtr base_stream+    return result'++-- method MultipartInputStream::get_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageHeaders"+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: +    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"+    IO (Ptr MessageHeaders)+++multipartInputStreamGetHeaders ::+    (MonadIO m, MultipartInputStreamK a) =>+    a ->                                    -- _obj+    m MessageHeaders+multipartInputStreamGetHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_multipart_input_stream_get_headers _obj'+    checkUnexpectedReturnNULL "soup_multipart_input_stream_get_headers" result+    result' <- (newBoxed MessageHeaders) result+    touchManagedPtr _obj+    return result'++-- method MultipartInputStream::next_part+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: +    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++multipartInputStreamNextPart ::+    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    m Gio.InputStream+multipartInputStreamNextPart _obj cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_multipart_input_stream_next_part _obj' maybeCancellable+        checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        whenJust cancellable touchManagedPtr+        return result'+     ) (do+        return ()+     )++-- method MultipartInputStream::next_part_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async :: +    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"+    Int32 ->                                -- io_priority : TBasicType TInt32+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++multipartInputStreamNextPartAsync ::+    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Int32 ->                                -- io_priority+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+multipartInputStreamNextPartAsync _obj io_priority cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let data_ = nullPtr+    soup_multipart_input_stream_next_part_async _obj' io_priority maybeCancellable maybeCallback data_+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- method MultipartInputStream::next_part_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_multipart_input_stream_next_part_finish" soup_multipart_input_stream_next_part_finish :: +    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++multipartInputStreamNextPartFinish ::+    (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m Gio.InputStream+multipartInputStreamNextPartFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_'+        checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part_finish" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++
+ GI/Soup/Objects/MultipartInputStream.hs-boot view
@@ -0,0 +1,14 @@+module GI.Soup.Objects.MultipartInputStream where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream)+instance GObject MultipartInputStream where+class GObject o => MultipartInputStreamK o+instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o+data MultipartInputStreamMessagePropertyInfo
+ GI/Soup/Objects/ProxyResolverDefault.hs view
@@ -0,0 +1,89 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.ProxyResolverDefault+    ( ++-- * Exported types+    ProxyResolverDefault(..)                ,+    ProxyResolverDefaultK                   ,+    toProxyResolverDefault                  ,+    noProxyResolverDefault                  ,+++ -- * Properties+-- ** GproxyResolver+    ProxyResolverDefaultGproxyResolverPropertyInfo,+    constructProxyResolverDefaultGproxyResolver,+    setProxyResolverDefaultGproxyResolver   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault)+foreign import ccall "soup_proxy_resolver_default_get_type"+    c_soup_proxy_resolver_default_get_type :: IO GType++type instance ParentTypes ProxyResolverDefault = ProxyResolverDefaultParentTypes+type ProxyResolverDefaultParentTypes = '[GObject.Object, ProxyURIResolver, SessionFeature]++instance GObject ProxyResolverDefault where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_proxy_resolver_default_get_type+    ++class GObject o => ProxyResolverDefaultK o+instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o++toProxyResolverDefault :: ProxyResolverDefaultK o => o -> IO ProxyResolverDefault+toProxyResolverDefault = unsafeCastTo ProxyResolverDefault++noProxyResolverDefault :: Maybe ProxyResolverDefault+noProxyResolverDefault = Nothing++-- VVV Prop "gproxy-resolver"+   -- Type: TInterface "Gio" "ProxyResolver"+   -- Flags: [PropertyWritable]++setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m ()+setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" val++constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)+constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" val++data ProxyResolverDefaultGproxyResolverPropertyInfo+instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where+    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK+    type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK+    type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = ()+    type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "ProxyResolverDefault::gproxy-resolver"+    attrGet _ = undefined+    attrSet _ = setProxyResolverDefaultGproxyResolver+    attrConstruct _ = constructProxyResolverDefaultGproxyResolver++type instance AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList+type ProxyResolverDefaultAttributeList = ('[ '("gproxy-resolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)])++type instance SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList+type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/ProxyResolverDefault.hs-boot view
@@ -0,0 +1,14 @@+module GI.Soup.Objects.ProxyResolverDefault where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault)+instance GObject ProxyResolverDefault where+class GObject o => ProxyResolverDefaultK o+instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o+data ProxyResolverDefaultGproxyResolverPropertyInfo
+ GI/Soup/Objects/Request.hs view
@@ -0,0 +1,366 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Request+    ( ++-- * Exported types+    Request(..)                             ,+    RequestK                                ,+    toRequest                               ,+    noRequest                               ,+++ -- * Methods+-- ** requestGetContentLength+    requestGetContentLength                 ,+++-- ** requestGetContentType+    requestGetContentType                   ,+++-- ** requestGetSession+    requestGetSession                       ,+++-- ** requestGetUri+    requestGetUri                           ,+++-- ** requestSend+    requestSend                             ,+++-- ** requestSendAsync+    requestSendAsync                        ,+++-- ** requestSendFinish+    requestSendFinish                       ,+++++ -- * Properties+-- ** Session+    RequestSessionPropertyInfo              ,+    constructRequestSession                 ,+    getRequestSession                       ,+++-- ** Uri+    RequestUriPropertyInfo                  ,+    constructRequestUri                     ,+    getRequestUri                           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Request = Request (ForeignPtr Request)+foreign import ccall "soup_request_get_type"+    c_soup_request_get_type :: IO GType++type instance ParentTypes Request = RequestParentTypes+type RequestParentTypes = '[GObject.Object, Gio.Initable]++instance GObject Request where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_request_get_type+    ++class GObject o => RequestK o+instance (GObject o, IsDescendantOf Request o) => RequestK o++toRequest :: RequestK o => o -> IO Request+toRequest = unsafeCastTo Request++noRequest :: Maybe Request+noRequest = Nothing++-- VVV Prop "session"+   -- Type: TInterface "Soup" "Session"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getRequestSession :: (MonadIO m, RequestK o) => o -> m Session+getRequestSession obj = liftIO $ getObjectPropertyObject obj "session" Session++constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue)+constructRequestSession val = constructObjectPropertyObject "session" val++data RequestSessionPropertyInfo+instance AttrInfo RequestSessionPropertyInfo where+    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK+    type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK+    type AttrGetType RequestSessionPropertyInfo = Session+    type AttrLabel RequestSessionPropertyInfo = "Request::session"+    attrGet _ = getRequestSession+    attrSet _ = undefined+    attrConstruct _ = constructRequestSession++-- VVV Prop "uri"+   -- Type: TInterface "Soup" "URI"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getRequestUri :: (MonadIO m, RequestK o) => o -> m URI+getRequestUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI++constructRequestUri :: URI -> IO ([Char], GValue)+constructRequestUri val = constructObjectPropertyBoxed "uri" val++data RequestUriPropertyInfo+instance AttrInfo RequestUriPropertyInfo where+    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI+    type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK+    type AttrGetType RequestUriPropertyInfo = URI+    type AttrLabel RequestUriPropertyInfo = "Request::uri"+    attrGet _ = getRequestUri+    attrSet _ = undefined+    attrConstruct _ = constructRequestUri++type instance AttributeList Request = RequestAttributeList+type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList Request = RequestSignalList+type RequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Request::get_content_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_get_content_length" soup_request_get_content_length :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    IO Int64+++requestGetContentLength ::+    (MonadIO m, RequestK a) =>+    a ->                                    -- _obj+    m Int64+requestGetContentLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_get_content_length _obj'+    touchManagedPtr _obj+    return result++-- method Request::get_content_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_get_content_type" soup_request_get_content_type :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    IO CString+++requestGetContentType ::+    (MonadIO m, RequestK a) =>+    a ->                                    -- _obj+    m T.Text+requestGetContentType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_get_content_type _obj'+    checkUnexpectedReturnNULL "soup_request_get_content_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Request::get_session+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Session"+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_get_session" soup_request_get_session :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    IO (Ptr Session)+++requestGetSession ::+    (MonadIO m, RequestK a) =>+    a ->                                    -- _obj+    m Session+requestGetSession _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_get_session _obj'+    checkUnexpectedReturnNULL "soup_request_get_session" result+    result' <- (newObject Session) result+    touchManagedPtr _obj+    return result'++-- method Request::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_get_uri" soup_request_get_uri :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    IO (Ptr URI)+++requestGetUri ::+    (MonadIO m, RequestK a) =>+    a ->                                    -- _obj+    m URI+requestGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_get_uri _obj'+    checkUnexpectedReturnNULL "soup_request_get_uri" result+    result' <- (newBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method Request::send+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_request_send" soup_request_send :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++requestSend ::+    (MonadIO m, RequestK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    m Gio.InputStream+requestSend _obj cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_request_send _obj' maybeCancellable+        checkUnexpectedReturnNULL "soup_request_send" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        whenJust cancellable touchManagedPtr+        return result'+     ) (do+        return ()+     )++-- method Request::send_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_send_async" soup_request_send_async :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++requestSendAsync ::+    (MonadIO m, RequestK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+requestSendAsync _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let user_data = nullPtr+    soup_request_send_async _obj' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- method Request::send_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_request_send_finish" soup_request_send_finish :: +    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++requestSendFinish ::+    (MonadIO m, RequestK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m Gio.InputStream+requestSendFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ soup_request_send_finish _obj' result_'+        checkUnexpectedReturnNULL "soup_request_send_finish" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++
+ GI/Soup/Objects/Request.hs-boot view
@@ -0,0 +1,15 @@+module GI.Soup.Objects.Request where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Request = Request (ForeignPtr Request)+instance GObject Request where+class GObject o => RequestK o+instance (GObject o, IsDescendantOf Request o) => RequestK o+data RequestSessionPropertyInfo+data RequestUriPropertyInfo
+ GI/Soup/Objects/RequestData.hs view
@@ -0,0 +1,59 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.RequestData+    ( ++-- * Exported types+    RequestData(..)                         ,+    RequestDataK                            ,+    toRequestData                           ,+    noRequestData                           ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype RequestData = RequestData (ForeignPtr RequestData)+foreign import ccall "soup_request_data_get_type"+    c_soup_request_data_get_type :: IO GType++type instance ParentTypes RequestData = RequestDataParentTypes+type RequestDataParentTypes = '[Request, GObject.Object, Gio.Initable]++instance GObject RequestData where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_request_data_get_type+    ++class GObject o => RequestDataK o+instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o++toRequestData :: RequestDataK o => o -> IO RequestData+toRequestData = unsafeCastTo RequestData++noRequestData :: Maybe RequestData+noRequestData = Nothing++type instance AttributeList RequestData = RequestDataAttributeList+type RequestDataAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList RequestData = RequestDataSignalList+type RequestDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/Soup/Objects/RequestData.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.RequestData where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype RequestData = RequestData (ForeignPtr RequestData)+instance GObject RequestData where+class GObject o => RequestDataK o+instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o
+ GI/Soup/Objects/RequestFile.hs view
@@ -0,0 +1,92 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.RequestFile+    ( ++-- * Exported types+    RequestFile(..)                         ,+    RequestFileK                            ,+    toRequestFile                           ,+    noRequestFile                           ,+++ -- * Methods+-- ** requestFileGetFile+    requestFileGetFile                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype RequestFile = RequestFile (ForeignPtr RequestFile)+foreign import ccall "soup_request_file_get_type"+    c_soup_request_file_get_type :: IO GType++type instance ParentTypes RequestFile = RequestFileParentTypes+type RequestFileParentTypes = '[Request, GObject.Object, Gio.Initable]++instance GObject RequestFile where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_request_file_get_type+    ++class GObject o => RequestFileK o+instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o++toRequestFile :: RequestFileK o => o -> IO RequestFile+toRequestFile = unsafeCastTo RequestFile++noRequestFile :: Maybe RequestFile+noRequestFile = Nothing++type instance AttributeList RequestFile = RequestFileAttributeList+type RequestFileAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList RequestFile = RequestFileSignalList+type RequestFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method RequestFile::get_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "File"+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: +    Ptr RequestFile ->                      -- _obj : TInterface "Soup" "RequestFile"+    IO (Ptr Gio.File)+++requestFileGetFile ::+    (MonadIO m, RequestFileK a) =>+    a ->                                    -- _obj+    m Gio.File+requestFileGetFile _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_file_get_file _obj'+    checkUnexpectedReturnNULL "soup_request_file_get_file" result+    result' <- (wrapObject Gio.File) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Objects/RequestFile.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.RequestFile where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype RequestFile = RequestFile (ForeignPtr RequestFile)+instance GObject RequestFile where+class GObject o => RequestFileK o+instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o
+ GI/Soup/Objects/RequestHTTP.hs view
@@ -0,0 +1,92 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.RequestHTTP+    ( ++-- * Exported types+    RequestHTTP(..)                         ,+    RequestHTTPK                            ,+    toRequestHTTP                           ,+    noRequestHTTP                           ,+++ -- * Methods+-- ** requestHTTPGetMessage+    requestHTTPGetMessage                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP)+foreign import ccall "soup_request_http_get_type"+    c_soup_request_http_get_type :: IO GType++type instance ParentTypes RequestHTTP = RequestHTTPParentTypes+type RequestHTTPParentTypes = '[Request, GObject.Object, Gio.Initable]++instance GObject RequestHTTP where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_request_http_get_type+    ++class GObject o => RequestHTTPK o+instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o++toRequestHTTP :: RequestHTTPK o => o -> IO RequestHTTP+toRequestHTTP = unsafeCastTo RequestHTTP++noRequestHTTP :: Maybe RequestHTTP+noRequestHTTP = Nothing++type instance AttributeList RequestHTTP = RequestHTTPAttributeList+type RequestHTTPAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList RequestHTTP = RequestHTTPSignalList+type RequestHTTPSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method RequestHTTP::get_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Message"+-- throws : False+-- Skip return : False++foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: +    Ptr RequestHTTP ->                      -- _obj : TInterface "Soup" "RequestHTTP"+    IO (Ptr Message)+++requestHTTPGetMessage ::+    (MonadIO m, RequestHTTPK a) =>+    a ->                                    -- _obj+    m Message+requestHTTPGetMessage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_request_http_get_message _obj'+    checkUnexpectedReturnNULL "soup_request_http_get_message" result+    result' <- (wrapObject Message) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Objects/RequestHTTP.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.RequestHTTP where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP)+instance GObject RequestHTTP where+class GObject o => RequestHTTPK o+instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o
+ GI/Soup/Objects/Requester.hs view
@@ -0,0 +1,165 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Requester+    ( ++-- * Exported types+    Requester(..)                           ,+    RequesterK                              ,+    toRequester                             ,+    noRequester                             ,+++ -- * Methods+-- ** requesterNew+    requesterNew                            ,+++-- ** requesterRequest+    requesterRequest                        ,+++-- ** requesterRequestUri+    requesterRequestUri                     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype Requester = Requester (ForeignPtr Requester)+foreign import ccall "soup_requester_get_type"+    c_soup_requester_get_type :: IO GType++type instance ParentTypes Requester = RequesterParentTypes+type RequesterParentTypes = '[GObject.Object, SessionFeature]++instance GObject Requester where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_requester_get_type+    ++class GObject o => RequesterK o+instance (GObject o, IsDescendantOf Requester o) => RequesterK o++toRequester :: RequesterK o => o -> IO Requester+toRequester = unsafeCastTo Requester++noRequester :: Maybe Requester+noRequester = Nothing++type instance AttributeList Requester = RequesterAttributeList+type RequesterAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Requester = RequesterSignalList+type RequesterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Requester::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "Requester"+-- throws : False+-- Skip return : False++foreign import ccall "soup_requester_new" soup_requester_new :: +    IO (Ptr Requester)+++requesterNew ::+    (MonadIO m) =>+    m Requester+requesterNew  = liftIO $ do+    result <- soup_requester_new+    checkUnexpectedReturnNULL "soup_requester_new" result+    result' <- (wrapObject Requester) result+    return result'++-- method Requester::request+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Request"+-- throws : True+-- Skip return : False++foreign import ccall "soup_requester_request" soup_requester_request :: +    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"+    CString ->                              -- uri_string : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Request)+++requesterRequest ::+    (MonadIO m, RequesterK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri_string+    m Request+requesterRequest _obj uri_string = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri_string' <- textToCString uri_string+    onException (do+        result <- propagateGError $ soup_requester_request _obj' uri_string'+        checkUnexpectedReturnNULL "soup_requester_request" result+        result' <- (wrapObject Request) result+        touchManagedPtr _obj+        freeMem uri_string'+        return result'+     ) (do+        freeMem uri_string'+     )++-- method Requester::request_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Request"+-- throws : True+-- Skip return : False++foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: +    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Request)+++requesterRequestUri ::+    (MonadIO m, RequesterK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    m Request+requesterRequestUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    onException (do+        result <- propagateGError $ soup_requester_request_uri _obj' uri'+        checkUnexpectedReturnNULL "soup_requester_request_uri" result+        result' <- (wrapObject Request) result+        touchManagedPtr _obj+        touchManagedPtr uri+        return result'+     ) (do+        return ()+     )++
+ GI/Soup/Objects/Requester.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.Requester where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Requester = Requester (ForeignPtr Requester)+instance GObject Requester where+class GObject o => RequesterK o+instance (GObject o, IsDescendantOf Requester o) => RequesterK o
+ GI/Soup/Objects/Server.hs view
@@ -0,0 +1,1491 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Server+    ( ++-- * Exported types+    Server(..)                              ,+    ServerK                                 ,+    toServer                                ,+    noServer                                ,+++ -- * Methods+-- ** serverAcceptIostream+    serverAcceptIostream                    ,+++-- ** serverAddAuthDomain+    serverAddAuthDomain                     ,+++-- ** serverAddEarlyHandler+    serverAddEarlyHandler                   ,+++-- ** serverAddHandler+    serverAddHandler                        ,+++-- ** serverAddWebsocketHandler+    serverAddWebsocketHandler               ,+++-- ** serverDisconnect+    serverDisconnect                        ,+++-- ** serverGetAsyncContext+    serverGetAsyncContext                   ,+++-- ** serverGetListener+    serverGetListener                       ,+++-- ** serverGetListeners+    serverGetListeners                      ,+++-- ** serverGetPort+    serverGetPort                           ,+++-- ** serverGetUris+    serverGetUris                           ,+++-- ** serverIsHttps+    serverIsHttps                           ,+++-- ** serverListen+    serverListen                            ,+++-- ** serverListenAll+    serverListenAll                         ,+++-- ** serverListenFd+    serverListenFd                          ,+++-- ** serverListenLocal+    serverListenLocal                       ,+++-- ** serverListenSocket+    serverListenSocket                      ,+++-- ** serverPauseMessage+    serverPauseMessage                      ,+++-- ** serverQuit+    serverQuit                              ,+++-- ** serverRemoveAuthDomain+    serverRemoveAuthDomain                  ,+++-- ** serverRemoveHandler+    serverRemoveHandler                     ,+++-- ** serverRun+    serverRun                               ,+++-- ** serverRunAsync+    serverRunAsync                          ,+++-- ** serverSetSslCertFile+    serverSetSslCertFile                    ,+++-- ** serverUnpauseMessage+    serverUnpauseMessage                    ,+++++ -- * Properties+-- ** AsyncContext+    ServerAsyncContextPropertyInfo          ,+    constructServerAsyncContext             ,+    getServerAsyncContext                   ,+++-- ** HttpAliases+    ServerHttpAliasesPropertyInfo           ,+    constructServerHttpAliases              ,+    getServerHttpAliases                    ,+    setServerHttpAliases                    ,+++-- ** HttpsAliases+    ServerHttpsAliasesPropertyInfo          ,+    constructServerHttpsAliases             ,+    getServerHttpsAliases                   ,+    setServerHttpsAliases                   ,+++-- ** Interface+    ServerInterfacePropertyInfo             ,+    constructServerInterface                ,+    getServerInterface                      ,+++-- ** Port+    ServerPortPropertyInfo                  ,+    constructServerPort                     ,+    getServerPort                           ,+++-- ** RawPaths+    ServerRawPathsPropertyInfo              ,+    constructServerRawPaths                 ,+    getServerRawPaths                       ,+++-- ** ServerHeader+    ServerServerHeaderPropertyInfo          ,+    constructServerServerHeader             ,+    getServerServerHeader                   ,+    setServerServerHeader                   ,+++-- ** SslCertFile+    ServerSslCertFilePropertyInfo           ,+    constructServerSslCertFile              ,+    getServerSslCertFile                    ,+++-- ** SslKeyFile+    ServerSslKeyFilePropertyInfo            ,+    constructServerSslKeyFile               ,+    getServerSslKeyFile                     ,+++-- ** TlsCertificate+    ServerTlsCertificatePropertyInfo        ,+    constructServerTlsCertificate           ,+    getServerTlsCertificate                 ,+++++ -- * Signals+-- ** RequestAborted+    ServerRequestAbortedCallback            ,+    ServerRequestAbortedCallbackC           ,+    ServerRequestAbortedSignalInfo          ,+    afterServerRequestAborted               ,+    mkServerRequestAbortedCallback          ,+    noServerRequestAbortedCallback          ,+    onServerRequestAborted                  ,+    serverRequestAbortedCallbackWrapper     ,+    serverRequestAbortedClosure             ,+++-- ** RequestFinished+    ServerRequestFinishedCallback           ,+    ServerRequestFinishedCallbackC          ,+    ServerRequestFinishedSignalInfo         ,+    afterServerRequestFinished              ,+    mkServerRequestFinishedCallback         ,+    noServerRequestFinishedCallback         ,+    onServerRequestFinished                 ,+    serverRequestFinishedCallbackWrapper    ,+    serverRequestFinishedClosure            ,+++-- ** RequestRead+    ServerRequestReadCallback               ,+    ServerRequestReadCallbackC              ,+    ServerRequestReadSignalInfo             ,+    afterServerRequestRead                  ,+    mkServerRequestReadCallback             ,+    noServerRequestReadCallback             ,+    onServerRequestRead                     ,+    serverRequestReadCallbackWrapper        ,+    serverRequestReadClosure                ,+++-- ** RequestStarted+    ServerRequestStartedCallback            ,+    ServerRequestStartedCallbackC           ,+    ServerRequestStartedSignalInfo          ,+    afterServerRequestStarted               ,+    mkServerRequestStartedCallback          ,+    noServerRequestStartedCallback          ,+    onServerRequestStarted                  ,+    serverRequestStartedCallbackWrapper     ,+    serverRequestStartedClosure             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Server = Server (ForeignPtr Server)+foreign import ccall "soup_server_get_type"+    c_soup_server_get_type :: IO GType++type instance ParentTypes Server = ServerParentTypes+type ServerParentTypes = '[GObject.Object]++instance GObject Server where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_server_get_type+    ++class GObject o => ServerK o+instance (GObject o, IsDescendantOf Server o) => ServerK o++toServer :: ServerK o => o -> IO Server+toServer = unsafeCastTo Server++noServer :: Maybe Server+noServer = Nothing++-- signal Server::request-aborted+type ServerRequestAbortedCallback =+    Message ->+    ClientContext ->+    IO ()++noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback+noServerRequestAbortedCallback = Nothing++type ServerRequestAbortedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkServerRequestAbortedCallback :: ServerRequestAbortedCallbackC -> IO (FunPtr ServerRequestAbortedCallbackC)++serverRequestAbortedClosure :: ServerRequestAbortedCallback -> IO Closure+serverRequestAbortedClosure cb = newCClosure =<< mkServerRequestAbortedCallback wrapped+    where wrapped = serverRequestAbortedCallbackWrapper cb++serverRequestAbortedCallbackWrapper ::+    ServerRequestAbortedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverRequestAbortedCallbackWrapper _cb _ message client _ = do+    message' <- (newObject Message) message+    client' <- (newBoxed ClientContext) client+    _cb  message' client'++onServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId+onServerRequestAborted obj cb = liftIO $ connectServerRequestAborted obj cb SignalConnectBefore+afterServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId+afterServerRequestAborted obj cb = connectServerRequestAborted obj cb SignalConnectAfter++connectServerRequestAborted :: (GObject a, MonadIO m) =>+                               a -> ServerRequestAbortedCallback -> SignalConnectMode -> m SignalHandlerId+connectServerRequestAborted obj cb after = liftIO $ do+    cb' <- mkServerRequestAbortedCallback (serverRequestAbortedCallbackWrapper cb)+    connectSignalFunPtr obj "request-aborted" cb' after++-- signal Server::request-finished+type ServerRequestFinishedCallback =+    Message ->+    ClientContext ->+    IO ()++noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback+noServerRequestFinishedCallback = Nothing++type ServerRequestFinishedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkServerRequestFinishedCallback :: ServerRequestFinishedCallbackC -> IO (FunPtr ServerRequestFinishedCallbackC)++serverRequestFinishedClosure :: ServerRequestFinishedCallback -> IO Closure+serverRequestFinishedClosure cb = newCClosure =<< mkServerRequestFinishedCallback wrapped+    where wrapped = serverRequestFinishedCallbackWrapper cb++serverRequestFinishedCallbackWrapper ::+    ServerRequestFinishedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverRequestFinishedCallbackWrapper _cb _ message client _ = do+    message' <- (newObject Message) message+    client' <- (newBoxed ClientContext) client+    _cb  message' client'++onServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId+onServerRequestFinished obj cb = liftIO $ connectServerRequestFinished obj cb SignalConnectBefore+afterServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId+afterServerRequestFinished obj cb = connectServerRequestFinished obj cb SignalConnectAfter++connectServerRequestFinished :: (GObject a, MonadIO m) =>+                                a -> ServerRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId+connectServerRequestFinished obj cb after = liftIO $ do+    cb' <- mkServerRequestFinishedCallback (serverRequestFinishedCallbackWrapper cb)+    connectSignalFunPtr obj "request-finished" cb' after++-- signal Server::request-read+type ServerRequestReadCallback =+    Message ->+    ClientContext ->+    IO ()++noServerRequestReadCallback :: Maybe ServerRequestReadCallback+noServerRequestReadCallback = Nothing++type ServerRequestReadCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkServerRequestReadCallback :: ServerRequestReadCallbackC -> IO (FunPtr ServerRequestReadCallbackC)++serverRequestReadClosure :: ServerRequestReadCallback -> IO Closure+serverRequestReadClosure cb = newCClosure =<< mkServerRequestReadCallback wrapped+    where wrapped = serverRequestReadCallbackWrapper cb++serverRequestReadCallbackWrapper ::+    ServerRequestReadCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverRequestReadCallbackWrapper _cb _ message client _ = do+    message' <- (newObject Message) message+    client' <- (newBoxed ClientContext) client+    _cb  message' client'++onServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId+onServerRequestRead obj cb = liftIO $ connectServerRequestRead obj cb SignalConnectBefore+afterServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId+afterServerRequestRead obj cb = connectServerRequestRead obj cb SignalConnectAfter++connectServerRequestRead :: (GObject a, MonadIO m) =>+                            a -> ServerRequestReadCallback -> SignalConnectMode -> m SignalHandlerId+connectServerRequestRead obj cb after = liftIO $ do+    cb' <- mkServerRequestReadCallback (serverRequestReadCallbackWrapper cb)+    connectSignalFunPtr obj "request-read" cb' after++-- signal Server::request-started+type ServerRequestStartedCallback =+    Message ->+    ClientContext ->+    IO ()++noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback+noServerRequestStartedCallback = Nothing++type ServerRequestStartedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkServerRequestStartedCallback :: ServerRequestStartedCallbackC -> IO (FunPtr ServerRequestStartedCallbackC)++serverRequestStartedClosure :: ServerRequestStartedCallback -> IO Closure+serverRequestStartedClosure cb = newCClosure =<< mkServerRequestStartedCallback wrapped+    where wrapped = serverRequestStartedCallbackWrapper cb++serverRequestStartedCallbackWrapper ::+    ServerRequestStartedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr ClientContext ->+    Ptr () ->+    IO ()+serverRequestStartedCallbackWrapper _cb _ message client _ = do+    message' <- (newObject Message) message+    client' <- (newBoxed ClientContext) client+    _cb  message' client'++onServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId+onServerRequestStarted obj cb = liftIO $ connectServerRequestStarted obj cb SignalConnectBefore+afterServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId+afterServerRequestStarted obj cb = connectServerRequestStarted obj cb SignalConnectAfter++connectServerRequestStarted :: (GObject a, MonadIO m) =>+                               a -> ServerRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId+connectServerRequestStarted obj cb after = liftIO $ do+    cb' <- mkServerRequestStartedCallback (serverRequestStartedCallbackWrapper cb)+    connectSignalFunPtr obj "request-started" cb' after++-- VVV Prop "async-context"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerAsyncContext :: (MonadIO m, ServerK o) => o -> m (Ptr ())+getServerAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"++constructServerAsyncContext :: (Ptr ()) -> IO ([Char], GValue)+constructServerAsyncContext val = constructObjectPropertyPtr "async-context" val++data ServerAsyncContextPropertyInfo+instance AttrInfo ServerAsyncContextPropertyInfo where+    type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = ServerK+    type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ())+    type AttrLabel ServerAsyncContextPropertyInfo = "Server::async-context"+    attrGet _ = getServerAsyncContext+    attrSet _ = undefined+    attrConstruct _ = constructServerAsyncContext++-- VVV Prop "http-aliases"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable,PropertyWritable]++getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m [T.Text]+getServerHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"++setServerHttpAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()+setServerHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val++constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue)+constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" val++data ServerHttpAliasesPropertyInfo+instance AttrInfo ServerHttpAliasesPropertyInfo where+    type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text]+    type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK+    type AttrGetType ServerHttpAliasesPropertyInfo = [T.Text]+    type AttrLabel ServerHttpAliasesPropertyInfo = "Server::http-aliases"+    attrGet _ = getServerHttpAliases+    attrSet _ = setServerHttpAliases+    attrConstruct _ = constructServerHttpAliases++-- VVV Prop "https-aliases"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable,PropertyWritable]++getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m [T.Text]+getServerHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"++setServerHttpsAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()+setServerHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val++constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue)+constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val++data ServerHttpsAliasesPropertyInfo+instance AttrInfo ServerHttpsAliasesPropertyInfo where+    type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text]+    type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK+    type AttrGetType ServerHttpsAliasesPropertyInfo = [T.Text]+    type AttrLabel ServerHttpsAliasesPropertyInfo = "Server::https-aliases"+    attrGet _ = getServerHttpsAliases+    attrSet _ = setServerHttpsAliases+    attrConstruct _ = constructServerHttpsAliases++-- VVV Prop "interface"+   -- Type: TInterface "Soup" "Address"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerInterface :: (MonadIO m, ServerK o) => o -> m Address+getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address++constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue)+constructServerInterface val = constructObjectPropertyObject "interface" val++data ServerInterfacePropertyInfo+instance AttrInfo ServerInterfacePropertyInfo where+    type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK+    type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK+    type AttrGetType ServerInterfacePropertyInfo = Address+    type AttrLabel ServerInterfacePropertyInfo = "Server::interface"+    attrGet _ = getServerInterface+    attrSet _ = undefined+    attrConstruct _ = constructServerInterface++-- VVV Prop "port"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerPort :: (MonadIO m, ServerK o) => o -> m Word32+getServerPort obj = liftIO $ getObjectPropertyCUInt obj "port"++constructServerPort :: Word32 -> IO ([Char], GValue)+constructServerPort val = constructObjectPropertyCUInt "port" val++data ServerPortPropertyInfo+instance AttrInfo ServerPortPropertyInfo where+    type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint ServerPortPropertyInfo = ServerK+    type AttrGetType ServerPortPropertyInfo = Word32+    type AttrLabel ServerPortPropertyInfo = "Server::port"+    attrGet _ = getServerPort+    attrSet _ = undefined+    attrConstruct _ = constructServerPort++-- VVV Prop "raw-paths"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerRawPaths :: (MonadIO m, ServerK o) => o -> m Bool+getServerRawPaths obj = liftIO $ getObjectPropertyBool obj "raw-paths"++constructServerRawPaths :: Bool -> IO ([Char], GValue)+constructServerRawPaths val = constructObjectPropertyBool "raw-paths" val++data ServerRawPathsPropertyInfo+instance AttrInfo ServerRawPathsPropertyInfo where+    type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = ServerK+    type AttrGetType ServerRawPathsPropertyInfo = Bool+    type AttrLabel ServerRawPathsPropertyInfo = "Server::raw-paths"+    attrGet _ = getServerRawPaths+    attrSet _ = undefined+    attrConstruct _ = constructServerRawPaths++-- VVV Prop "server-header"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]++getServerServerHeader :: (MonadIO m, ServerK o) => o -> m T.Text+getServerServerHeader obj = liftIO $ getObjectPropertyString obj "server-header"++setServerServerHeader :: (MonadIO m, ServerK o) => o -> T.Text -> m ()+setServerServerHeader obj val = liftIO $ setObjectPropertyString obj "server-header" val++constructServerServerHeader :: T.Text -> IO ([Char], GValue)+constructServerServerHeader val = constructObjectPropertyString "server-header" val++data ServerServerHeaderPropertyInfo+instance AttrInfo ServerServerHeaderPropertyInfo where+    type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK+    type AttrGetType ServerServerHeaderPropertyInfo = T.Text+    type AttrLabel ServerServerHeaderPropertyInfo = "Server::server-header"+    attrGet _ = getServerServerHeader+    attrSet _ = setServerServerHeader+    attrConstruct _ = constructServerServerHeader++-- VVV Prop "ssl-cert-file"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m T.Text+getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file"++constructServerSslCertFile :: T.Text -> IO ([Char], GValue)+constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" val++data ServerSslCertFilePropertyInfo+instance AttrInfo ServerSslCertFilePropertyInfo where+    type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK+    type AttrGetType ServerSslCertFilePropertyInfo = T.Text+    type AttrLabel ServerSslCertFilePropertyInfo = "Server::ssl-cert-file"+    attrGet _ = getServerSslCertFile+    attrSet _ = undefined+    attrConstruct _ = constructServerSslCertFile++-- VVV Prop "ssl-key-file"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m T.Text+getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file"++constructServerSslKeyFile :: T.Text -> IO ([Char], GValue)+constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" val++data ServerSslKeyFilePropertyInfo+instance AttrInfo ServerSslKeyFilePropertyInfo where+    type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK+    type AttrGetType ServerSslKeyFilePropertyInfo = T.Text+    type AttrLabel ServerSslKeyFilePropertyInfo = "Server::ssl-key-file"+    attrGet _ = getServerSslKeyFile+    attrSet _ = undefined+    attrConstruct _ = constructServerSslKeyFile++-- VVV Prop "tls-certificate"+   -- Type: TInterface "Gio" "TlsCertificate"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m Gio.TlsCertificate+getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate++constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)+constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" val++data ServerTlsCertificatePropertyInfo+instance AttrInfo ServerTlsCertificatePropertyInfo where+    type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK+    type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK+    type AttrGetType ServerTlsCertificatePropertyInfo = Gio.TlsCertificate+    type AttrLabel ServerTlsCertificatePropertyInfo = "Server::tls-certificate"+    attrGet _ = getServerTlsCertificate+    attrSet _ = undefined+    attrConstruct _ = constructServerTlsCertificate++type instance AttributeList Server = ServerAttributeList+type ServerAttributeList = ('[ '("async-context", ServerAsyncContextPropertyInfo), '("http-aliases", ServerHttpAliasesPropertyInfo), '("https-aliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("raw-paths", ServerRawPathsPropertyInfo), '("server-header", ServerServerHeaderPropertyInfo), '("ssl-cert-file", ServerSslCertFilePropertyInfo), '("ssl-key-file", ServerSslKeyFilePropertyInfo), '("tls-certificate", ServerTlsCertificatePropertyInfo)] :: [(Symbol, *)])++data ServerRequestAbortedSignalInfo+instance SignalInfo ServerRequestAbortedSignalInfo where+    type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback+    connectSignal _ = connectServerRequestAborted++data ServerRequestFinishedSignalInfo+instance SignalInfo ServerRequestFinishedSignalInfo where+    type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback+    connectSignal _ = connectServerRequestFinished++data ServerRequestReadSignalInfo+instance SignalInfo ServerRequestReadSignalInfo where+    type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback+    connectSignal _ = connectServerRequestRead++data ServerRequestStartedSignalInfo+instance SignalInfo ServerRequestStartedSignalInfo where+    type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback+    connectSignal _ = connectServerRequestStarted++type instance SignalList Server = ServerSignalList+type ServerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("request-aborted", ServerRequestAbortedSignalInfo), '("request-finished", ServerRequestFinishedSignalInfo), '("request-read", ServerRequestReadSignalInfo), '("request-started", ServerRequestStartedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Server::accept_iostream+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"+    Ptr Gio.SocketAddress ->                -- local_addr : TInterface "Gio" "SocketAddress"+    Ptr Gio.SocketAddress ->                -- remote_addr : TInterface "Gio" "SocketAddress"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverAcceptIostream ::+    (MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) =>+    a ->                                    -- _obj+    b ->                                    -- stream+    Maybe (c) ->                            -- local_addr+    Maybe (d) ->                            -- remote_addr+    m ()+serverAcceptIostream _obj stream local_addr remote_addr = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let stream' = unsafeManagedPtrCastPtr stream+    maybeLocal_addr <- case local_addr of+        Nothing -> return nullPtr+        Just jLocal_addr -> do+            let jLocal_addr' = unsafeManagedPtrCastPtr jLocal_addr+            return jLocal_addr'+    maybeRemote_addr <- case remote_addr of+        Nothing -> return nullPtr+        Just jRemote_addr -> do+            let jRemote_addr' = unsafeManagedPtrCastPtr jRemote_addr+            return jRemote_addr'+    onException (do+        _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocal_addr maybeRemote_addr+        touchManagedPtr _obj+        touchManagedPtr stream+        whenJust local_addr touchManagedPtr+        whenJust remote_addr touchManagedPtr+        return ()+     ) (do+        return ()+     )++-- method Server::add_auth_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"+    IO ()+++serverAddAuthDomain ::+    (MonadIO m, ServerK a, AuthDomainK b) =>+    a ->                                    -- _obj+    b ->                                    -- auth_domain+    m ()+serverAddAuthDomain _obj auth_domain = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let auth_domain' = unsafeManagedPtrCastPtr auth_domain+    soup_server_add_auth_domain _obj' auth_domain'+    touchManagedPtr _obj+    touchManagedPtr auth_domain+    return ()++-- method Server::add_early_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    CString ->                              -- path : TBasicType TUTF8+    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++serverAddEarlyHandler ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- path+    ServerCallback ->                       -- callback+    m ()+serverAddEarlyHandler _obj path callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybePath <- case path of+        Nothing -> return nullPtr+        Just jPath -> do+            jPath' <- textToCString jPath+            return jPath'+    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)+    let user_data = castFunPtrToPtr callback'+    let destroy = safeFreeFunPtrPtr+    soup_server_add_early_handler _obj' maybePath callback' user_data destroy+    touchManagedPtr _obj+    freeMem maybePath+    return ()++-- method Server::add_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_add_handler" soup_server_add_handler :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    CString ->                              -- path : TBasicType TUTF8+    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++serverAddHandler ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- path+    ServerCallback ->                       -- callback+    m ()+serverAddHandler _obj path callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybePath <- case path of+        Nothing -> return nullPtr+        Just jPath -> do+            jPath' <- textToCString jPath+            return jPath'+    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)+    let user_data = castFunPtrToPtr callback'+    let destroy = safeFreeFunPtrPtr+    soup_server_add_handler _obj' maybePath callback' user_data destroy+    touchManagedPtr _obj+    freeMem maybePath+    return ()++-- method Server::add_websocket_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    CString ->                              -- path : TBasicType TUTF8+    CString ->                              -- origin : TBasicType TUTF8+    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)+    FunPtr ServerWebsocketCallbackC ->      -- callback : TInterface "Soup" "ServerWebsocketCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"+    IO ()+++serverAddWebsocketHandler ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- path+    Maybe (T.Text) ->                       -- origin+    Maybe ([T.Text]) ->                     -- protocols+    ServerWebsocketCallback ->              -- callback+    m ()+serverAddWebsocketHandler _obj path origin protocols callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybePath <- case path of+        Nothing -> return nullPtr+        Just jPath -> do+            jPath' <- textToCString jPath+            return jPath'+    maybeOrigin <- case origin of+        Nothing -> return nullPtr+        Just jOrigin -> do+            jOrigin' <- textToCString jOrigin+            return jOrigin'+    maybeProtocols <- case protocols of+        Nothing -> return nullPtr+        Just jProtocols -> do+            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols+            return jProtocols'+    callback' <- mkServerWebsocketCallback (serverWebsocketCallbackWrapper Nothing callback)+    let user_data = castFunPtrToPtr callback'+    let destroy = safeFreeFunPtrPtr+    soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' user_data destroy+    touchManagedPtr _obj+    freeMem maybePath+    freeMem maybeOrigin+    mapZeroTerminatedCArray freeMem maybeProtocols+    freeMem maybeProtocols+    return ()++-- method Server::disconnect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_disconnect" soup_server_disconnect :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO ()+++serverDisconnect ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m ()+serverDisconnect _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_server_disconnect _obj'+    touchManagedPtr _obj+    return ()++-- method Server::get_async_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO (Ptr GLib.MainContext)++{-# DEPRECATED serverGetAsyncContext ["If you are using soup_server_listen(), etc, then","the server listens on the thread-default #GMainContext, and this","property is ignored."]#-}+serverGetAsyncContext ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m GLib.MainContext+serverGetAsyncContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_get_async_context _obj'+    checkUnexpectedReturnNULL "soup_server_get_async_context" result+    result' <- (newBoxed GLib.MainContext) result+    touchManagedPtr _obj+    return result'++-- method Server::get_listener+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Socket"+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_get_listener" soup_server_get_listener :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO (Ptr Socket)++{-# DEPRECATED serverGetListener ["If you are using soup_server_listen(), etc, then use","soup_server_get_listeners() to get a list of all listening sockets,","but note that that function returns #GSockets, not #SoupSockets."]#-}+serverGetListener ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m Socket+serverGetListener _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_get_listener _obj'+    checkUnexpectedReturnNULL "soup_server_get_listener" result+    result' <- (newObject Socket) result+    touchManagedPtr _obj+    return result'++-- method Server::get_listeners+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Gio" "Socket")+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO (Ptr (GSList (Ptr Gio.Socket)))+++serverGetListeners ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m [Gio.Socket]+serverGetListeners _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_get_listeners _obj'+    checkUnexpectedReturnNULL "soup_server_get_listeners" result+    result' <- unpackGSList result+    result'' <- mapM (newObject Gio.Socket) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method Server::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_get_port" soup_server_get_port :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO Word32++{-# DEPRECATED serverGetPort ["If you are using soup_server_listen(), etc, then use","soup_server_get_uris() to get a list of all listening addresses."]#-}+serverGetPort ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m Word32+serverGetPort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_get_port _obj'+    touchManagedPtr _obj+    return result++-- method Server::get_uris+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "URI")+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_get_uris" soup_server_get_uris :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO (Ptr (GSList (Ptr URI)))+++serverGetUris ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m [URI]+serverGetUris _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_get_uris _obj'+    checkUnexpectedReturnNULL "soup_server_get_uris" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed URI) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method Server::is_https+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_is_https" soup_server_is_https :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO CInt+++serverIsHttps ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m Bool+serverIsHttps _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_server_is_https _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Server::listen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_listen" soup_server_listen :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr Gio.SocketAddress ->                -- address : TInterface "Gio" "SocketAddress"+    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverListen ::+    (MonadIO m, ServerK a, Gio.SocketAddressK b) =>+    a ->                                    -- _obj+    b ->                                    -- address+    [ServerListenOptions] ->                -- options+    m ()+serverListen _obj address options = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let address' = unsafeManagedPtrCastPtr address+    let options' = gflagsToWord options+    onException (do+        _ <- propagateGError $ soup_server_listen _obj' address' options'+        touchManagedPtr _obj+        touchManagedPtr address+        return ()+     ) (do+        return ()+     )++-- method Server::listen_all+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_listen_all" soup_server_listen_all :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Word32 ->                               -- port : TBasicType TUInt32+    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverListenAll ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- port+    [ServerListenOptions] ->                -- options+    m ()+serverListenAll _obj port options = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let options' = gflagsToWord options+    onException (do+        _ <- propagateGError $ soup_server_listen_all _obj' port options'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method Server::listen_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_listen_fd" soup_server_listen_fd :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Int32 ->                                -- fd : TBasicType TInt32+    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverListenFd ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- fd+    [ServerListenOptions] ->                -- options+    m ()+serverListenFd _obj fd options = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let options' = gflagsToWord options+    onException (do+        _ <- propagateGError $ soup_server_listen_fd _obj' fd options'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method Server::listen_local+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_listen_local" soup_server_listen_local :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Word32 ->                               -- port : TBasicType TUInt32+    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverListenLocal ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- port+    [ServerListenOptions] ->                -- options+    m ()+serverListenLocal _obj port options = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let options' = gflagsToWord options+    onException (do+        _ <- propagateGError $ soup_server_listen_local _obj' port options'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method Server::listen_socket+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_listen_socket" soup_server_listen_socket :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr Gio.Socket ->                       -- socket : TInterface "Gio" "Socket"+    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverListenSocket ::+    (MonadIO m, ServerK a, Gio.SocketK b) =>+    a ->                                    -- _obj+    b ->                                    -- socket+    [ServerListenOptions] ->                -- options+    m ()+serverListenSocket _obj socket options = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let socket' = unsafeManagedPtrCastPtr socket+    let options' = gflagsToWord options+    onException (do+        _ <- propagateGError $ soup_server_listen_socket _obj' socket' options'+        touchManagedPtr _obj+        touchManagedPtr socket+        return ()+     ) (do+        return ()+     )++-- method Server::pause_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_pause_message" soup_server_pause_message :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++serverPauseMessage ::+    (MonadIO m, ServerK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+serverPauseMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_server_pause_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Server::quit+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_quit" soup_server_quit :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO ()++{-# DEPRECATED serverQuit ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}+serverQuit ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m ()+serverQuit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_server_quit _obj'+    touchManagedPtr _obj+    return ()++-- method Server::remove_auth_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"+    IO ()+++serverRemoveAuthDomain ::+    (MonadIO m, ServerK a, AuthDomainK b) =>+    a ->                                    -- _obj+    b ->                                    -- auth_domain+    m ()+serverRemoveAuthDomain _obj auth_domain = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let auth_domain' = unsafeManagedPtrCastPtr auth_domain+    soup_server_remove_auth_domain _obj' auth_domain'+    touchManagedPtr _obj+    touchManagedPtr auth_domain+    return ()++-- method Server::remove_handler+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_remove_handler" soup_server_remove_handler :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++serverRemoveHandler ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- path+    m ()+serverRemoveHandler _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    path' <- textToCString path+    soup_server_remove_handler _obj' path'+    touchManagedPtr _obj+    freeMem path'+    return ()++-- method Server::run+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_run" soup_server_run :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO ()++{-# DEPRECATED serverRun ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}+serverRun ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m ()+serverRun _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_server_run _obj'+    touchManagedPtr _obj+    return ()++-- method Server::run_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_run_async" soup_server_run_async :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    IO ()++{-# DEPRECATED serverRunAsync ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}+serverRunAsync ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    m ()+serverRunAsync _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_server_run_async _obj'+    touchManagedPtr _obj+    return ()++-- method Server::set_ssl_cert_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "soup_server_set_ssl_cert_file" soup_server_set_ssl_cert_file :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    CString ->                              -- ssl_cert_file : TBasicType TUTF8+    CString ->                              -- ssl_key_file : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++serverSetSslCertFile ::+    (MonadIO m, ServerK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- ssl_cert_file+    T.Text ->                               -- ssl_key_file+    m ()+serverSetSslCertFile _obj ssl_cert_file ssl_key_file = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    ssl_cert_file' <- textToCString ssl_cert_file+    ssl_key_file' <- textToCString ssl_key_file+    onException (do+        _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' ssl_cert_file' ssl_key_file'+        touchManagedPtr _obj+        freeMem ssl_cert_file'+        freeMem ssl_key_file'+        return ()+     ) (do+        freeMem ssl_cert_file'+        freeMem ssl_key_file'+     )++-- method Server::unpause_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_server_unpause_message" soup_server_unpause_message :: +    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++serverUnpauseMessage ::+    (MonadIO m, ServerK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+serverUnpauseMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_server_unpause_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++
+ GI/Soup/Objects/Server.hs-boot view
@@ -0,0 +1,27 @@+module GI.Soup.Objects.Server where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Server = Server (ForeignPtr Server)+instance GObject Server where+class GObject o => ServerK o+instance (GObject o, IsDescendantOf Server o) => ServerK o+data ServerAsyncContextPropertyInfo+data ServerHttpAliasesPropertyInfo+data ServerHttpsAliasesPropertyInfo+data ServerInterfacePropertyInfo+data ServerPortPropertyInfo+data ServerRawPathsPropertyInfo+data ServerServerHeaderPropertyInfo+data ServerSslCertFilePropertyInfo+data ServerSslKeyFilePropertyInfo+data ServerTlsCertificatePropertyInfo+data ServerRequestAbortedSignalInfo+data ServerRequestFinishedSignalInfo+data ServerRequestReadSignalInfo+data ServerRequestStartedSignalInfo
+ GI/Soup/Objects/Session.hs view
@@ -0,0 +1,2191 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Session+    ( ++-- * Exported types+    Session(..)                             ,+    SessionK                                ,+    toSession                               ,+    noSession                               ,+++ -- * Methods+-- ** sessionAbort+    sessionAbort                            ,+++-- ** sessionAddFeature+    sessionAddFeature                       ,+++-- ** sessionAddFeatureByType+    sessionAddFeatureByType                 ,+++-- ** sessionCancelMessage+    sessionCancelMessage                    ,+++-- ** sessionGetAsyncContext+    sessionGetAsyncContext                  ,+++-- ** sessionGetFeature+    sessionGetFeature                       ,+++-- ** sessionGetFeatureForMessage+    sessionGetFeatureForMessage             ,+++-- ** sessionGetFeatures+    sessionGetFeatures                      ,+++-- ** sessionHasFeature+    sessionHasFeature                       ,+++-- ** sessionNew+    sessionNew                              ,+++-- ** sessionPauseMessage+    sessionPauseMessage                     ,+++-- ** sessionPrefetchDns+    sessionPrefetchDns                      ,+++-- ** sessionPrepareForUri+    sessionPrepareForUri                    ,+++-- ** sessionQueueMessage+    sessionQueueMessage                     ,+++-- ** sessionRedirectMessage+    sessionRedirectMessage                  ,+++-- ** sessionRemoveFeature+    sessionRemoveFeature                    ,+++-- ** sessionRemoveFeatureByType+    sessionRemoveFeatureByType              ,+++-- ** sessionRequest+    sessionRequest                          ,+++-- ** sessionRequestHttp+    sessionRequestHttp                      ,+++-- ** sessionRequestHttpUri+    sessionRequestHttpUri                   ,+++-- ** sessionRequestUri+    sessionRequestUri                       ,+++-- ** sessionRequeueMessage+    sessionRequeueMessage                   ,+++-- ** sessionSend+    sessionSend                             ,+++-- ** sessionSendAsync+    sessionSendAsync                        ,+++-- ** sessionSendFinish+    sessionSendFinish                       ,+++-- ** sessionSendMessage+    sessionSendMessage                      ,+++-- ** sessionStealConnection+    sessionStealConnection                  ,+++-- ** sessionUnpauseMessage+    sessionUnpauseMessage                   ,+++-- ** sessionWebsocketConnectAsync+    sessionWebsocketConnectAsync            ,+++-- ** sessionWebsocketConnectFinish+    sessionWebsocketConnectFinish           ,+++-- ** sessionWouldRedirect+    sessionWouldRedirect                    ,+++++ -- * Properties+-- ** AcceptLanguage+    SessionAcceptLanguagePropertyInfo       ,+    constructSessionAcceptLanguage          ,+    getSessionAcceptLanguage                ,+    setSessionAcceptLanguage                ,+++-- ** AcceptLanguageAuto+    SessionAcceptLanguageAutoPropertyInfo   ,+    constructSessionAcceptLanguageAuto      ,+    getSessionAcceptLanguageAuto            ,+    setSessionAcceptLanguageAuto            ,+++-- ** AsyncContext+    SessionAsyncContextPropertyInfo         ,+    constructSessionAsyncContext            ,+    getSessionAsyncContext                  ,+++-- ** HttpAliases+    SessionHttpAliasesPropertyInfo          ,+    constructSessionHttpAliases             ,+    getSessionHttpAliases                   ,+    setSessionHttpAliases                   ,+++-- ** HttpsAliases+    SessionHttpsAliasesPropertyInfo         ,+    constructSessionHttpsAliases            ,+    getSessionHttpsAliases                  ,+    setSessionHttpsAliases                  ,+++-- ** IdleTimeout+    SessionIdleTimeoutPropertyInfo          ,+    constructSessionIdleTimeout             ,+    getSessionIdleTimeout                   ,+    setSessionIdleTimeout                   ,+++-- ** LocalAddress+    SessionLocalAddressPropertyInfo         ,+    constructSessionLocalAddress            ,+    getSessionLocalAddress                  ,+++-- ** MaxConns+    SessionMaxConnsPropertyInfo             ,+    constructSessionMaxConns                ,+    getSessionMaxConns                      ,+    setSessionMaxConns                      ,+++-- ** MaxConnsPerHost+    SessionMaxConnsPerHostPropertyInfo      ,+    constructSessionMaxConnsPerHost         ,+    getSessionMaxConnsPerHost               ,+    setSessionMaxConnsPerHost               ,+++-- ** ProxyResolver+    SessionProxyResolverPropertyInfo        ,+    constructSessionProxyResolver           ,+    getSessionProxyResolver                 ,+    setSessionProxyResolver                 ,+++-- ** ProxyUri+    SessionProxyUriPropertyInfo             ,+    constructSessionProxyUri                ,+    getSessionProxyUri                      ,+    setSessionProxyUri                      ,+++-- ** SslCaFile+    SessionSslCaFilePropertyInfo            ,+    constructSessionSslCaFile               ,+    getSessionSslCaFile                     ,+    setSessionSslCaFile                     ,+++-- ** SslStrict+    SessionSslStrictPropertyInfo            ,+    constructSessionSslStrict               ,+    getSessionSslStrict                     ,+    setSessionSslStrict                     ,+++-- ** SslUseSystemCaFile+    SessionSslUseSystemCaFilePropertyInfo   ,+    constructSessionSslUseSystemCaFile      ,+    getSessionSslUseSystemCaFile            ,+    setSessionSslUseSystemCaFile            ,+++-- ** Timeout+    SessionTimeoutPropertyInfo              ,+    constructSessionTimeout                 ,+    getSessionTimeout                       ,+    setSessionTimeout                       ,+++-- ** TlsDatabase+    SessionTlsDatabasePropertyInfo          ,+    constructSessionTlsDatabase             ,+    getSessionTlsDatabase                   ,+    setSessionTlsDatabase                   ,+++-- ** TlsInteraction+    SessionTlsInteractionPropertyInfo       ,+    constructSessionTlsInteraction          ,+    getSessionTlsInteraction                ,+    setSessionTlsInteraction                ,+++-- ** UseNtlm+    SessionUseNtlmPropertyInfo              ,+    constructSessionUseNtlm                 ,+    getSessionUseNtlm                       ,+    setSessionUseNtlm                       ,+++-- ** UseThreadContext+    SessionUseThreadContextPropertyInfo     ,+    constructSessionUseThreadContext        ,+    getSessionUseThreadContext              ,+    setSessionUseThreadContext              ,+++-- ** UserAgent+    SessionUserAgentPropertyInfo            ,+    constructSessionUserAgent               ,+    getSessionUserAgent                     ,+    setSessionUserAgent                     ,+++++ -- * Signals+-- ** Authenticate+    SessionAuthenticateCallback             ,+    SessionAuthenticateCallbackC            ,+    SessionAuthenticateSignalInfo           ,+    afterSessionAuthenticate                ,+    mkSessionAuthenticateCallback           ,+    noSessionAuthenticateCallback           ,+    onSessionAuthenticate                   ,+    sessionAuthenticateCallbackWrapper      ,+    sessionAuthenticateClosure              ,+++-- ** ConnectionCreated+    SessionConnectionCreatedCallback        ,+    SessionConnectionCreatedCallbackC       ,+    SessionConnectionCreatedSignalInfo      ,+    afterSessionConnectionCreated           ,+    mkSessionConnectionCreatedCallback      ,+    noSessionConnectionCreatedCallback      ,+    onSessionConnectionCreated              ,+    sessionConnectionCreatedCallbackWrapper ,+    sessionConnectionCreatedClosure         ,+++-- ** RequestQueued+    SessionRequestQueuedCallback            ,+    SessionRequestQueuedCallbackC           ,+    SessionRequestQueuedSignalInfo          ,+    afterSessionRequestQueued               ,+    mkSessionRequestQueuedCallback          ,+    noSessionRequestQueuedCallback          ,+    onSessionRequestQueued                  ,+    sessionRequestQueuedCallbackWrapper     ,+    sessionRequestQueuedClosure             ,+++-- ** RequestStarted+    SessionRequestStartedCallback           ,+    SessionRequestStartedCallbackC          ,+    SessionRequestStartedSignalInfo         ,+    afterSessionRequestStarted              ,+    mkSessionRequestStartedCallback         ,+    noSessionRequestStartedCallback         ,+    onSessionRequestStarted                 ,+    sessionRequestStartedCallbackWrapper    ,+    sessionRequestStartedClosure            ,+++-- ** RequestUnqueued+    SessionRequestUnqueuedCallback          ,+    SessionRequestUnqueuedCallbackC         ,+    SessionRequestUnqueuedSignalInfo        ,+    afterSessionRequestUnqueued             ,+    mkSessionRequestUnqueuedCallback        ,+    noSessionRequestUnqueuedCallback        ,+    onSessionRequestUnqueued                ,+    sessionRequestUnqueuedCallbackWrapper   ,+    sessionRequestUnqueuedClosure           ,+++-- ** Tunneling+    SessionTunnelingCallback                ,+    SessionTunnelingCallbackC               ,+    SessionTunnelingSignalInfo              ,+    afterSessionTunneling                   ,+    mkSessionTunnelingCallback              ,+    noSessionTunnelingCallback              ,+    onSessionTunneling                      ,+    sessionTunnelingCallbackWrapper         ,+    sessionTunnelingClosure                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Session = Session (ForeignPtr Session)+foreign import ccall "soup_session_get_type"+    c_soup_session_get_type :: IO GType++type instance ParentTypes Session = SessionParentTypes+type SessionParentTypes = '[GObject.Object]++instance GObject Session where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_session_get_type+    ++class GObject o => SessionK o+instance (GObject o, IsDescendantOf Session o) => SessionK o++toSession :: SessionK o => o -> IO Session+toSession = unsafeCastTo Session++noSession :: Maybe Session+noSession = Nothing++-- signal Session::authenticate+type SessionAuthenticateCallback =+    Message ->+    Auth ->+    Bool ->+    IO ()++noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback+noSessionAuthenticateCallback = Nothing++type SessionAuthenticateCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionAuthenticateCallback :: SessionAuthenticateCallbackC -> IO (FunPtr SessionAuthenticateCallbackC)++sessionAuthenticateClosure :: SessionAuthenticateCallback -> IO Closure+sessionAuthenticateClosure cb = newCClosure =<< mkSessionAuthenticateCallback wrapped+    where wrapped = sessionAuthenticateCallbackWrapper cb++sessionAuthenticateCallbackWrapper ::+    SessionAuthenticateCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr Auth ->+    CInt ->+    Ptr () ->+    IO ()+sessionAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do+    msg' <- (newObject Message) msg+    auth' <- (newObject Auth) auth+    let retrying' = (/= 0) retrying+    _cb  msg' auth' retrying'++onSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId+onSessionAuthenticate obj cb = liftIO $ connectSessionAuthenticate obj cb SignalConnectBefore+afterSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId+afterSessionAuthenticate obj cb = connectSessionAuthenticate obj cb SignalConnectAfter++connectSessionAuthenticate :: (GObject a, MonadIO m) =>+                              a -> SessionAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionAuthenticate obj cb after = liftIO $ do+    cb' <- mkSessionAuthenticateCallback (sessionAuthenticateCallbackWrapper cb)+    connectSignalFunPtr obj "authenticate" cb' after++-- signal Session::connection-created+type SessionConnectionCreatedCallback =+    GObject.Object ->+    IO ()++noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback+noSessionConnectionCreatedCallback = Nothing++type SessionConnectionCreatedCallbackC =+    Ptr () ->                               -- object+    Ptr GObject.Object ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionConnectionCreatedCallback :: SessionConnectionCreatedCallbackC -> IO (FunPtr SessionConnectionCreatedCallbackC)++sessionConnectionCreatedClosure :: SessionConnectionCreatedCallback -> IO Closure+sessionConnectionCreatedClosure cb = newCClosure =<< mkSessionConnectionCreatedCallback wrapped+    where wrapped = sessionConnectionCreatedCallbackWrapper cb++sessionConnectionCreatedCallbackWrapper ::+    SessionConnectionCreatedCallback ->+    Ptr () ->+    Ptr GObject.Object ->+    Ptr () ->+    IO ()+sessionConnectionCreatedCallbackWrapper _cb _ connection _ = do+    connection' <- (newObject GObject.Object) connection+    _cb  connection'++onSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId+onSessionConnectionCreated obj cb = liftIO $ connectSessionConnectionCreated obj cb SignalConnectBefore+afterSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId+afterSessionConnectionCreated obj cb = connectSessionConnectionCreated obj cb SignalConnectAfter++connectSessionConnectionCreated :: (GObject a, MonadIO m) =>+                                   a -> SessionConnectionCreatedCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionConnectionCreated obj cb after = liftIO $ do+    cb' <- mkSessionConnectionCreatedCallback (sessionConnectionCreatedCallbackWrapper cb)+    connectSignalFunPtr obj "connection-created" cb' after++-- signal Session::request-queued+type SessionRequestQueuedCallback =+    Message ->+    IO ()++noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback+noSessionRequestQueuedCallback = Nothing++type SessionRequestQueuedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionRequestQueuedCallback :: SessionRequestQueuedCallbackC -> IO (FunPtr SessionRequestQueuedCallbackC)++sessionRequestQueuedClosure :: SessionRequestQueuedCallback -> IO Closure+sessionRequestQueuedClosure cb = newCClosure =<< mkSessionRequestQueuedCallback wrapped+    where wrapped = sessionRequestQueuedCallbackWrapper cb++sessionRequestQueuedCallbackWrapper ::+    SessionRequestQueuedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr () ->+    IO ()+sessionRequestQueuedCallbackWrapper _cb _ msg _ = do+    msg' <- (newObject Message) msg+    _cb  msg'++onSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId+onSessionRequestQueued obj cb = liftIO $ connectSessionRequestQueued obj cb SignalConnectBefore+afterSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId+afterSessionRequestQueued obj cb = connectSessionRequestQueued obj cb SignalConnectAfter++connectSessionRequestQueued :: (GObject a, MonadIO m) =>+                               a -> SessionRequestQueuedCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionRequestQueued obj cb after = liftIO $ do+    cb' <- mkSessionRequestQueuedCallback (sessionRequestQueuedCallbackWrapper cb)+    connectSignalFunPtr obj "request-queued" cb' after++-- signal Session::request-started+type SessionRequestStartedCallback =+    Message ->+    Socket ->+    IO ()++noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback+noSessionRequestStartedCallback = Nothing++type SessionRequestStartedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr Socket ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionRequestStartedCallback :: SessionRequestStartedCallbackC -> IO (FunPtr SessionRequestStartedCallbackC)++sessionRequestStartedClosure :: SessionRequestStartedCallback -> IO Closure+sessionRequestStartedClosure cb = newCClosure =<< mkSessionRequestStartedCallback wrapped+    where wrapped = sessionRequestStartedCallbackWrapper cb++sessionRequestStartedCallbackWrapper ::+    SessionRequestStartedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr Socket ->+    Ptr () ->+    IO ()+sessionRequestStartedCallbackWrapper _cb _ msg socket _ = do+    msg' <- (newObject Message) msg+    socket' <- (newObject Socket) socket+    _cb  msg' socket'++onSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId+onSessionRequestStarted obj cb = liftIO $ connectSessionRequestStarted obj cb SignalConnectBefore+afterSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId+afterSessionRequestStarted obj cb = connectSessionRequestStarted obj cb SignalConnectAfter++connectSessionRequestStarted :: (GObject a, MonadIO m) =>+                                a -> SessionRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionRequestStarted obj cb after = liftIO $ do+    cb' <- mkSessionRequestStartedCallback (sessionRequestStartedCallbackWrapper cb)+    connectSignalFunPtr obj "request-started" cb' after++-- signal Session::request-unqueued+type SessionRequestUnqueuedCallback =+    Message ->+    IO ()++noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback+noSessionRequestUnqueuedCallback = Nothing++type SessionRequestUnqueuedCallbackC =+    Ptr () ->                               -- object+    Ptr Message ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionRequestUnqueuedCallback :: SessionRequestUnqueuedCallbackC -> IO (FunPtr SessionRequestUnqueuedCallbackC)++sessionRequestUnqueuedClosure :: SessionRequestUnqueuedCallback -> IO Closure+sessionRequestUnqueuedClosure cb = newCClosure =<< mkSessionRequestUnqueuedCallback wrapped+    where wrapped = sessionRequestUnqueuedCallbackWrapper cb++sessionRequestUnqueuedCallbackWrapper ::+    SessionRequestUnqueuedCallback ->+    Ptr () ->+    Ptr Message ->+    Ptr () ->+    IO ()+sessionRequestUnqueuedCallbackWrapper _cb _ msg _ = do+    msg' <- (newObject Message) msg+    _cb  msg'++onSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId+onSessionRequestUnqueued obj cb = liftIO $ connectSessionRequestUnqueued obj cb SignalConnectBefore+afterSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId+afterSessionRequestUnqueued obj cb = connectSessionRequestUnqueued obj cb SignalConnectAfter++connectSessionRequestUnqueued :: (GObject a, MonadIO m) =>+                                 a -> SessionRequestUnqueuedCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionRequestUnqueued obj cb after = liftIO $ do+    cb' <- mkSessionRequestUnqueuedCallback (sessionRequestUnqueuedCallbackWrapper cb)+    connectSignalFunPtr obj "request-unqueued" cb' after++-- signal Session::tunneling+type SessionTunnelingCallback =+    GObject.Object ->+    IO ()++noSessionTunnelingCallback :: Maybe SessionTunnelingCallback+noSessionTunnelingCallback = Nothing++type SessionTunnelingCallbackC =+    Ptr () ->                               -- object+    Ptr GObject.Object ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSessionTunnelingCallback :: SessionTunnelingCallbackC -> IO (FunPtr SessionTunnelingCallbackC)++sessionTunnelingClosure :: SessionTunnelingCallback -> IO Closure+sessionTunnelingClosure cb = newCClosure =<< mkSessionTunnelingCallback wrapped+    where wrapped = sessionTunnelingCallbackWrapper cb++sessionTunnelingCallbackWrapper ::+    SessionTunnelingCallback ->+    Ptr () ->+    Ptr GObject.Object ->+    Ptr () ->+    IO ()+sessionTunnelingCallbackWrapper _cb _ connection _ = do+    connection' <- (newObject GObject.Object) connection+    _cb  connection'++onSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId+onSessionTunneling obj cb = liftIO $ connectSessionTunneling obj cb SignalConnectBefore+afterSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId+afterSessionTunneling obj cb = connectSessionTunneling obj cb SignalConnectAfter++connectSessionTunneling :: (GObject a, MonadIO m) =>+                           a -> SessionTunnelingCallback -> SignalConnectMode -> m SignalHandlerId+connectSessionTunneling obj cb after = liftIO $ do+    cb' <- mkSessionTunnelingCallback (sessionTunnelingCallbackWrapper cb)+    connectSignalFunPtr obj "tunneling" cb' after++-- VVV Prop "accept-language"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m T.Text+getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language"++setSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> T.Text -> m ()+setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" val++constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue)+constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" val++data SessionAcceptLanguagePropertyInfo+instance AttrInfo SessionAcceptLanguagePropertyInfo where+    type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = SessionK+    type AttrGetType SessionAcceptLanguagePropertyInfo = T.Text+    type AttrLabel SessionAcceptLanguagePropertyInfo = "Session::accept-language"+    attrGet _ = getSessionAcceptLanguage+    attrSet _ = setSessionAcceptLanguage+    attrConstruct _ = constructSessionAcceptLanguage++-- VVV Prop "accept-language-auto"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> m Bool+getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto"++setSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> Bool -> m ()+setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val++constructSessionAcceptLanguageAuto :: Bool -> IO ([Char], GValue)+constructSessionAcceptLanguageAuto val = constructObjectPropertyBool "accept-language-auto" val++data SessionAcceptLanguageAutoPropertyInfo+instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where+    type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = SessionK+    type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool+    type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "Session::accept-language-auto"+    attrGet _ = getSessionAcceptLanguageAuto+    attrSet _ = setSessionAcceptLanguageAuto+    attrConstruct _ = constructSessionAcceptLanguageAuto++-- VVV Prop "async-context"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSessionAsyncContext :: (MonadIO m, SessionK o) => o -> m (Ptr ())+getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"++constructSessionAsyncContext :: (Ptr ()) -> IO ([Char], GValue)+constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val++data SessionAsyncContextPropertyInfo+instance AttrInfo SessionAsyncContextPropertyInfo where+    type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = SessionK+    type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ())+    type AttrLabel SessionAsyncContextPropertyInfo = "Session::async-context"+    attrGet _ = getSessionAsyncContext+    attrSet _ = undefined+    attrConstruct _ = constructSessionAsyncContext++-- VVV Prop "http-aliases"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m [T.Text]+getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"++setSessionHttpAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()+setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val++constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue)+constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" val++data SessionHttpAliasesPropertyInfo+instance AttrInfo SessionHttpAliasesPropertyInfo where+    type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text]+    type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = SessionK+    type AttrGetType SessionHttpAliasesPropertyInfo = [T.Text]+    type AttrLabel SessionHttpAliasesPropertyInfo = "Session::http-aliases"+    attrGet _ = getSessionHttpAliases+    attrSet _ = setSessionHttpAliases+    attrConstruct _ = constructSessionHttpAliases++-- VVV Prop "https-aliases"+   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m [T.Text]+getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"++setSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()+setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val++constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue)+constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val++data SessionHttpsAliasesPropertyInfo+instance AttrInfo SessionHttpsAliasesPropertyInfo where+    type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text]+    type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = SessionK+    type AttrGetType SessionHttpsAliasesPropertyInfo = [T.Text]+    type AttrLabel SessionHttpsAliasesPropertyInfo = "Session::https-aliases"+    attrGet _ = getSessionHttpsAliases+    attrSet _ = setSessionHttpsAliases+    attrConstruct _ = constructSessionHttpsAliases++-- VVV Prop "idle-timeout"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32+getSessionIdleTimeout obj = liftIO $ getObjectPropertyCUInt obj "idle-timeout"++setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()+setSessionIdleTimeout obj val = liftIO $ setObjectPropertyCUInt obj "idle-timeout" val++constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue)+constructSessionIdleTimeout val = constructObjectPropertyCUInt "idle-timeout" val++data SessionIdleTimeoutPropertyInfo+instance AttrInfo SessionIdleTimeoutPropertyInfo where+    type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = SessionK+    type AttrGetType SessionIdleTimeoutPropertyInfo = Word32+    type AttrLabel SessionIdleTimeoutPropertyInfo = "Session::idle-timeout"+    attrGet _ = getSessionIdleTimeout+    attrSet _ = setSessionIdleTimeout+    attrConstruct _ = constructSessionIdleTimeout++-- VVV Prop "local-address"+   -- Type: TInterface "Soup" "Address"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m Address+getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address++constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)+constructSessionLocalAddress val = constructObjectPropertyObject "local-address" val++data SessionLocalAddressPropertyInfo+instance AttrInfo SessionLocalAddressPropertyInfo where+    type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK+    type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK+    type AttrGetType SessionLocalAddressPropertyInfo = Address+    type AttrLabel SessionLocalAddressPropertyInfo = "Session::local-address"+    attrGet _ = getSessionLocalAddress+    attrSet _ = undefined+    attrConstruct _ = constructSessionLocalAddress++-- VVV Prop "max-conns"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32+getSessionMaxConns obj = liftIO $ getObjectPropertyCInt obj "max-conns"++setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m ()+setSessionMaxConns obj val = liftIO $ setObjectPropertyCInt obj "max-conns" val++constructSessionMaxConns :: Int32 -> IO ([Char], GValue)+constructSessionMaxConns val = constructObjectPropertyCInt "max-conns" val++data SessionMaxConnsPropertyInfo+instance AttrInfo SessionMaxConnsPropertyInfo where+    type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32+    type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = SessionK+    type AttrGetType SessionMaxConnsPropertyInfo = Int32+    type AttrLabel SessionMaxConnsPropertyInfo = "Session::max-conns"+    attrGet _ = getSessionMaxConns+    attrSet _ = setSessionMaxConns+    attrConstruct _ = constructSessionMaxConns++-- VVV Prop "max-conns-per-host"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32+getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyCInt obj "max-conns-per-host"++setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m ()+setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyCInt obj "max-conns-per-host" val++constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue)+constructSessionMaxConnsPerHost val = constructObjectPropertyCInt "max-conns-per-host" val++data SessionMaxConnsPerHostPropertyInfo+instance AttrInfo SessionMaxConnsPerHostPropertyInfo where+    type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32+    type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = SessionK+    type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32+    type AttrLabel SessionMaxConnsPerHostPropertyInfo = "Session::max-conns-per-host"+    attrGet _ = getSessionMaxConnsPerHost+    attrSet _ = setSessionMaxConnsPerHost+    attrConstruct _ = constructSessionMaxConnsPerHost++-- VVV Prop "proxy-resolver"+   -- Type: TInterface "Gio" "ProxyResolver"+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m Gio.ProxyResolver+getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver++setSessionProxyResolver :: (MonadIO m, SessionK o, Gio.ProxyResolverK a) => o -> a -> m ()+setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" val++constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)+constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" val++data SessionProxyResolverPropertyInfo+instance AttrInfo SessionProxyResolverPropertyInfo where+    type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK+    type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK+    type AttrGetType SessionProxyResolverPropertyInfo = Gio.ProxyResolver+    type AttrLabel SessionProxyResolverPropertyInfo = "Session::proxy-resolver"+    attrGet _ = getSessionProxyResolver+    attrSet _ = setSessionProxyResolver+    attrConstruct _ = constructSessionProxyResolver++-- VVV Prop "proxy-uri"+   -- Type: TInterface "Soup" "URI"+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m URI+getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" URI++setSessionProxyUri :: (MonadIO m, SessionK o) => o -> URI -> m ()+setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" val++constructSessionProxyUri :: URI -> IO ([Char], GValue)+constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" val++data SessionProxyUriPropertyInfo+instance AttrInfo SessionProxyUriPropertyInfo where+    type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI+    type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK+    type AttrGetType SessionProxyUriPropertyInfo = URI+    type AttrLabel SessionProxyUriPropertyInfo = "Session::proxy-uri"+    attrGet _ = getSessionProxyUri+    attrSet _ = setSessionProxyUri+    attrConstruct _ = constructSessionProxyUri++-- VVV Prop "ssl-ca-file"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m T.Text+getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file"++setSessionSslCaFile :: (MonadIO m, SessionK o) => o -> T.Text -> m ()+setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" val++constructSessionSslCaFile :: T.Text -> IO ([Char], GValue)+constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" val++data SessionSslCaFilePropertyInfo+instance AttrInfo SessionSslCaFilePropertyInfo where+    type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = SessionK+    type AttrGetType SessionSslCaFilePropertyInfo = T.Text+    type AttrLabel SessionSslCaFilePropertyInfo = "Session::ssl-ca-file"+    attrGet _ = getSessionSslCaFile+    attrSet _ = setSessionSslCaFile+    attrConstruct _ = constructSessionSslCaFile++-- VVV Prop "ssl-strict"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionSslStrict :: (MonadIO m, SessionK o) => o -> m Bool+getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"++setSessionSslStrict :: (MonadIO m, SessionK o) => o -> Bool -> m ()+setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val++constructSessionSslStrict :: Bool -> IO ([Char], GValue)+constructSessionSslStrict val = constructObjectPropertyBool "ssl-strict" val++data SessionSslStrictPropertyInfo+instance AttrInfo SessionSslStrictPropertyInfo where+    type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = SessionK+    type AttrGetType SessionSslStrictPropertyInfo = Bool+    type AttrLabel SessionSslStrictPropertyInfo = "Session::ssl-strict"+    attrGet _ = getSessionSslStrict+    attrSet _ = setSessionSslStrict+    attrConstruct _ = constructSessionSslStrict++-- VVV Prop "ssl-use-system-ca-file"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> m Bool+getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file"++setSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> Bool -> m ()+setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val++constructSessionSslUseSystemCaFile :: Bool -> IO ([Char], GValue)+constructSessionSslUseSystemCaFile val = constructObjectPropertyBool "ssl-use-system-ca-file" val++data SessionSslUseSystemCaFilePropertyInfo+instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where+    type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = SessionK+    type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool+    type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "Session::ssl-use-system-ca-file"+    attrGet _ = getSessionSslUseSystemCaFile+    attrSet _ = setSessionSslUseSystemCaFile+    attrConstruct _ = constructSessionSslUseSystemCaFile++-- VVV Prop "timeout"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32+getSessionTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout"++setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()+setSessionTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val++constructSessionTimeout :: Word32 -> IO ([Char], GValue)+constructSessionTimeout val = constructObjectPropertyCUInt "timeout" val++data SessionTimeoutPropertyInfo+instance AttrInfo SessionTimeoutPropertyInfo where+    type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = SessionK+    type AttrGetType SessionTimeoutPropertyInfo = Word32+    type AttrLabel SessionTimeoutPropertyInfo = "Session::timeout"+    attrGet _ = getSessionTimeout+    attrSet _ = setSessionTimeout+    attrConstruct _ = constructSessionTimeout++-- VVV Prop "tls-database"+   -- Type: TInterface "Gio" "TlsDatabase"+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m Gio.TlsDatabase+getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase++setSessionTlsDatabase :: (MonadIO m, SessionK o, Gio.TlsDatabaseK a) => o -> a -> m ()+setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" val++constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue)+constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" val++data SessionTlsDatabasePropertyInfo+instance AttrInfo SessionTlsDatabasePropertyInfo where+    type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK+    type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK+    type AttrGetType SessionTlsDatabasePropertyInfo = Gio.TlsDatabase+    type AttrLabel SessionTlsDatabasePropertyInfo = "Session::tls-database"+    attrGet _ = getSessionTlsDatabase+    attrSet _ = setSessionTlsDatabase+    attrConstruct _ = constructSessionTlsDatabase++-- VVV Prop "tls-interaction"+   -- Type: TInterface "Gio" "TlsInteraction"+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m Gio.TlsInteraction+getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction++setSessionTlsInteraction :: (MonadIO m, SessionK o, Gio.TlsInteractionK a) => o -> a -> m ()+setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" val++constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue)+constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" val++data SessionTlsInteractionPropertyInfo+instance AttrInfo SessionTlsInteractionPropertyInfo where+    type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK+    type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK+    type AttrGetType SessionTlsInteractionPropertyInfo = Gio.TlsInteraction+    type AttrLabel SessionTlsInteractionPropertyInfo = "Session::tls-interaction"+    attrGet _ = getSessionTlsInteraction+    attrSet _ = setSessionTlsInteraction+    attrConstruct _ = constructSessionTlsInteraction++-- VVV Prop "use-ntlm"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionUseNtlm :: (MonadIO m, SessionK o) => o -> m Bool+getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm"++setSessionUseNtlm :: (MonadIO m, SessionK o) => o -> Bool -> m ()+setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val++constructSessionUseNtlm :: Bool -> IO ([Char], GValue)+constructSessionUseNtlm val = constructObjectPropertyBool "use-ntlm" val++data SessionUseNtlmPropertyInfo+instance AttrInfo SessionUseNtlmPropertyInfo where+    type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = SessionK+    type AttrGetType SessionUseNtlmPropertyInfo = Bool+    type AttrLabel SessionUseNtlmPropertyInfo = "Session::use-ntlm"+    attrGet _ = getSessionUseNtlm+    attrSet _ = setSessionUseNtlm+    attrConstruct _ = constructSessionUseNtlm++-- VVV Prop "use-thread-context"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> m Bool+getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"++setSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> Bool -> m ()+setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val++constructSessionUseThreadContext :: Bool -> IO ([Char], GValue)+constructSessionUseThreadContext val = constructObjectPropertyBool "use-thread-context" val++data SessionUseThreadContextPropertyInfo+instance AttrInfo SessionUseThreadContextPropertyInfo where+    type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = SessionK+    type AttrGetType SessionUseThreadContextPropertyInfo = Bool+    type AttrLabel SessionUseThreadContextPropertyInfo = "Session::use-thread-context"+    attrGet _ = getSessionUseThreadContext+    attrSet _ = setSessionUseThreadContext+    attrConstruct _ = constructSessionUseThreadContext++-- VVV Prop "user-agent"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m T.Text+getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"++setSessionUserAgent :: (MonadIO m, SessionK o) => o -> T.Text -> m ()+setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val++constructSessionUserAgent :: T.Text -> IO ([Char], GValue)+constructSessionUserAgent val = constructObjectPropertyString "user-agent" val++data SessionUserAgentPropertyInfo+instance AttrInfo SessionUserAgentPropertyInfo where+    type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = SessionK+    type AttrGetType SessionUserAgentPropertyInfo = T.Text+    type AttrLabel SessionUserAgentPropertyInfo = "Session::user-agent"+    attrGet _ = getSessionUserAgent+    attrSet _ = setSessionUserAgent+    attrConstruct _ = constructSessionUserAgent++type instance AttributeList Session = SessionAttributeList+type SessionAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)])++data SessionAuthenticateSignalInfo+instance SignalInfo SessionAuthenticateSignalInfo where+    type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback+    connectSignal _ = connectSessionAuthenticate++data SessionConnectionCreatedSignalInfo+instance SignalInfo SessionConnectionCreatedSignalInfo where+    type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback+    connectSignal _ = connectSessionConnectionCreated++data SessionRequestQueuedSignalInfo+instance SignalInfo SessionRequestQueuedSignalInfo where+    type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback+    connectSignal _ = connectSessionRequestQueued++data SessionRequestStartedSignalInfo+instance SignalInfo SessionRequestStartedSignalInfo where+    type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback+    connectSignal _ = connectSessionRequestStarted++data SessionRequestUnqueuedSignalInfo+instance SignalInfo SessionRequestUnqueuedSignalInfo where+    type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback+    connectSignal _ = connectSessionRequestUnqueued++data SessionTunnelingSignalInfo+instance SignalInfo SessionTunnelingSignalInfo where+    type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback+    connectSignal _ = connectSessionTunneling++type instance SignalList Session = SessionSignalList+type SessionSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Session::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "Session"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_new" soup_session_new :: +    IO (Ptr Session)+++sessionNew ::+    (MonadIO m) =>+    m Session+sessionNew  = liftIO $ do+    result <- soup_session_new+    checkUnexpectedReturnNULL "soup_session_new" result+    result' <- (wrapObject Session) result+    return result'++-- method Session::abort+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_abort" soup_session_abort :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    IO ()+++sessionAbort ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    m ()+sessionAbort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_session_abort _obj'+    touchManagedPtr _obj+    return ()++-- method Session::add_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_add_feature" soup_session_add_feature :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"+    IO ()+++sessionAddFeature ::+    (MonadIO m, SessionK a, SessionFeatureK b) =>+    a ->                                    -- _obj+    b ->                                    -- feature+    m ()+sessionAddFeature _obj feature = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature' = unsafeManagedPtrCastPtr feature+    soup_session_add_feature _obj' feature'+    touchManagedPtr _obj+    touchManagedPtr feature+    return ()++-- method Session::add_feature_by_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    IO ()+++sessionAddFeatureByType ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m ()+sessionAddFeatureByType _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    soup_session_add_feature_by_type _obj' feature_type'+    touchManagedPtr _obj+    return ()++-- method Session::cancel_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_cancel_message" soup_session_cancel_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Word32 ->                               -- status_code : TBasicType TUInt32+    IO ()+++sessionCancelMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Word32 ->                               -- status_code+    m ()+sessionCancelMessage _obj msg status_code = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_session_cancel_message _obj' msg' status_code+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Session::get_async_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    IO (Ptr GLib.MainContext)+++sessionGetAsyncContext ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    m GLib.MainContext+sessionGetAsyncContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_session_get_async_context _obj'+    checkUnexpectedReturnNULL "soup_session_get_async_context" result+    result' <- (newBoxed GLib.MainContext) result+    touchManagedPtr _obj+    return result'++-- method Session::get_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "SessionFeature"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_get_feature" soup_session_get_feature :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    IO (Ptr SessionFeature)+++sessionGetFeature ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m SessionFeature+sessionGetFeature _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    result <- soup_session_get_feature _obj' feature_type'+    checkUnexpectedReturnNULL "soup_session_get_feature" result+    result' <- (newObject SessionFeature) result+    touchManagedPtr _obj+    return result'++-- method Session::get_feature_for_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "SessionFeature"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO (Ptr SessionFeature)+++sessionGetFeatureForMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    b ->                                    -- msg+    m SessionFeature+sessionGetFeatureForMessage _obj feature_type msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_session_get_feature_for_message _obj' feature_type' msg'+    checkUnexpectedReturnNULL "soup_session_get_feature_for_message" result+    result' <- (newObject SessionFeature) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method Session::get_features+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Soup" "SessionFeature")+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_get_features" soup_session_get_features :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    IO (Ptr (GSList (Ptr SessionFeature)))+++sessionGetFeatures ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m [SessionFeature]+sessionGetFeatures _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    result <- soup_session_get_features _obj' feature_type'+    checkUnexpectedReturnNULL "soup_session_get_features" result+    result' <- unpackGSList result+    result'' <- mapM (newObject SessionFeature) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method Session::has_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_has_feature" soup_session_has_feature :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    IO CInt+++sessionHasFeature ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m Bool+sessionHasFeature _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    result <- soup_session_has_feature _obj' feature_type'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Session::pause_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_pause_message" soup_session_pause_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++sessionPauseMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+sessionPauseMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_session_pause_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Session::prefetch_dns+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CString ->                              -- hostname : TBasicType TUTF8+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++sessionPrefetchDns ::+    (MonadIO m, SessionK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    T.Text ->                               -- hostname+    Maybe (b) ->                            -- cancellable+    Maybe (AddressCallback) ->              -- callback+    m ()+sessionPrefetchDns _obj hostname cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    hostname' <- textToCString hostname+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let user_data = nullPtr+    soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    freeMem hostname'+    return ()++-- method Session::prepare_for_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    IO ()++{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use soup_session_prefetch_dns() instead"]#-}+sessionPrepareForUri ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    m ()+sessionPrepareForUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    soup_session_prepare_for_uri _obj' uri'+    touchManagedPtr _obj+    touchManagedPtr uri+    return ()++-- method Session::queue_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_queue_message" soup_session_queue_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    FunPtr SessionCallbackC ->              -- callback : TInterface "Soup" "SessionCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++sessionQueueMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Maybe (SessionCallback) ->              -- callback+    m ()+sessionQueueMessage _obj msg callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    msg' <- refObject msg+    ptrcallback <- callocMem :: IO (Ptr (FunPtr SessionCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- mkSessionCallback (sessionCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let user_data = nullPtr+    soup_session_queue_message _obj' msg' maybeCallback user_data+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Session::redirect_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_redirect_message" soup_session_redirect_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CInt+++sessionRedirectMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Bool+sessionRedirectMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_session_redirect_message _obj' msg'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method Session::remove_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_remove_feature" soup_session_remove_feature :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"+    IO ()+++sessionRemoveFeature ::+    (MonadIO m, SessionK a, SessionFeatureK b) =>+    a ->                                    -- _obj+    b ->                                    -- feature+    m ()+sessionRemoveFeature _obj feature = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature' = unsafeManagedPtrCastPtr feature+    soup_session_remove_feature _obj' feature'+    touchManagedPtr _obj+    touchManagedPtr feature+    return ()++-- method Session::remove_feature_by_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CGType ->                               -- feature_type : TBasicType TGType+    IO ()+++sessionRemoveFeatureByType ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    GType ->                                -- feature_type+    m ()+sessionRemoveFeatureByType _obj feature_type = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let feature_type' = gtypeToCGType feature_type+    soup_session_remove_feature_by_type _obj' feature_type'+    touchManagedPtr _obj+    return ()++-- method Session::request+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Request"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_request" soup_session_request :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CString ->                              -- uri_string : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Request)+++sessionRequest ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri_string+    m Request+sessionRequest _obj uri_string = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri_string' <- textToCString uri_string+    onException (do+        result <- propagateGError $ soup_session_request _obj' uri_string'+        checkUnexpectedReturnNULL "soup_session_request" result+        result' <- (wrapObject Request) result+        touchManagedPtr _obj+        freeMem uri_string'+        return result'+     ) (do+        freeMem uri_string'+     )++-- method Session::request_http+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "RequestHTTP"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_request_http" soup_session_request_http :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CString ->                              -- method : TBasicType TUTF8+    CString ->                              -- uri_string : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr RequestHTTP)+++sessionRequestHttp ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- method+    T.Text ->                               -- uri_string+    m RequestHTTP+sessionRequestHttp _obj method uri_string = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    method' <- textToCString method+    uri_string' <- textToCString uri_string+    onException (do+        result <- propagateGError $ soup_session_request_http _obj' method' uri_string'+        checkUnexpectedReturnNULL "soup_session_request_http" result+        result' <- (wrapObject RequestHTTP) result+        touchManagedPtr _obj+        freeMem method'+        freeMem uri_string'+        return result'+     ) (do+        freeMem method'+        freeMem uri_string'+     )++-- method Session::request_http_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "RequestHTTP"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    CString ->                              -- method : TBasicType TUTF8+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr RequestHTTP)+++sessionRequestHttpUri ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- method+    URI ->                                  -- uri+    m RequestHTTP+sessionRequestHttpUri _obj method uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    method' <- textToCString method+    let uri' = unsafeManagedPtrGetPtr uri+    onException (do+        result <- propagateGError $ soup_session_request_http_uri _obj' method' uri'+        checkUnexpectedReturnNULL "soup_session_request_http_uri" result+        result' <- (wrapObject RequestHTTP) result+        touchManagedPtr _obj+        touchManagedPtr uri+        freeMem method'+        return result'+     ) (do+        freeMem method'+     )++-- method Session::request_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Request"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_request_uri" soup_session_request_uri :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Request)+++sessionRequestUri ::+    (MonadIO m, SessionK a) =>+    a ->                                    -- _obj+    URI ->                                  -- uri+    m Request+sessionRequestUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    onException (do+        result <- propagateGError $ soup_session_request_uri _obj' uri'+        checkUnexpectedReturnNULL "soup_session_request_uri" result+        result' <- (wrapObject Request) result+        touchManagedPtr _obj+        touchManagedPtr uri+        return result'+     ) (do+        return ()+     )++-- method Session::requeue_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_requeue_message" soup_session_requeue_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++sessionRequeueMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+sessionRequeueMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_session_requeue_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Session::send+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_send" soup_session_send :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++sessionSend ::+    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Maybe (c) ->                            -- cancellable+    m Gio.InputStream+sessionSend _obj msg cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_session_send _obj' msg' maybeCancellable+        checkUnexpectedReturnNULL "soup_session_send" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        touchManagedPtr msg+        whenJust cancellable touchManagedPtr+        return result'+     ) (do+        return ()+     )++-- method Session::send_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_send_async" soup_session_send_async :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++sessionSendAsync ::+    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Maybe (c) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+sessionSendAsync _obj msg cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let user_data = nullPtr+    soup_session_send_async _obj' msg' maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    touchManagedPtr msg+    whenJust cancellable touchManagedPtr+    return ()++-- method Session::send_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "InputStream"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_send_finish" soup_session_send_finish :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Gio.InputStream)+++sessionSendFinish ::+    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m Gio.InputStream+sessionSendFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ soup_session_send_finish _obj' result_'+        checkUnexpectedReturnNULL "soup_session_send_finish" result+        result' <- (wrapObject Gio.InputStream) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++-- method Session::send_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_send_message" soup_session_send_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO Word32+++sessionSendMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Word32+sessionSendMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_session_send_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return result++-- method Session::steal_connection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "IOStream"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO (Ptr Gio.IOStream)+++sessionStealConnection ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Gio.IOStream+sessionStealConnection _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_session_steal_connection _obj' msg'+    checkUnexpectedReturnNULL "soup_session_steal_connection" result+    result' <- (wrapObject Gio.IOStream) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++-- method Session::unpause_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_unpause_message" soup_session_unpause_message :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO ()+++sessionUnpauseMessage ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m ()+sessionUnpauseMessage _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    soup_session_unpause_message _obj' msg'+    touchManagedPtr _obj+    touchManagedPtr msg+    return ()++-- method Session::websocket_connect_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    CString ->                              -- origin : TBasicType TUTF8+    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++sessionWebsocketConnectAsync ::+    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    Maybe (T.Text) ->                       -- origin+    Maybe ([T.Text]) ->                     -- protocols+    Maybe (c) ->                            -- cancellable+    Maybe (Gio.AsyncReadyCallback) ->       -- callback+    m ()+sessionWebsocketConnectAsync _obj msg origin protocols cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    maybeOrigin <- case origin of+        Nothing -> return nullPtr+        Just jOrigin -> do+            jOrigin' <- textToCString jOrigin+            return jOrigin'+    maybeProtocols <- case protocols of+        Nothing -> return nullPtr+        Just jProtocols -> do+            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols+            return jProtocols'+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+            poke ptrcallback jCallback'+            return jCallback'+    let user_data = nullPtr+    soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback user_data+    touchManagedPtr _obj+    touchManagedPtr msg+    whenJust cancellable touchManagedPtr+    freeMem maybeOrigin+    mapZeroTerminatedCArray freeMem maybeProtocols+    freeMem maybeProtocols+    return ()++-- method Session::websocket_connect_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "WebsocketConnection"+-- throws : True+-- Skip return : False++foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr WebsocketConnection)+++sessionWebsocketConnectFinish ::+    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>+    a ->                                    -- _obj+    b ->                                    -- result+    m WebsocketConnection+sessionWebsocketConnectFinish _obj result_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let result_' = unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ soup_session_websocket_connect_finish _obj' result_'+        checkUnexpectedReturnNULL "soup_session_websocket_connect_finish" result+        result' <- (wrapObject WebsocketConnection) result+        touchManagedPtr _obj+        touchManagedPtr result_+        return result'+     ) (do+        return ()+     )++-- method Session::would_redirect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_would_redirect" soup_session_would_redirect :: +    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"+    Ptr Message ->                          -- msg : TInterface "Soup" "Message"+    IO CInt+++sessionWouldRedirect ::+    (MonadIO m, SessionK a, MessageK b) =>+    a ->                                    -- _obj+    b ->                                    -- msg+    m Bool+sessionWouldRedirect _obj msg = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let msg' = unsafeManagedPtrCastPtr msg+    result <- soup_session_would_redirect _obj' msg'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr msg+    return result'++
+ GI/Soup/Objects/Session.hs-boot view
@@ -0,0 +1,39 @@+module GI.Soup.Objects.Session where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Session = Session (ForeignPtr Session)+instance GObject Session where+class GObject o => SessionK o+instance (GObject o, IsDescendantOf Session o) => SessionK o+data SessionAcceptLanguagePropertyInfo+data SessionAcceptLanguageAutoPropertyInfo+data SessionAsyncContextPropertyInfo+data SessionHttpAliasesPropertyInfo+data SessionHttpsAliasesPropertyInfo+data SessionIdleTimeoutPropertyInfo+data SessionLocalAddressPropertyInfo+data SessionMaxConnsPropertyInfo+data SessionMaxConnsPerHostPropertyInfo+data SessionProxyResolverPropertyInfo+data SessionProxyUriPropertyInfo+data SessionSslCaFilePropertyInfo+data SessionSslStrictPropertyInfo+data SessionSslUseSystemCaFilePropertyInfo+data SessionTimeoutPropertyInfo+data SessionTlsDatabasePropertyInfo+data SessionTlsInteractionPropertyInfo+data SessionUseNtlmPropertyInfo+data SessionUseThreadContextPropertyInfo+data SessionUserAgentPropertyInfo+data SessionAuthenticateSignalInfo+data SessionConnectionCreatedSignalInfo+data SessionRequestQueuedSignalInfo+data SessionRequestStartedSignalInfo+data SessionRequestUnqueuedSignalInfo+data SessionTunnelingSignalInfo
+ GI/Soup/Objects/SessionAsync.hs view
@@ -0,0 +1,87 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.SessionAsync+    ( ++-- * Exported types+    SessionAsync(..)                        ,+    SessionAsyncK                           ,+    toSessionAsync                          ,+    noSessionAsync                          ,+++ -- * Methods+-- ** sessionAsyncNew+    sessionAsyncNew                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync)+foreign import ccall "soup_session_async_get_type"+    c_soup_session_async_get_type :: IO GType++type instance ParentTypes SessionAsync = SessionAsyncParentTypes+type SessionAsyncParentTypes = '[Session, GObject.Object]++instance GObject SessionAsync where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_session_async_get_type+    ++class GObject o => SessionAsyncK o+instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o++toSessionAsync :: SessionAsyncK o => o -> IO SessionAsync+toSessionAsync = unsafeCastTo SessionAsync++noSessionAsync :: Maybe SessionAsync+noSessionAsync = Nothing++type instance AttributeList SessionAsync = SessionAsyncAttributeList+type SessionAsyncAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList SessionAsync = SessionAsyncSignalList+type SessionAsyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method SessionAsync::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "SessionAsync"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_async_new" soup_session_async_new :: +    IO (Ptr SessionAsync)++{-# DEPRECATED sessionAsyncNew ["#SoupSessionAsync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}+sessionAsyncNew ::+    (MonadIO m) =>+    m SessionAsync+sessionAsyncNew  = liftIO $ do+    result <- soup_session_async_new+    checkUnexpectedReturnNULL "soup_session_async_new" result+    result' <- (wrapObject SessionAsync) result+    return result'++
+ GI/Soup/Objects/SessionAsync.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.SessionAsync where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync)+instance GObject SessionAsync where+class GObject o => SessionAsyncK o+instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o
+ GI/Soup/Objects/SessionSync.hs view
@@ -0,0 +1,87 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.SessionSync+    ( ++-- * Exported types+    SessionSync(..)                         ,+    SessionSyncK                            ,+    toSessionSync                           ,+    noSessionSync                           ,+++ -- * Methods+-- ** sessionSyncNew+    sessionSyncNew                          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject++newtype SessionSync = SessionSync (ForeignPtr SessionSync)+foreign import ccall "soup_session_sync_get_type"+    c_soup_session_sync_get_type :: IO GType++type instance ParentTypes SessionSync = SessionSyncParentTypes+type SessionSyncParentTypes = '[Session, GObject.Object]++instance GObject SessionSync where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_session_sync_get_type+    ++class GObject o => SessionSyncK o+instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o++toSessionSync :: SessionSyncK o => o -> IO SessionSync+toSessionSync = unsafeCastTo SessionSync++noSessionSync :: Maybe SessionSync+noSessionSync = Nothing++type instance AttributeList SessionSync = SessionSyncAttributeList+type SessionSyncAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList SessionSync = SessionSyncSignalList+type SessionSyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method SessionSync::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "SessionSync"+-- throws : False+-- Skip return : False++foreign import ccall "soup_session_sync_new" soup_session_sync_new :: +    IO (Ptr SessionSync)++{-# DEPRECATED sessionSyncNew ["#SoupSessionSync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}+sessionSyncNew ::+    (MonadIO m) =>+    m SessionSync+sessionSyncNew  = liftIO $ do+    result <- soup_session_sync_new+    checkUnexpectedReturnNULL "soup_session_sync_new" result+    result' <- (wrapObject SessionSync) result+    return result'++
+ GI/Soup/Objects/SessionSync.hs-boot view
@@ -0,0 +1,13 @@+module GI.Soup.Objects.SessionSync where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype SessionSync = SessionSync (ForeignPtr SessionSync)+instance GObject SessionSync where+class GObject o => SessionSyncK o+instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o
+ GI/Soup/Objects/Socket.hs view
@@ -0,0 +1,1332 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.Socket+    ( ++-- * Exported types+    Socket(..)                              ,+    SocketK                                 ,+    toSocket                                ,+    noSocket                                ,+++ -- * Methods+-- ** socketConnectAsync+    socketConnectAsync                      ,+++-- ** socketConnectSync+    socketConnectSync                       ,+++-- ** socketDisconnect+    socketDisconnect                        ,+++-- ** socketGetFd+    socketGetFd                             ,+++-- ** socketGetLocalAddress+    socketGetLocalAddress                   ,+++-- ** socketGetRemoteAddress+    socketGetRemoteAddress                  ,+++-- ** socketIsConnected+    socketIsConnected                       ,+++-- ** socketIsSsl+    socketIsSsl                             ,+++-- ** socketListen+    socketListen                            ,+++-- ** socketRead+    socketRead                              ,+++-- ** socketReadUntil+    socketReadUntil                         ,+++-- ** socketStartProxySsl+    socketStartProxySsl                     ,+++-- ** socketStartSsl+    socketStartSsl                          ,+++-- ** socketWrite+    socketWrite                             ,+++++ -- * Properties+-- ** AsyncContext+    SocketAsyncContextPropertyInfo          ,+    constructSocketAsyncContext             ,+    getSocketAsyncContext                   ,+++-- ** Fd+    SocketFdPropertyInfo                    ,+    constructSocketFd                       ,+    getSocketFd                             ,+++-- ** Gsocket+    SocketGsocketPropertyInfo               ,+    constructSocketGsocket                  ,+++-- ** Iostream+    SocketIostreamPropertyInfo              ,+    constructSocketIostream                 ,+++-- ** Ipv6Only+    SocketIpv6OnlyPropertyInfo              ,+    constructSocketIpv6Only                 ,+    getSocketIpv6Only                       ,+    setSocketIpv6Only                       ,+++-- ** IsServer+    SocketIsServerPropertyInfo              ,+    getSocketIsServer                       ,+++-- ** LocalAddress+    SocketLocalAddressPropertyInfo          ,+    constructSocketLocalAddress             ,+    getSocketLocalAddress                   ,+++-- ** NonBlocking+    SocketNonBlockingPropertyInfo           ,+    constructSocketNonBlocking              ,+    getSocketNonBlocking                    ,+    setSocketNonBlocking                    ,+++-- ** RemoteAddress+    SocketRemoteAddressPropertyInfo         ,+    constructSocketRemoteAddress            ,+    getSocketRemoteAddress                  ,+++-- ** SslCreds+    SocketSslCredsPropertyInfo              ,+    constructSocketSslCreds                 ,+    getSocketSslCreds                       ,+    setSocketSslCreds                       ,+++-- ** SslFallback+    SocketSslFallbackPropertyInfo           ,+    constructSocketSslFallback              ,+    getSocketSslFallback                    ,+++-- ** SslStrict+    SocketSslStrictPropertyInfo             ,+    constructSocketSslStrict                ,+    getSocketSslStrict                      ,+++-- ** Timeout+    SocketTimeoutPropertyInfo               ,+    constructSocketTimeout                  ,+    getSocketTimeout                        ,+    setSocketTimeout                        ,+++-- ** TlsCertificate+    SocketTlsCertificatePropertyInfo        ,+    getSocketTlsCertificate                 ,+++-- ** TlsErrors+    SocketTlsErrorsPropertyInfo             ,+    getSocketTlsErrors                      ,+++-- ** TrustedCertificate+    SocketTrustedCertificatePropertyInfo    ,+    getSocketTrustedCertificate             ,+++-- ** UseThreadContext+    SocketUseThreadContextPropertyInfo      ,+    constructSocketUseThreadContext         ,+    getSocketUseThreadContext               ,+++++ -- * Signals+-- ** Disconnected+    SocketDisconnectedCallback              ,+    SocketDisconnectedCallbackC             ,+    SocketDisconnectedSignalInfo            ,+    afterSocketDisconnected                 ,+    mkSocketDisconnectedCallback            ,+    noSocketDisconnectedCallback            ,+    onSocketDisconnected                    ,+    socketDisconnectedCallbackWrapper       ,+    socketDisconnectedClosure               ,+++-- ** Event+    SocketEventCallback                     ,+    SocketEventCallbackC                    ,+    SocketEventSignalInfo                   ,+    afterSocketEvent                        ,+    mkSocketEventCallback                   ,+    noSocketEventCallback                   ,+    onSocketEvent                           ,+    socketEventCallbackWrapper              ,+    socketEventClosure                      ,+++-- ** NewConnection+    SocketNewConnectionCallback             ,+    SocketNewConnectionCallbackC            ,+    SocketNewConnectionSignalInfo           ,+    afterSocketNewConnection                ,+    mkSocketNewConnectionCallback           ,+    noSocketNewConnectionCallback           ,+    onSocketNewConnection                   ,+    socketNewConnectionCallbackWrapper      ,+    socketNewConnectionClosure              ,+++-- ** Readable+    SocketReadableCallback                  ,+    SocketReadableCallbackC                 ,+    SocketReadableSignalInfo                ,+    afterSocketReadable                     ,+    mkSocketReadableCallback                ,+    noSocketReadableCallback                ,+    onSocketReadable                        ,+    socketReadableCallbackWrapper           ,+    socketReadableClosure                   ,+++-- ** Writable+    SocketWritableCallback                  ,+    SocketWritableCallbackC                 ,+    SocketWritableSignalInfo                ,+    afterSocketWritable                     ,+    mkSocketWritableCallback                ,+    noSocketWritableCallback                ,+    onSocketWritable                        ,+    socketWritableCallbackWrapper           ,+    socketWritableClosure                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype Socket = Socket (ForeignPtr Socket)+foreign import ccall "soup_socket_get_type"+    c_soup_socket_get_type :: IO GType++type instance ParentTypes Socket = SocketParentTypes+type SocketParentTypes = '[GObject.Object, Gio.Initable]++instance GObject Socket where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_socket_get_type+    ++class GObject o => SocketK o+instance (GObject o, IsDescendantOf Socket o) => SocketK o++toSocket :: SocketK o => o -> IO Socket+toSocket = unsafeCastTo Socket++noSocket :: Maybe Socket+noSocket = Nothing++-- signal Socket::disconnected+type SocketDisconnectedCallback =+    IO ()++noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback+noSocketDisconnectedCallback = Nothing++type SocketDisconnectedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSocketDisconnectedCallback :: SocketDisconnectedCallbackC -> IO (FunPtr SocketDisconnectedCallbackC)++socketDisconnectedClosure :: SocketDisconnectedCallback -> IO Closure+socketDisconnectedClosure cb = newCClosure =<< mkSocketDisconnectedCallback wrapped+    where wrapped = socketDisconnectedCallbackWrapper cb++socketDisconnectedCallbackWrapper ::+    SocketDisconnectedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+socketDisconnectedCallbackWrapper _cb _ _ = do+    _cb ++onSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId+onSocketDisconnected obj cb = liftIO $ connectSocketDisconnected obj cb SignalConnectBefore+afterSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId+afterSocketDisconnected obj cb = connectSocketDisconnected obj cb SignalConnectAfter++connectSocketDisconnected :: (GObject a, MonadIO m) =>+                             a -> SocketDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId+connectSocketDisconnected obj cb after = liftIO $ do+    cb' <- mkSocketDisconnectedCallback (socketDisconnectedCallbackWrapper cb)+    connectSignalFunPtr obj "disconnected" cb' after++-- signal Socket::event+type SocketEventCallback =+    Gio.SocketClientEvent ->+    Gio.IOStream ->+    IO ()++noSocketEventCallback :: Maybe SocketEventCallback+noSocketEventCallback = Nothing++type SocketEventCallbackC =+    Ptr () ->                               -- object+    CUInt ->+    Ptr Gio.IOStream ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSocketEventCallback :: SocketEventCallbackC -> IO (FunPtr SocketEventCallbackC)++socketEventClosure :: SocketEventCallback -> IO Closure+socketEventClosure cb = newCClosure =<< mkSocketEventCallback wrapped+    where wrapped = socketEventCallbackWrapper cb++socketEventCallbackWrapper ::+    SocketEventCallback ->+    Ptr () ->+    CUInt ->+    Ptr Gio.IOStream ->+    Ptr () ->+    IO ()+socketEventCallbackWrapper _cb _ event connection _ = do+    let event' = (toEnum . fromIntegral) event+    connection' <- (newObject Gio.IOStream) connection+    _cb  event' connection'++onSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId+onSocketEvent obj cb = liftIO $ connectSocketEvent obj cb SignalConnectBefore+afterSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId+afterSocketEvent obj cb = connectSocketEvent obj cb SignalConnectAfter++connectSocketEvent :: (GObject a, MonadIO m) =>+                      a -> SocketEventCallback -> SignalConnectMode -> m SignalHandlerId+connectSocketEvent obj cb after = liftIO $ do+    cb' <- mkSocketEventCallback (socketEventCallbackWrapper cb)+    connectSignalFunPtr obj "event" cb' after++-- signal Socket::new-connection+type SocketNewConnectionCallback =+    Socket ->+    IO ()++noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback+noSocketNewConnectionCallback = Nothing++type SocketNewConnectionCallbackC =+    Ptr () ->                               -- object+    Ptr Socket ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSocketNewConnectionCallback :: SocketNewConnectionCallbackC -> IO (FunPtr SocketNewConnectionCallbackC)++socketNewConnectionClosure :: SocketNewConnectionCallback -> IO Closure+socketNewConnectionClosure cb = newCClosure =<< mkSocketNewConnectionCallback wrapped+    where wrapped = socketNewConnectionCallbackWrapper cb++socketNewConnectionCallbackWrapper ::+    SocketNewConnectionCallback ->+    Ptr () ->+    Ptr Socket ->+    Ptr () ->+    IO ()+socketNewConnectionCallbackWrapper _cb _ new _ = do+    new' <- (newObject Socket) new+    _cb  new'++onSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId+onSocketNewConnection obj cb = liftIO $ connectSocketNewConnection obj cb SignalConnectBefore+afterSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId+afterSocketNewConnection obj cb = connectSocketNewConnection obj cb SignalConnectAfter++connectSocketNewConnection :: (GObject a, MonadIO m) =>+                              a -> SocketNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId+connectSocketNewConnection obj cb after = liftIO $ do+    cb' <- mkSocketNewConnectionCallback (socketNewConnectionCallbackWrapper cb)+    connectSignalFunPtr obj "new-connection" cb' after++-- signal Socket::readable+type SocketReadableCallback =+    IO ()++noSocketReadableCallback :: Maybe SocketReadableCallback+noSocketReadableCallback = Nothing++type SocketReadableCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSocketReadableCallback :: SocketReadableCallbackC -> IO (FunPtr SocketReadableCallbackC)++socketReadableClosure :: SocketReadableCallback -> IO Closure+socketReadableClosure cb = newCClosure =<< mkSocketReadableCallback wrapped+    where wrapped = socketReadableCallbackWrapper cb++socketReadableCallbackWrapper ::+    SocketReadableCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+socketReadableCallbackWrapper _cb _ _ = do+    _cb ++onSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId+onSocketReadable obj cb = liftIO $ connectSocketReadable obj cb SignalConnectBefore+afterSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId+afterSocketReadable obj cb = connectSocketReadable obj cb SignalConnectAfter++connectSocketReadable :: (GObject a, MonadIO m) =>+                         a -> SocketReadableCallback -> SignalConnectMode -> m SignalHandlerId+connectSocketReadable obj cb after = liftIO $ do+    cb' <- mkSocketReadableCallback (socketReadableCallbackWrapper cb)+    connectSignalFunPtr obj "readable" cb' after++-- signal Socket::writable+type SocketWritableCallback =+    IO ()++noSocketWritableCallback :: Maybe SocketWritableCallback+noSocketWritableCallback = Nothing++type SocketWritableCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkSocketWritableCallback :: SocketWritableCallbackC -> IO (FunPtr SocketWritableCallbackC)++socketWritableClosure :: SocketWritableCallback -> IO Closure+socketWritableClosure cb = newCClosure =<< mkSocketWritableCallback wrapped+    where wrapped = socketWritableCallbackWrapper cb++socketWritableCallbackWrapper ::+    SocketWritableCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+socketWritableCallbackWrapper _cb _ _ = do+    _cb ++onSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId+onSocketWritable obj cb = liftIO $ connectSocketWritable obj cb SignalConnectBefore+afterSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId+afterSocketWritable obj cb = connectSocketWritable obj cb SignalConnectAfter++connectSocketWritable :: (GObject a, MonadIO m) =>+                         a -> SocketWritableCallback -> SignalConnectMode -> m SignalHandlerId+connectSocketWritable obj cb after = liftIO $ do+    cb' <- mkSocketWritableCallback (socketWritableCallbackWrapper cb)+    connectSignalFunPtr obj "writable" cb' after++-- VVV Prop "async-context"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketAsyncContext :: (MonadIO m, SocketK o) => o -> m (Ptr ())+getSocketAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"++constructSocketAsyncContext :: (Ptr ()) -> IO ([Char], GValue)+constructSocketAsyncContext val = constructObjectPropertyPtr "async-context" val++data SocketAsyncContextPropertyInfo+instance AttrInfo SocketAsyncContextPropertyInfo where+    type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = SocketK+    type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ())+    type AttrLabel SocketAsyncContextPropertyInfo = "Socket::async-context"+    attrGet _ = getSocketAsyncContext+    attrSet _ = undefined+    attrConstruct _ = constructSocketAsyncContext++-- VVV Prop "fd"+   -- Type: TBasicType TInt32+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32+getSocketFd obj = liftIO $ getObjectPropertyCInt obj "fd"++constructSocketFd :: Int32 -> IO ([Char], GValue)+constructSocketFd val = constructObjectPropertyCInt "fd" val++data SocketFdPropertyInfo+instance AttrInfo SocketFdPropertyInfo where+    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32+    type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK+    type AttrGetType SocketFdPropertyInfo = Int32+    type AttrLabel SocketFdPropertyInfo = "Socket::fd"+    attrGet _ = getSocketFd+    attrSet _ = undefined+    attrConstruct _ = constructSocketFd++-- VVV Prop "gsocket"+   -- Type: TInterface "Gio" "Socket"+   -- Flags: [PropertyWritable,PropertyConstructOnly]++constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue)+constructSocketGsocket val = constructObjectPropertyObject "gsocket" val++data SocketGsocketPropertyInfo+instance AttrInfo SocketGsocketPropertyInfo where+    type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct]+    type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK+    type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK+    type AttrGetType SocketGsocketPropertyInfo = ()+    type AttrLabel SocketGsocketPropertyInfo = "Socket::gsocket"+    attrGet _ = undefined+    attrSet _ = undefined+    attrConstruct _ = constructSocketGsocket++-- VVV Prop "iostream"+   -- Type: TInterface "Gio" "IOStream"+   -- Flags: [PropertyWritable,PropertyConstructOnly]++constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)+constructSocketIostream val = constructObjectPropertyObject "iostream" val++data SocketIostreamPropertyInfo+instance AttrInfo SocketIostreamPropertyInfo where+    type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct]+    type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK+    type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK+    type AttrGetType SocketIostreamPropertyInfo = ()+    type AttrLabel SocketIostreamPropertyInfo = "Socket::iostream"+    attrGet _ = undefined+    attrSet _ = undefined+    attrConstruct _ = constructSocketIostream++-- VVV Prop "ipv6-only"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSocketIpv6Only :: (MonadIO m, SocketK o) => o -> m Bool+getSocketIpv6Only obj = liftIO $ getObjectPropertyBool obj "ipv6-only"++setSocketIpv6Only :: (MonadIO m, SocketK o) => o -> Bool -> m ()+setSocketIpv6Only obj val = liftIO $ setObjectPropertyBool obj "ipv6-only" val++constructSocketIpv6Only :: Bool -> IO ([Char], GValue)+constructSocketIpv6Only val = constructObjectPropertyBool "ipv6-only" val++data SocketIpv6OnlyPropertyInfo+instance AttrInfo SocketIpv6OnlyPropertyInfo where+    type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = SocketK+    type AttrGetType SocketIpv6OnlyPropertyInfo = Bool+    type AttrLabel SocketIpv6OnlyPropertyInfo = "Socket::ipv6-only"+    attrGet _ = getSocketIpv6Only+    attrSet _ = setSocketIpv6Only+    attrConstruct _ = constructSocketIpv6Only++-- VVV Prop "is-server"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getSocketIsServer :: (MonadIO m, SocketK o) => o -> m Bool+getSocketIsServer obj = liftIO $ getObjectPropertyBool obj "is-server"++data SocketIsServerPropertyInfo+instance AttrInfo SocketIsServerPropertyInfo where+    type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint SocketIsServerPropertyInfo = SocketK+    type AttrGetType SocketIsServerPropertyInfo = Bool+    type AttrLabel SocketIsServerPropertyInfo = "Socket::is-server"+    attrGet _ = getSocketIsServer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "local-address"+   -- Type: TInterface "Soup" "Address"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address+getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address++constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)+constructSocketLocalAddress val = constructObjectPropertyObject "local-address" val++data SocketLocalAddressPropertyInfo+instance AttrInfo SocketLocalAddressPropertyInfo where+    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK+    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK+    type AttrGetType SocketLocalAddressPropertyInfo = Address+    type AttrLabel SocketLocalAddressPropertyInfo = "Socket::local-address"+    attrGet _ = getSocketLocalAddress+    attrSet _ = undefined+    attrConstruct _ = constructSocketLocalAddress++-- VVV Prop "non-blocking"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getSocketNonBlocking :: (MonadIO m, SocketK o) => o -> m Bool+getSocketNonBlocking obj = liftIO $ getObjectPropertyBool obj "non-blocking"++setSocketNonBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m ()+setSocketNonBlocking obj val = liftIO $ setObjectPropertyBool obj "non-blocking" val++constructSocketNonBlocking :: Bool -> IO ([Char], GValue)+constructSocketNonBlocking val = constructObjectPropertyBool "non-blocking" val++data SocketNonBlockingPropertyInfo+instance AttrInfo SocketNonBlockingPropertyInfo where+    type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = SocketK+    type AttrGetType SocketNonBlockingPropertyInfo = Bool+    type AttrLabel SocketNonBlockingPropertyInfo = "Socket::non-blocking"+    attrGet _ = getSocketNonBlocking+    attrSet _ = setSocketNonBlocking+    attrConstruct _ = constructSocketNonBlocking++-- VVV Prop "remote-address"+   -- Type: TInterface "Soup" "Address"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address+getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" Address++constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue)+constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" val++data SocketRemoteAddressPropertyInfo+instance AttrInfo SocketRemoteAddressPropertyInfo where+    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK+    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK+    type AttrGetType SocketRemoteAddressPropertyInfo = Address+    type AttrLabel SocketRemoteAddressPropertyInfo = "Socket::remote-address"+    attrGet _ = getSocketRemoteAddress+    attrSet _ = undefined+    attrConstruct _ = constructSocketRemoteAddress++-- VVV Prop "ssl-creds"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++getSocketSslCreds :: (MonadIO m, SocketK o) => o -> m (Ptr ())+getSocketSslCreds obj = liftIO $ getObjectPropertyPtr obj "ssl-creds"++setSocketSslCreds :: (MonadIO m, SocketK o) => o -> (Ptr ()) -> m ()+setSocketSslCreds obj val = liftIO $ setObjectPropertyPtr obj "ssl-creds" val++constructSocketSslCreds :: (Ptr ()) -> IO ([Char], GValue)+constructSocketSslCreds val = constructObjectPropertyPtr "ssl-creds" val++data SocketSslCredsPropertyInfo+instance AttrInfo SocketSslCredsPropertyInfo where+    type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = SocketK+    type AttrGetType SocketSslCredsPropertyInfo = (Ptr ())+    type AttrLabel SocketSslCredsPropertyInfo = "Socket::ssl-creds"+    attrGet _ = getSocketSslCreds+    attrSet _ = setSocketSslCreds+    attrConstruct _ = constructSocketSslCreds++-- VVV Prop "ssl-fallback"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketSslFallback :: (MonadIO m, SocketK o) => o -> m Bool+getSocketSslFallback obj = liftIO $ getObjectPropertyBool obj "ssl-fallback"++constructSocketSslFallback :: Bool -> IO ([Char], GValue)+constructSocketSslFallback val = constructObjectPropertyBool "ssl-fallback" val++data SocketSslFallbackPropertyInfo+instance AttrInfo SocketSslFallbackPropertyInfo where+    type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = SocketK+    type AttrGetType SocketSslFallbackPropertyInfo = Bool+    type AttrLabel SocketSslFallbackPropertyInfo = "Socket::ssl-fallback"+    attrGet _ = getSocketSslFallback+    attrSet _ = undefined+    attrConstruct _ = constructSocketSslFallback++-- VVV Prop "ssl-strict"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketSslStrict :: (MonadIO m, SocketK o) => o -> m Bool+getSocketSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"++constructSocketSslStrict :: Bool -> IO ([Char], GValue)+constructSocketSslStrict val = constructObjectPropertyBool "ssl-strict" val++data SocketSslStrictPropertyInfo+instance AttrInfo SocketSslStrictPropertyInfo where+    type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = SocketK+    type AttrGetType SocketSslStrictPropertyInfo = Bool+    type AttrLabel SocketSslStrictPropertyInfo = "Socket::ssl-strict"+    attrGet _ = getSocketSslStrict+    attrSet _ = undefined+    attrConstruct _ = constructSocketSslStrict++-- VVV Prop "timeout"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable]++getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32+getSocketTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout"++setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m ()+setSocketTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val++constructSocketTimeout :: Word32 -> IO ([Char], GValue)+constructSocketTimeout val = constructObjectPropertyCUInt "timeout" val++data SocketTimeoutPropertyInfo+instance AttrInfo SocketTimeoutPropertyInfo where+    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK+    type AttrGetType SocketTimeoutPropertyInfo = Word32+    type AttrLabel SocketTimeoutPropertyInfo = "Socket::timeout"+    attrGet _ = getSocketTimeout+    attrSet _ = setSocketTimeout+    attrConstruct _ = constructSocketTimeout++-- VVV Prop "tls-certificate"+   -- Type: TInterface "Gio" "TlsCertificate"+   -- Flags: [PropertyReadable]++getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m Gio.TlsCertificate+getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate++data SocketTlsCertificatePropertyInfo+instance AttrInfo SocketTlsCertificatePropertyInfo where+    type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK+    type AttrGetType SocketTlsCertificatePropertyInfo = Gio.TlsCertificate+    type AttrLabel SocketTlsCertificatePropertyInfo = "Socket::tls-certificate"+    attrGet _ = getSocketTlsCertificate+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "tls-errors"+   -- Type: TInterface "Gio" "TlsCertificateFlags"+   -- Flags: [PropertyReadable]++getSocketTlsErrors :: (MonadIO m, SocketK o) => o -> m [Gio.TlsCertificateFlags]+getSocketTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"++data SocketTlsErrorsPropertyInfo+instance AttrInfo SocketTlsErrorsPropertyInfo where+    type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = SocketK+    type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]+    type AttrLabel SocketTlsErrorsPropertyInfo = "Socket::tls-errors"+    attrGet _ = getSocketTlsErrors+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "trusted-certificate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getSocketTrustedCertificate :: (MonadIO m, SocketK o) => o -> m Bool+getSocketTrustedCertificate obj = liftIO $ getObjectPropertyBool obj "trusted-certificate"++data SocketTrustedCertificatePropertyInfo+instance AttrInfo SocketTrustedCertificatePropertyInfo where+    type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = SocketK+    type AttrGetType SocketTrustedCertificatePropertyInfo = Bool+    type AttrLabel SocketTrustedCertificatePropertyInfo = "Socket::trusted-certificate"+    attrGet _ = getSocketTrustedCertificate+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "use-thread-context"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getSocketUseThreadContext :: (MonadIO m, SocketK o) => o -> m Bool+getSocketUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"++constructSocketUseThreadContext :: Bool -> IO ([Char], GValue)+constructSocketUseThreadContext val = constructObjectPropertyBool "use-thread-context" val++data SocketUseThreadContextPropertyInfo+instance AttrInfo SocketUseThreadContextPropertyInfo where+    type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = SocketK+    type AttrGetType SocketUseThreadContextPropertyInfo = Bool+    type AttrLabel SocketUseThreadContextPropertyInfo = "Socket::use-thread-context"+    attrGet _ = getSocketUseThreadContext+    attrSet _ = undefined+    attrConstruct _ = constructSocketUseThreadContext++type instance AttributeList Socket = SocketAttributeList+type SocketAttributeList = ('[ '("async-context", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6-only", SocketIpv6OnlyPropertyInfo), '("is-server", SocketIsServerPropertyInfo), '("local-address", SocketLocalAddressPropertyInfo), '("non-blocking", SocketNonBlockingPropertyInfo), '("remote-address", SocketRemoteAddressPropertyInfo), '("ssl-creds", SocketSslCredsPropertyInfo), '("ssl-fallback", SocketSslFallbackPropertyInfo), '("ssl-strict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tls-certificate", SocketTlsCertificatePropertyInfo), '("tls-errors", SocketTlsErrorsPropertyInfo), '("trusted-certificate", SocketTrustedCertificatePropertyInfo), '("use-thread-context", SocketUseThreadContextPropertyInfo)] :: [(Symbol, *)])++data SocketDisconnectedSignalInfo+instance SignalInfo SocketDisconnectedSignalInfo where+    type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback+    connectSignal _ = connectSocketDisconnected++data SocketEventSignalInfo+instance SignalInfo SocketEventSignalInfo where+    type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback+    connectSignal _ = connectSocketEvent++data SocketNewConnectionSignalInfo+instance SignalInfo SocketNewConnectionSignalInfo where+    type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback+    connectSignal _ = connectSocketNewConnection++data SocketReadableSignalInfo+instance SignalInfo SocketReadableSignalInfo where+    type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback+    connectSignal _ = connectSocketReadable++data SocketWritableSignalInfo+instance SignalInfo SocketWritableSignalInfo where+    type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback+    connectSignal _ = connectSocketWritable++type instance SignalList Socket = SocketSignalList+type SocketSignalList = ('[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("new-connection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Socket::connect_async+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_connect_async" soup_socket_connect_async :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    FunPtr SocketCallbackC ->               -- callback : TInterface "Soup" "SocketCallback"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++socketConnectAsync ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    SocketCallback ->                       -- callback+    m ()+socketConnectAsync _obj cancellable callback = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    ptrcallback <- callocMem :: IO (Ptr (FunPtr SocketCallbackC))+    callback' <- mkSocketCallback (socketCallbackWrapper (Just ptrcallback) callback)+    poke ptrcallback callback'+    let user_data = nullPtr+    soup_socket_connect_async _obj' maybeCancellable callback' user_data+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return ()++-- method Socket::connect_sync+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_connect_sync" soup_socket_connect_sync :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    IO Word32+++socketConnectSync ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    m Word32+socketConnectSync _obj cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    result <- soup_socket_connect_sync _obj' maybeCancellable+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return result++-- method Socket::disconnect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_disconnect" soup_socket_disconnect :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO ()+++socketDisconnect ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m ()+socketDisconnect _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    soup_socket_disconnect _obj'+    touchManagedPtr _obj+    return ()++-- method Socket::get_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_get_fd" soup_socket_get_fd :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO Int32+++socketGetFd ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Int32+socketGetFd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_get_fd _obj'+    touchManagedPtr _obj+    return result++-- method Socket::get_local_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO (Ptr Address)+++socketGetLocalAddress ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Address+socketGetLocalAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_get_local_address _obj'+    checkUnexpectedReturnNULL "soup_socket_get_local_address" result+    result' <- (newObject Address) result+    touchManagedPtr _obj+    return result'++-- method Socket::get_remote_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO (Ptr Address)+++socketGetRemoteAddress ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Address+socketGetRemoteAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_get_remote_address _obj'+    checkUnexpectedReturnNULL "soup_socket_get_remote_address" result+    result' <- (newObject Address) result+    touchManagedPtr _obj+    return result'++-- method Socket::is_connected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_is_connected" soup_socket_is_connected :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO CInt+++socketIsConnected ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Bool+socketIsConnected _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_is_connected _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Socket::is_ssl+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_is_ssl" soup_socket_is_ssl :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO CInt+++socketIsSsl ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Bool+socketIsSsl _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_is_ssl _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Socket::listen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_listen" soup_socket_listen :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    IO CInt+++socketListen ::+    (MonadIO m, SocketK a) =>+    a ->                                    -- _obj+    m Bool+socketListen _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_socket_listen _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Socket::read+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "SocketIOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "soup_socket_read" soup_socket_read :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- len : TBasicType TUInt64+    Ptr Word64 ->                           -- nread : TBasicType TUInt64+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++socketRead ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    ByteString ->                           -- buffer+    Maybe (b) ->                            -- cancellable+    m (SocketIOStatus,Word64)+socketRead _obj buffer cancellable = liftIO $ do+    let len = fromIntegral $ B.length buffer+    let _obj' = unsafeManagedPtrCastPtr _obj+    buffer' <- packByteString buffer+    nread <- allocMem :: IO (Ptr Word64)+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_socket_read _obj' buffer' len nread maybeCancellable+        let result' = (toEnum . fromIntegral) result+        nread' <- peek nread+        touchManagedPtr _obj+        whenJust cancellable touchManagedPtr+        freeMem buffer'+        freeMem nread+        return (result', nread')+     ) (do+        freeMem buffer'+        freeMem nread+     )++-- method Socket::read_until+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "SocketIOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "soup_socket_read_until" soup_socket_read_until :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- len : TBasicType TUInt64+    Ptr () ->                               -- boundary : TBasicType TVoid+    Word64 ->                               -- boundary_len : TBasicType TUInt64+    Ptr Word64 ->                           -- nread : TBasicType TUInt64+    CInt ->                                 -- got_boundary : TBasicType TBoolean+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++socketReadUntil ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    ByteString ->                           -- buffer+    Ptr () ->                               -- boundary+    Word64 ->                               -- boundary_len+    Bool ->                                 -- got_boundary+    Maybe (b) ->                            -- cancellable+    m (SocketIOStatus,Word64)+socketReadUntil _obj buffer boundary boundary_len got_boundary cancellable = liftIO $ do+    let len = fromIntegral $ B.length buffer+    let _obj' = unsafeManagedPtrCastPtr _obj+    buffer' <- packByteString buffer+    nread <- allocMem :: IO (Ptr Word64)+    let got_boundary' = (fromIntegral . fromEnum) got_boundary+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_socket_read_until _obj' buffer' len boundary boundary_len nread got_boundary' maybeCancellable+        let result' = (toEnum . fromIntegral) result+        nread' <- peek nread+        touchManagedPtr _obj+        whenJust cancellable touchManagedPtr+        freeMem buffer'+        freeMem nread+        return (result', nread')+     ) (do+        freeMem buffer'+        freeMem nread+     )++-- method Socket::start_proxy_ssl+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_start_proxy_ssl" soup_socket_start_proxy_ssl :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    CString ->                              -- ssl_host : TBasicType TUTF8+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    IO CInt+++socketStartProxySsl ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    T.Text ->                               -- ssl_host+    Maybe (b) ->                            -- cancellable+    m Bool+socketStartProxySsl _obj ssl_host cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    ssl_host' <- textToCString ssl_host+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    result <- soup_socket_start_proxy_ssl _obj' ssl_host' maybeCancellable+    let result' = (/= 0) result+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    freeMem ssl_host'+    return result'++-- method Socket::start_ssl+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_socket_start_ssl" soup_socket_start_ssl :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    IO CInt+++socketStartSsl ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    Maybe (b) ->                            -- cancellable+    m Bool+socketStartSsl _obj cancellable = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    result <- soup_socket_start_ssl _obj' maybeCancellable+    let result' = (/= 0) result+    touchManagedPtr _obj+    whenJust cancellable touchManagedPtr+    return result'++-- method Socket::write+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "SocketIOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "soup_socket_write" soup_socket_write :: +    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"+    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- len : TBasicType TUInt64+    Ptr Word64 ->                           -- nwrote : TBasicType TUInt64+    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++socketWrite ::+    (MonadIO m, SocketK a, Gio.CancellableK b) =>+    a ->                                    -- _obj+    ByteString ->                           -- buffer+    Maybe (b) ->                            -- cancellable+    m (SocketIOStatus,Word64)+socketWrite _obj buffer cancellable = liftIO $ do+    let len = fromIntegral $ B.length buffer+    let _obj' = unsafeManagedPtrCastPtr _obj+    buffer' <- packByteString buffer+    nwrote <- allocMem :: IO (Ptr Word64)+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            let jCancellable' = unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        result <- propagateGError $ soup_socket_write _obj' buffer' len nwrote maybeCancellable+        let result' = (toEnum . fromIntegral) result+        nwrote' <- peek nwrote+        touchManagedPtr _obj+        whenJust cancellable touchManagedPtr+        freeMem buffer'+        freeMem nwrote+        return (result', nwrote')+     ) (do+        freeMem buffer'+        freeMem nwrote+     )++
+ GI/Soup/Objects/Socket.hs-boot view
@@ -0,0 +1,35 @@+module GI.Soup.Objects.Socket where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Socket = Socket (ForeignPtr Socket)+instance GObject Socket where+class GObject o => SocketK o+instance (GObject o, IsDescendantOf Socket o) => SocketK o+data SocketAsyncContextPropertyInfo+data SocketFdPropertyInfo+data SocketGsocketPropertyInfo+data SocketIostreamPropertyInfo+data SocketIpv6OnlyPropertyInfo+data SocketIsServerPropertyInfo+data SocketLocalAddressPropertyInfo+data SocketNonBlockingPropertyInfo+data SocketRemoteAddressPropertyInfo+data SocketSslCredsPropertyInfo+data SocketSslFallbackPropertyInfo+data SocketSslStrictPropertyInfo+data SocketTimeoutPropertyInfo+data SocketTlsCertificatePropertyInfo+data SocketTlsErrorsPropertyInfo+data SocketTrustedCertificatePropertyInfo+data SocketUseThreadContextPropertyInfo+data SocketDisconnectedSignalInfo+data SocketEventSignalInfo+data SocketNewConnectionSignalInfo+data SocketReadableSignalInfo+data SocketWritableSignalInfo
+ GI/Soup/Objects/WebsocketConnection.hs view
@@ -0,0 +1,851 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Objects.WebsocketConnection+    ( ++-- * Exported types+    WebsocketConnection(..)                 ,+    WebsocketConnectionK                    ,+    toWebsocketConnection                   ,+    noWebsocketConnection                   ,+++ -- * Methods+-- ** websocketConnectionClose+    websocketConnectionClose                ,+++-- ** websocketConnectionGetCloseCode+    websocketConnectionGetCloseCode         ,+++-- ** websocketConnectionGetCloseData+    websocketConnectionGetCloseData         ,+++-- ** websocketConnectionGetConnectionType+    websocketConnectionGetConnectionType    ,+++-- ** websocketConnectionGetIoStream+    websocketConnectionGetIoStream          ,+++-- ** websocketConnectionGetOrigin+    websocketConnectionGetOrigin            ,+++-- ** websocketConnectionGetProtocol+    websocketConnectionGetProtocol          ,+++-- ** websocketConnectionGetState+    websocketConnectionGetState             ,+++-- ** websocketConnectionGetUri+    websocketConnectionGetUri               ,+++-- ** websocketConnectionNew+    websocketConnectionNew                  ,+++-- ** websocketConnectionSendBinary+    websocketConnectionSendBinary           ,+++-- ** websocketConnectionSendText+    websocketConnectionSendText             ,+++++ -- * Properties+-- ** ConnectionType+    WebsocketConnectionConnectionTypePropertyInfo,+    constructWebsocketConnectionConnectionType,+    getWebsocketConnectionConnectionType    ,+++-- ** IoStream+    WebsocketConnectionIoStreamPropertyInfo ,+    constructWebsocketConnectionIoStream    ,+    getWebsocketConnectionIoStream          ,+++-- ** Origin+    WebsocketConnectionOriginPropertyInfo   ,+    constructWebsocketConnectionOrigin      ,+    getWebsocketConnectionOrigin            ,+++-- ** Protocol+    WebsocketConnectionProtocolPropertyInfo ,+    constructWebsocketConnectionProtocol    ,+    getWebsocketConnectionProtocol          ,+++-- ** State+    WebsocketConnectionStatePropertyInfo    ,+    getWebsocketConnectionState             ,+++-- ** Uri+    WebsocketConnectionUriPropertyInfo      ,+    constructWebsocketConnectionUri         ,+    getWebsocketConnectionUri               ,+++++ -- * Signals+-- ** Closed+    WebsocketConnectionClosedCallback       ,+    WebsocketConnectionClosedCallbackC      ,+    WebsocketConnectionClosedSignalInfo     ,+    afterWebsocketConnectionClosed          ,+    mkWebsocketConnectionClosedCallback     ,+    noWebsocketConnectionClosedCallback     ,+    onWebsocketConnectionClosed             ,+    websocketConnectionClosedCallbackWrapper,+    websocketConnectionClosedClosure        ,+++-- ** Closing+    WebsocketConnectionClosingCallback      ,+    WebsocketConnectionClosingCallbackC     ,+    WebsocketConnectionClosingSignalInfo    ,+    afterWebsocketConnectionClosing         ,+    mkWebsocketConnectionClosingCallback    ,+    noWebsocketConnectionClosingCallback    ,+    onWebsocketConnectionClosing            ,+    websocketConnectionClosingCallbackWrapper,+    websocketConnectionClosingClosure       ,+++-- ** Error+    WebsocketConnectionErrorCallback        ,+    WebsocketConnectionErrorCallbackC       ,+    WebsocketConnectionErrorSignalInfo      ,+    afterWebsocketConnectionError           ,+    mkWebsocketConnectionErrorCallback      ,+    noWebsocketConnectionErrorCallback      ,+    onWebsocketConnectionError              ,+    websocketConnectionErrorCallbackWrapper ,+    websocketConnectionErrorClosure         ,+++-- ** Message+    WebsocketConnectionMessageCallback      ,+    WebsocketConnectionMessageCallbackC     ,+    WebsocketConnectionMessageSignalInfo    ,+    afterWebsocketConnectionMessage         ,+    mkWebsocketConnectionMessageCallback    ,+    noWebsocketConnectionMessageCallback    ,+    onWebsocketConnectionMessage            ,+    websocketConnectionMessageCallbackWrapper,+    websocketConnectionMessageClosure       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib+import qualified GI.GObject as GObject+import qualified GI.Gio as Gio++newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection)+foreign import ccall "soup_websocket_connection_get_type"+    c_soup_websocket_connection_get_type :: IO GType++type instance ParentTypes WebsocketConnection = WebsocketConnectionParentTypes+type WebsocketConnectionParentTypes = '[GObject.Object]++instance GObject WebsocketConnection where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_soup_websocket_connection_get_type+    ++class GObject o => WebsocketConnectionK o+instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o++toWebsocketConnection :: WebsocketConnectionK o => o -> IO WebsocketConnection+toWebsocketConnection = unsafeCastTo WebsocketConnection++noWebsocketConnection :: Maybe WebsocketConnection+noWebsocketConnection = Nothing++-- signal WebsocketConnection::closed+type WebsocketConnectionClosedCallback =+    IO ()++noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback+noWebsocketConnectionClosedCallback = Nothing++type WebsocketConnectionClosedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebsocketConnectionClosedCallback :: WebsocketConnectionClosedCallbackC -> IO (FunPtr WebsocketConnectionClosedCallbackC)++websocketConnectionClosedClosure :: WebsocketConnectionClosedCallback -> IO Closure+websocketConnectionClosedClosure cb = newCClosure =<< mkWebsocketConnectionClosedCallback wrapped+    where wrapped = websocketConnectionClosedCallbackWrapper cb++websocketConnectionClosedCallbackWrapper ::+    WebsocketConnectionClosedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+websocketConnectionClosedCallbackWrapper _cb _ _ = do+    _cb ++onWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId+onWebsocketConnectionClosed obj cb = liftIO $ connectWebsocketConnectionClosed obj cb SignalConnectBefore+afterWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId+afterWebsocketConnectionClosed obj cb = connectWebsocketConnectionClosed obj cb SignalConnectAfter++connectWebsocketConnectionClosed :: (GObject a, MonadIO m) =>+                                    a -> WebsocketConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebsocketConnectionClosed obj cb after = liftIO $ do+    cb' <- mkWebsocketConnectionClosedCallback (websocketConnectionClosedCallbackWrapper cb)+    connectSignalFunPtr obj "closed" cb' after++-- signal WebsocketConnection::closing+type WebsocketConnectionClosingCallback =+    IO ()++noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback+noWebsocketConnectionClosingCallback = Nothing++type WebsocketConnectionClosingCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebsocketConnectionClosingCallback :: WebsocketConnectionClosingCallbackC -> IO (FunPtr WebsocketConnectionClosingCallbackC)++websocketConnectionClosingClosure :: WebsocketConnectionClosingCallback -> IO Closure+websocketConnectionClosingClosure cb = newCClosure =<< mkWebsocketConnectionClosingCallback wrapped+    where wrapped = websocketConnectionClosingCallbackWrapper cb++websocketConnectionClosingCallbackWrapper ::+    WebsocketConnectionClosingCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+websocketConnectionClosingCallbackWrapper _cb _ _ = do+    _cb ++onWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId+onWebsocketConnectionClosing obj cb = liftIO $ connectWebsocketConnectionClosing obj cb SignalConnectBefore+afterWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId+afterWebsocketConnectionClosing obj cb = connectWebsocketConnectionClosing obj cb SignalConnectAfter++connectWebsocketConnectionClosing :: (GObject a, MonadIO m) =>+                                     a -> WebsocketConnectionClosingCallback -> SignalConnectMode -> m SignalHandlerId+connectWebsocketConnectionClosing obj cb after = liftIO $ do+    cb' <- mkWebsocketConnectionClosingCallback (websocketConnectionClosingCallbackWrapper cb)+    connectSignalFunPtr obj "closing" cb' after++-- signal WebsocketConnection::error+type WebsocketConnectionErrorCallback =+    GError ->+    IO ()++noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback+noWebsocketConnectionErrorCallback = Nothing++type WebsocketConnectionErrorCallbackC =+    Ptr () ->                               -- object+    Ptr GError ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebsocketConnectionErrorCallback :: WebsocketConnectionErrorCallbackC -> IO (FunPtr WebsocketConnectionErrorCallbackC)++websocketConnectionErrorClosure :: WebsocketConnectionErrorCallback -> IO Closure+websocketConnectionErrorClosure cb = newCClosure =<< mkWebsocketConnectionErrorCallback wrapped+    where wrapped = websocketConnectionErrorCallbackWrapper cb++websocketConnectionErrorCallbackWrapper ::+    WebsocketConnectionErrorCallback ->+    Ptr () ->+    Ptr GError ->+    Ptr () ->+    IO ()+websocketConnectionErrorCallbackWrapper _cb _ error_ _ = do+    error_' <- (newBoxed GError) error_+    _cb  error_'++onWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId+onWebsocketConnectionError obj cb = liftIO $ connectWebsocketConnectionError obj cb SignalConnectBefore+afterWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId+afterWebsocketConnectionError obj cb = connectWebsocketConnectionError obj cb SignalConnectAfter++connectWebsocketConnectionError :: (GObject a, MonadIO m) =>+                                   a -> WebsocketConnectionErrorCallback -> SignalConnectMode -> m SignalHandlerId+connectWebsocketConnectionError obj cb after = liftIO $ do+    cb' <- mkWebsocketConnectionErrorCallback (websocketConnectionErrorCallbackWrapper cb)+    connectSignalFunPtr obj "error" cb' after++-- signal WebsocketConnection::message+type WebsocketConnectionMessageCallback =+    Int32 ->+    GLib.Bytes ->+    IO ()++noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback+noWebsocketConnectionMessageCallback = Nothing++type WebsocketConnectionMessageCallbackC =+    Ptr () ->                               -- object+    Int32 ->+    Ptr GLib.Bytes ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebsocketConnectionMessageCallback :: WebsocketConnectionMessageCallbackC -> IO (FunPtr WebsocketConnectionMessageCallbackC)++websocketConnectionMessageClosure :: WebsocketConnectionMessageCallback -> IO Closure+websocketConnectionMessageClosure cb = newCClosure =<< mkWebsocketConnectionMessageCallback wrapped+    where wrapped = websocketConnectionMessageCallbackWrapper cb++websocketConnectionMessageCallbackWrapper ::+    WebsocketConnectionMessageCallback ->+    Ptr () ->+    Int32 ->+    Ptr GLib.Bytes ->+    Ptr () ->+    IO ()+websocketConnectionMessageCallbackWrapper _cb _ type_ message _ = do+    message' <- (newBoxed GLib.Bytes) message+    _cb  type_ message'++onWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId+onWebsocketConnectionMessage obj cb = liftIO $ connectWebsocketConnectionMessage obj cb SignalConnectBefore+afterWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId+afterWebsocketConnectionMessage obj cb = connectWebsocketConnectionMessage obj cb SignalConnectAfter++connectWebsocketConnectionMessage :: (GObject a, MonadIO m) =>+                                     a -> WebsocketConnectionMessageCallback -> SignalConnectMode -> m SignalHandlerId+connectWebsocketConnectionMessage obj cb after = liftIO $ do+    cb' <- mkWebsocketConnectionMessageCallback (websocketConnectionMessageCallbackWrapper cb)+    connectSignalFunPtr obj "message" cb' after++-- VVV Prop "connection-type"+   -- Type: TInterface "Soup" "WebsocketConnectionType"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebsocketConnectionConnectionType :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketConnectionType+getWebsocketConnectionConnectionType obj = liftIO $ getObjectPropertyEnum obj "connection-type"++constructWebsocketConnectionConnectionType :: WebsocketConnectionType -> IO ([Char], GValue)+constructWebsocketConnectionConnectionType val = constructObjectPropertyEnum "connection-type" val++data WebsocketConnectionConnectionTypePropertyInfo+instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where+    type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) WebsocketConnectionType+    type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionType+    type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "WebsocketConnection::connection-type"+    attrGet _ = getWebsocketConnectionConnectionType+    attrSet _ = undefined+    attrConstruct _ = constructWebsocketConnectionConnectionType++-- VVV Prop "io-stream"+   -- Type: TInterface "Gio" "IOStream"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream+getWebsocketConnectionIoStream obj = liftIO $ getObjectPropertyObject obj "io-stream" Gio.IOStream++constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)+constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" val++data WebsocketConnectionIoStreamPropertyInfo+instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where+    type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK+    type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream+    type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "WebsocketConnection::io-stream"+    attrGet _ = getWebsocketConnectionIoStream+    attrSet _ = undefined+    attrConstruct _ = constructWebsocketConnectionIoStream++-- VVV Prop "origin"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text+getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin"++constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue)+constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" val++data WebsocketConnectionOriginPropertyInfo+instance AttrInfo WebsocketConnectionOriginPropertyInfo where+    type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionOriginPropertyInfo = T.Text+    type AttrLabel WebsocketConnectionOriginPropertyInfo = "WebsocketConnection::origin"+    attrGet _ = getWebsocketConnectionOrigin+    attrSet _ = undefined+    attrConstruct _ = constructWebsocketConnectionOrigin++-- VVV Prop "protocol"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text+getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol"++constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue)+constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" val++data WebsocketConnectionProtocolPropertyInfo+instance AttrInfo WebsocketConnectionProtocolPropertyInfo where+    type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionProtocolPropertyInfo = T.Text+    type AttrLabel WebsocketConnectionProtocolPropertyInfo = "WebsocketConnection::protocol"+    attrGet _ = getWebsocketConnectionProtocol+    attrSet _ = undefined+    attrConstruct _ = constructWebsocketConnectionProtocol++-- VVV Prop "state"+   -- Type: TInterface "Soup" "WebsocketState"+   -- Flags: [PropertyReadable]++getWebsocketConnectionState :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketState+getWebsocketConnectionState obj = liftIO $ getObjectPropertyEnum obj "state"++data WebsocketConnectionStatePropertyInfo+instance AttrInfo WebsocketConnectionStatePropertyInfo where+    type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionStatePropertyInfo = WebsocketState+    type AttrLabel WebsocketConnectionStatePropertyInfo = "WebsocketConnection::state"+    attrGet _ = getWebsocketConnectionState+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "uri"+   -- Type: TInterface "Soup" "URI"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI+getWebsocketConnectionUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI++constructWebsocketConnectionUri :: URI -> IO ([Char], GValue)+constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" val++data WebsocketConnectionUriPropertyInfo+instance AttrInfo WebsocketConnectionUriPropertyInfo where+    type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI+    type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK+    type AttrGetType WebsocketConnectionUriPropertyInfo = URI+    type AttrLabel WebsocketConnectionUriPropertyInfo = "WebsocketConnection::uri"+    attrGet _ = getWebsocketConnectionUri+    attrSet _ = undefined+    attrConstruct _ = constructWebsocketConnectionUri++type instance AttributeList WebsocketConnection = WebsocketConnectionAttributeList+type WebsocketConnectionAttributeList = ('[ '("connection-type", WebsocketConnectionConnectionTypePropertyInfo), '("io-stream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)])++data WebsocketConnectionClosedSignalInfo+instance SignalInfo WebsocketConnectionClosedSignalInfo where+    type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback+    connectSignal _ = connectWebsocketConnectionClosed++data WebsocketConnectionClosingSignalInfo+instance SignalInfo WebsocketConnectionClosingSignalInfo where+    type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback+    connectSignal _ = connectWebsocketConnectionClosing++data WebsocketConnectionErrorSignalInfo+instance SignalInfo WebsocketConnectionErrorSignalInfo where+    type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback+    connectSignal _ = connectWebsocketConnectionError++data WebsocketConnectionMessageSignalInfo+instance SignalInfo WebsocketConnectionMessageSignalInfo where+    type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback+    connectSignal _ = connectWebsocketConnectionMessage++type instance SignalList WebsocketConnection = WebsocketConnectionSignalList+type WebsocketConnectionSignalList = ('[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method WebsocketConnection::new+-- method type : Constructor+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "WebsocketConnection"+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: +    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    CUInt ->                                -- type : TInterface "Soup" "WebsocketConnectionType"+    CString ->                              -- origin : TBasicType TUTF8+    CString ->                              -- protocol : TBasicType TUTF8+    IO (Ptr WebsocketConnection)+++websocketConnectionNew ::+    (MonadIO m, Gio.IOStreamK a) =>+    a ->                                    -- stream+    URI ->                                  -- uri+    WebsocketConnectionType ->              -- type+    Maybe (T.Text) ->                       -- origin+    Maybe (T.Text) ->                       -- protocol+    m WebsocketConnection+websocketConnectionNew stream uri type_ origin protocol = liftIO $ do+    let stream' = unsafeManagedPtrCastPtr stream+    let uri' = unsafeManagedPtrGetPtr uri+    let type_' = (fromIntegral . fromEnum) type_+    maybeOrigin <- case origin of+        Nothing -> return nullPtr+        Just jOrigin -> do+            jOrigin' <- textToCString jOrigin+            return jOrigin'+    maybeProtocol <- case protocol of+        Nothing -> return nullPtr+        Just jProtocol -> do+            jProtocol' <- textToCString jProtocol+            return jProtocol'+    result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol+    checkUnexpectedReturnNULL "soup_websocket_connection_new" result+    result' <- (wrapObject WebsocketConnection) result+    touchManagedPtr stream+    touchManagedPtr uri+    freeMem maybeOrigin+    freeMem maybeProtocol+    return result'++-- method WebsocketConnection::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_close" soup_websocket_connection_close :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    Word16 ->                               -- code : TBasicType TUInt16+    CString ->                              -- data : TBasicType TUTF8+    IO ()+++websocketConnectionClose ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    Word16 ->                               -- code+    Maybe (T.Text) ->                       -- data+    m ()+websocketConnectionClose _obj code data_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeData_ <- case data_ of+        Nothing -> return nullPtr+        Just jData_ -> do+            jData_' <- textToCString jData_+            return jData_'+    soup_websocket_connection_close _obj' code maybeData_+    touchManagedPtr _obj+    freeMem maybeData_+    return ()++-- method WebsocketConnection::get_close_code+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt16+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO Word16+++websocketConnectionGetCloseCode ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m Word16+websocketConnectionGetCloseCode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_close_code _obj'+    touchManagedPtr _obj+    return result++-- method WebsocketConnection::get_close_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO CString+++websocketConnectionGetCloseData ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m T.Text+websocketConnectionGetCloseData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_close_data _obj'+    checkUnexpectedReturnNULL "soup_websocket_connection_get_close_data" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_connection_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "WebsocketConnectionType"+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO CUInt+++websocketConnectionGetConnectionType ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m WebsocketConnectionType+websocketConnectionGetConnectionType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_connection_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_io_stream+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "IOStream"+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO (Ptr Gio.IOStream)+++websocketConnectionGetIoStream ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m Gio.IOStream+websocketConnectionGetIoStream _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_io_stream _obj'+    checkUnexpectedReturnNULL "soup_websocket_connection_get_io_stream" result+    result' <- (newObject Gio.IOStream) result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_origin+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO CString+++websocketConnectionGetOrigin ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m T.Text+websocketConnectionGetOrigin _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_origin _obj'+    checkUnexpectedReturnNULL "soup_websocket_connection_get_origin" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO CString+++websocketConnectionGetProtocol ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m T.Text+websocketConnectionGetProtocol _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_protocol _obj'+    checkUnexpectedReturnNULL "soup_websocket_connection_get_protocol" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "WebsocketState"+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO CUInt+++websocketConnectionGetState ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m WebsocketState+websocketConnectionGetState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_state _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    IO (Ptr URI)+++websocketConnectionGetUri ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    m URI+websocketConnectionGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- soup_websocket_connection_get_uri _obj'+    checkUnexpectedReturnNULL "soup_websocket_connection_get_uri" result+    result' <- (newBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method WebsocketConnection::send_binary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++websocketConnectionSendBinary ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    ByteString ->                           -- data+    m ()+websocketConnectionSendBinary _obj data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    let _obj' = unsafeManagedPtrCastPtr _obj+    data_' <- packByteString data_+    soup_websocket_connection_send_binary _obj' data_' length_+    touchManagedPtr _obj+    freeMem data_'+    return ()++-- method WebsocketConnection::send_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_websocket_connection_send_text" soup_websocket_connection_send_text :: +    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"+    CString ->                              -- text : TBasicType TUTF8+    IO ()+++websocketConnectionSendText ::+    (MonadIO m, WebsocketConnectionK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- text+    m ()+websocketConnectionSendText _obj text = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    text' <- textToCString text+    soup_websocket_connection_send_text _obj' text'+    touchManagedPtr _obj+    freeMem text'+    return ()++
+ GI/Soup/Objects/WebsocketConnection.hs-boot view
@@ -0,0 +1,23 @@+module GI.Soup.Objects.WebsocketConnection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection)+instance GObject WebsocketConnection where+class GObject o => WebsocketConnectionK o+instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o+data WebsocketConnectionConnectionTypePropertyInfo+data WebsocketConnectionIoStreamPropertyInfo+data WebsocketConnectionOriginPropertyInfo+data WebsocketConnectionProtocolPropertyInfo+data WebsocketConnectionStatePropertyInfo+data WebsocketConnectionUriPropertyInfo+data WebsocketConnectionClosedSignalInfo+data WebsocketConnectionClosingSignalInfo+data WebsocketConnectionErrorSignalInfo+data WebsocketConnectionMessageSignalInfo
+ GI/Soup/Structs.hs view
@@ -0,0 +1,52 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Structs+    (     module GI.Soup.Structs.Buffer           ,+    module GI.Soup.Structs.ClientContext    ,+    module GI.Soup.Structs.Connection       ,+    module GI.Soup.Structs.Cookie           ,+    module GI.Soup.Structs.Date             ,+    module GI.Soup.Structs.MessageBody      ,+    module GI.Soup.Structs.MessageHeaders   ,+    module GI.Soup.Structs.MessageHeadersIter,+    module GI.Soup.Structs.MessageQueue     ,+    module GI.Soup.Structs.MessageQueueItem ,+    module GI.Soup.Structs.Multipart        ,+    module GI.Soup.Structs.Range            ,+    module GI.Soup.Structs.URI              ,+    module GI.Soup.Structs.XMLRPCParams     ,+++    ) where++import GI.Soup.Structs.Buffer+import GI.Soup.Structs.ClientContext+import GI.Soup.Structs.Connection+import GI.Soup.Structs.Cookie+import GI.Soup.Structs.Date+import GI.Soup.Structs.MessageBody+import GI.Soup.Structs.MessageHeaders+import GI.Soup.Structs.MessageHeadersIter+import GI.Soup.Structs.MessageQueue+import GI.Soup.Structs.MessageQueueItem+import GI.Soup.Structs.Multipart+import GI.Soup.Structs.Range+import GI.Soup.Structs.URI+import GI.Soup.Structs.XMLRPCParams++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++
+ GI/Soup/Structs/Buffer.hs view
@@ -0,0 +1,330 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A data buffer, generally used to represent a chunk of a+#SoupMessageBody.++@data is a #char because that's generally convenient; in some+situations you may need to cast it to #guchar or another type.+-}++module GI.Soup.Structs.Buffer+    ( ++-- * Exported types+    Buffer(..)                              ,+    noBuffer                                ,+++ -- * Methods+-- ** bufferCopy+    bufferCopy                              ,+++-- ** bufferFree+    bufferFree                              ,+++-- ** bufferGetAsBytes+    bufferGetAsBytes                        ,+++-- ** bufferGetData+    bufferGetData                           ,+++-- ** bufferGetOwner+    bufferGetOwner                          ,+++-- ** bufferNew+    bufferNew                               ,+++-- ** bufferNewSubbuffer+    bufferNewSubbuffer                      ,+++-- ** bufferNewWithOwner+    bufferNewWithOwner                      ,+++++ -- * Properties+-- ** Data+    bufferReadData                          ,+++-- ** Length+    bufferReadLength                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib++newtype Buffer = Buffer (ForeignPtr Buffer)+foreign import ccall "soup_buffer_get_type" c_soup_buffer_get_type :: +    IO GType++instance BoxedObject Buffer where+    boxedType _ = c_soup_buffer_get_type++noBuffer :: Maybe Buffer+noBuffer = Nothing++bufferReadData :: Buffer -> IO (Ptr ())+bufferReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++bufferReadLength :: Buffer -> IO Word64+bufferReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word64+    return val++-- method Buffer::new+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_new_take" soup_buffer_new_take :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO (Ptr Buffer)+++bufferNew ::+    (MonadIO m) =>+    ByteString ->                           -- data+    m Buffer+bufferNew data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    data_' <- packByteString data_+    result <- soup_buffer_new_take data_' length_+    checkUnexpectedReturnNULL "soup_buffer_new_take" result+    result' <- (wrapBoxed Buffer) result+    return result'++-- method Buffer::new_with_owner+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_new_with_owner" soup_buffer_new_with_owner :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    Ptr () ->                               -- owner : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- owner_dnotify : TInterface "GLib" "DestroyNotify"+    IO (Ptr Buffer)+++bufferNewWithOwner ::+    (MonadIO m) =>+    ByteString ->                           -- data+    Ptr () ->                               -- owner+    Maybe (GLib.DestroyNotify) ->           -- owner_dnotify+    m Buffer+bufferNewWithOwner data_ owner owner_dnotify = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    data_' <- packByteString data_+    ptrowner_dnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))+    maybeOwner_dnotify <- case owner_dnotify of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jOwner_dnotify -> do+            jOwner_dnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrowner_dnotify) jOwner_dnotify)+            poke ptrowner_dnotify jOwner_dnotify'+            return jOwner_dnotify'+    result <- soup_buffer_new_with_owner data_' length_ owner maybeOwner_dnotify+    checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result+    result' <- (wrapBoxed Buffer) result+    freeMem data_'+    return result'++-- method Buffer::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_copy" soup_buffer_copy :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    IO (Ptr Buffer)+++bufferCopy ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    m Buffer+bufferCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_buffer_copy _obj'+    checkUnexpectedReturnNULL "soup_buffer_copy" result+    result' <- (wrapBoxed Buffer) result+    touchManagedPtr _obj+    return result'++-- method Buffer::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_free" soup_buffer_free :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    IO ()+++bufferFree ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    m ()+bufferFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_buffer_free _obj'+    touchManagedPtr _obj+    return ()++-- method Buffer::get_as_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    IO (Ptr GLib.Bytes)+++bufferGetAsBytes ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    m GLib.Bytes+bufferGetAsBytes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_buffer_get_as_bytes _obj'+    checkUnexpectedReturnNULL "soup_buffer_get_as_bytes" result+    result' <- (wrapBoxed GLib.Bytes) result+    touchManagedPtr _obj+    return result'++-- method Buffer::get_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_get_data" soup_buffer_get_data :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    IO ()+++bufferGetData ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    m (ByteString)+bufferGetData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_ <- allocMem :: IO (Ptr (Ptr Word8))+    length_ <- allocMem :: IO (Ptr Word64)+    soup_buffer_get_data _obj' data_ length_+    length_' <- peek length_+    data_' <- peek data_+    data_'' <- (unpackByteStringWithLength length_') data_'+    touchManagedPtr _obj+    freeMem data_+    freeMem length_+    return data_''++-- method Buffer::get_owner+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    IO ()+++bufferGetOwner ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    m ()+bufferGetOwner _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_buffer_get_owner _obj'+    touchManagedPtr _obj+    return ()++-- method Buffer::new_subbuffer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: +    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"+    Word64 ->                               -- offset : TBasicType TUInt64+    Word64 ->                               -- length : TBasicType TUInt64+    IO (Ptr Buffer)+++bufferNewSubbuffer ::+    (MonadIO m) =>+    Buffer ->                               -- _obj+    Word64 ->                               -- offset+    Word64 ->                               -- length+    m Buffer+bufferNewSubbuffer _obj offset length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_buffer_new_subbuffer _obj' offset length_+    checkUnexpectedReturnNULL "soup_buffer_new_subbuffer" result+    result' <- (wrapBoxed Buffer) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Structs/Buffer.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.Buffer where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Buffer = Buffer (ForeignPtr Buffer)+instance BoxedObject Buffer where
+ GI/Soup/Structs/ClientContext.hs view
@@ -0,0 +1,324 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A #SoupClientContext provides additional information about the+client making a particular request. In particular, you can use+soup_client_context_get_auth_domain() and+soup_client_context_get_auth_user() to determine if HTTP+authentication was used successfully.++soup_client_context_get_remote_address() and/or+soup_client_context_get_host() can be used to get information for+logging or debugging purposes. soup_client_context_get_gsocket() may+also be of use in some situations (eg, tracking when multiple+requests are made on the same connection).+-}++module GI.Soup.Structs.ClientContext+    ( ++-- * Exported types+    ClientContext(..)                       ,+    noClientContext                         ,+++ -- * Methods+-- ** clientContextGetAddress+    clientContextGetAddress                 ,+++-- ** clientContextGetAuthDomain+    clientContextGetAuthDomain              ,+++-- ** clientContextGetAuthUser+    clientContextGetAuthUser                ,+++-- ** clientContextGetGsocket+    clientContextGetGsocket                 ,+++-- ** clientContextGetHost+    clientContextGetHost                    ,+++-- ** clientContextGetLocalAddress+    clientContextGetLocalAddress            ,+++-- ** clientContextGetRemoteAddress+    clientContextGetRemoteAddress           ,+++-- ** clientContextGetSocket+    clientContextGetSocket                  ,+++-- ** clientContextStealConnection+    clientContextStealConnection            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.Gio as Gio++newtype ClientContext = ClientContext (ForeignPtr ClientContext)+foreign import ccall "soup_client_context_get_type" c_soup_client_context_get_type :: +    IO GType++instance BoxedObject ClientContext where+    boxedType _ = c_soup_client_context_get_type++noClientContext :: Maybe ClientContext+noClientContext = Nothing++-- method ClientContext::get_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Address"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Address)++{-# DEPRECATED clientContextGetAddress ["Use soup_client_context_get_remote_address(), which returns","a #GSocketAddress."]#-}+clientContextGetAddress ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Address+clientContextGetAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_address _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_address" result+    result' <- (newObject Address) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_auth_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "AuthDomain"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr AuthDomain)+++clientContextGetAuthDomain ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m AuthDomain+clientContextGetAuthDomain _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_auth_domain _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_auth_domain" result+    result' <- (newObject AuthDomain) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_auth_user+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_auth_user" soup_client_context_get_auth_user :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO CString+++clientContextGetAuthUser ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m T.Text+clientContextGetAuthUser _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_auth_user _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_auth_user" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_gsocket+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "Socket"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Gio.Socket)+++clientContextGetGsocket ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Gio.Socket+clientContextGetGsocket _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_gsocket _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_gsocket" result+    result' <- (newObject Gio.Socket) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_host" soup_client_context_get_host :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO CString+++clientContextGetHost ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m T.Text+clientContextGetHost _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_host _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_host" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_local_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "SocketAddress"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Gio.SocketAddress)+++clientContextGetLocalAddress ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Gio.SocketAddress+clientContextGetLocalAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_local_address _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_local_address" result+    result' <- (newObject Gio.SocketAddress) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_remote_address+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "SocketAddress"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Gio.SocketAddress)+++clientContextGetRemoteAddress ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Gio.SocketAddress+clientContextGetRemoteAddress _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_remote_address _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_remote_address" result+    result' <- (newObject Gio.SocketAddress) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::get_socket+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Socket"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Socket)++{-# DEPRECATED clientContextGetSocket ["use soup_client_context_get_gsocket(), which returns","a #GSocket."]#-}+clientContextGetSocket ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Socket+clientContextGetSocket _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_get_socket _obj'+    checkUnexpectedReturnNULL "soup_client_context_get_socket" result+    result' <- (newObject Socket) result+    touchManagedPtr _obj+    return result'++-- method ClientContext::steal_connection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Gio" "IOStream"+-- throws : False+-- Skip return : False++foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: +    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"+    IO (Ptr Gio.IOStream)+++clientContextStealConnection ::+    (MonadIO m) =>+    ClientContext ->                        -- _obj+    m Gio.IOStream+clientContextStealConnection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_client_context_steal_connection _obj'+    checkUnexpectedReturnNULL "soup_client_context_steal_connection" result+    result' <- (wrapObject Gio.IOStream) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Structs/ClientContext.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.ClientContext where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ClientContext = ClientContext (ForeignPtr ClientContext)+instance BoxedObject ClientContext where
+ GI/Soup/Structs/Connection.hs view
@@ -0,0 +1,32 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Structs.Connection+    ( ++-- * Exported types+    Connection(..)                          ,+    noConnection                            ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype Connection = Connection (ForeignPtr Connection)+noConnection :: Maybe Connection+noConnection = Nothing++
+ GI/Soup/Structs/Connection.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.Connection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Connection = Connection (ForeignPtr Connection)
+ GI/Soup/Structs/Cookie.hs view
@@ -0,0 +1,858 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++An HTTP cookie.++@name and @value will be set for all cookies. If the cookie is+generated from a string that appears to have no name, then @name+will be the empty string.++@domain and @path give the host or domain, and path within that+host/domain, to restrict this cookie to. If @domain starts with+".", that indicates a domain (which matches the string after the+".", or any hostname that has @domain as a suffix). Otherwise, it+is a hostname and must match exactly.++@expires will be non-%NULL if the cookie uses either the original+"expires" attribute, or the newer "max-age" attribute. If @expires+is %NULL, it indicates that neither "expires" nor "max-age" was+specified, and the cookie expires at the end of the session.++If @http_only is set, the cookie should not be exposed to untrusted+code (eg, javascript), so as to minimize the danger posed by+cross-site scripting attacks.+-}++module GI.Soup.Structs.Cookie+    ( ++-- * Exported types+    Cookie(..)                              ,+    noCookie                                ,+++ -- * Methods+-- ** cookieAppliesToUri+    cookieAppliesToUri                      ,+++-- ** cookieCopy+    cookieCopy                              ,+++-- ** cookieDomainMatches+    cookieDomainMatches                     ,+++-- ** cookieEqual+    cookieEqual                             ,+++-- ** cookieFree+    cookieFree                              ,+++-- ** cookieGetDomain+    cookieGetDomain                         ,+++-- ** cookieGetExpires+    cookieGetExpires                        ,+++-- ** cookieGetHttpOnly+    cookieGetHttpOnly                       ,+++-- ** cookieGetName+    cookieGetName                           ,+++-- ** cookieGetPath+    cookieGetPath                           ,+++-- ** cookieGetSecure+    cookieGetSecure                         ,+++-- ** cookieGetValue+    cookieGetValue                          ,+++-- ** cookieNew+    cookieNew                               ,+++-- ** cookieSetDomain+    cookieSetDomain                         ,+++-- ** cookieSetExpires+    cookieSetExpires                        ,+++-- ** cookieSetHttpOnly+    cookieSetHttpOnly                       ,+++-- ** cookieSetMaxAge+    cookieSetMaxAge                         ,+++-- ** cookieSetName+    cookieSetName                           ,+++-- ** cookieSetPath+    cookieSetPath                           ,+++-- ** cookieSetSecure+    cookieSetSecure                         ,+++-- ** cookieSetValue+    cookieSetValue                          ,+++-- ** cookieToCookieHeader+    cookieToCookieHeader                    ,+++-- ** cookieToSetCookieHeader+    cookieToSetCookieHeader                 ,+++++ -- * Properties+-- ** Domain+    cookieReadDomain                        ,+++-- ** Expires+    cookieReadExpires                       ,+++-- ** HttpOnly+    cookieReadHttpOnly                      ,+++-- ** Name+    cookieReadName                          ,+++-- ** Path+    cookieReadPath                          ,+++-- ** Secure+    cookieReadSecure                        ,+++-- ** Value+    cookieReadValue                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype Cookie = Cookie (ForeignPtr Cookie)+foreign import ccall "soup_cookie_get_type" c_soup_cookie_get_type :: +    IO GType++instance BoxedObject Cookie where+    boxedType _ = c_soup_cookie_get_type++noCookie :: Maybe Cookie+noCookie = Nothing++cookieReadName :: Cookie -> IO T.Text+cookieReadName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++cookieReadValue :: Cookie -> IO T.Text+cookieReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++cookieReadDomain :: Cookie -> IO T.Text+cookieReadDomain s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++cookieReadPath :: Cookie -> IO T.Text+cookieReadPath s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CString+    val' <- cstringToText val+    return val'++cookieReadExpires :: Cookie -> IO Date+cookieReadExpires s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date)+    val' <- (newBoxed Date) val+    return val'++cookieReadSecure :: Cookie -> IO Bool+cookieReadSecure s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CInt+    let val' = (/= 0) val+    return val'++cookieReadHttpOnly :: Cookie -> IO Bool+cookieReadHttpOnly s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 44) :: IO CInt+    let val' = (/= 0) val+    return val'++-- method Cookie::new+-- method type : Constructor+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Cookie"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_new" soup_cookie_new :: +    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- path : TBasicType TUTF8+    Int32 ->                                -- max_age : TBasicType TInt32+    IO (Ptr Cookie)+++cookieNew ::+    (MonadIO m) =>+    T.Text ->                               -- name+    T.Text ->                               -- value+    T.Text ->                               -- domain+    T.Text ->                               -- path+    Int32 ->                                -- max_age+    m Cookie+cookieNew name value domain path max_age = liftIO $ do+    name' <- textToCString name+    value' <- textToCString value+    domain' <- textToCString domain+    path' <- textToCString path+    result <- soup_cookie_new name' value' domain' path' max_age+    checkUnexpectedReturnNULL "soup_cookie_new" result+    result' <- (wrapBoxed Cookie) result+    freeMem name'+    freeMem value'+    freeMem domain'+    freeMem path'+    return result'++-- method Cookie::applies_to_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_applies_to_uri" soup_cookie_applies_to_uri :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    Ptr URI ->                              -- uri : TInterface "Soup" "URI"+    IO CInt+++cookieAppliesToUri ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    URI ->                                  -- uri+    m Bool+cookieAppliesToUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let uri' = unsafeManagedPtrGetPtr uri+    result <- soup_cookie_applies_to_uri _obj' uri'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr uri+    return result'++-- method Cookie::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Cookie"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_copy" soup_cookie_copy :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO (Ptr Cookie)+++cookieCopy ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m Cookie+cookieCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_copy _obj'+    checkUnexpectedReturnNULL "soup_cookie_copy" result+    result' <- (wrapBoxed Cookie) result+    touchManagedPtr _obj+    return result'++-- method Cookie::domain_matches+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_domain_matches" soup_cookie_domain_matches :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CString ->                              -- host : TBasicType TUTF8+    IO CInt+++cookieDomainMatches ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    T.Text ->                               -- host+    m Bool+cookieDomainMatches _obj host = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    host' <- textToCString host+    result <- soup_cookie_domain_matches _obj' host'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem host'+    return result'++-- method Cookie::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_equal" soup_cookie_equal :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    Ptr Cookie ->                           -- cookie2 : TInterface "Soup" "Cookie"+    IO CInt+++cookieEqual ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    Cookie ->                               -- cookie2+    m Bool+cookieEqual _obj cookie2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let cookie2' = unsafeManagedPtrGetPtr cookie2+    result <- soup_cookie_equal _obj' cookie2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr cookie2+    return result'++-- method Cookie::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_free" soup_cookie_free :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO ()+++cookieFree ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m ()+cookieFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_cookie_free _obj'+    touchManagedPtr _obj+    return ()++-- method Cookie::get_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_domain" soup_cookie_get_domain :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieGetDomain ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieGetDomain _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_domain _obj'+    checkUnexpectedReturnNULL "soup_cookie_get_domain" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_expires+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO (Ptr Date)+++cookieGetExpires ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m Date+cookieGetExpires _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_expires _obj'+    checkUnexpectedReturnNULL "soup_cookie_get_expires" result+    result' <- (newBoxed Date) result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_http_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_http_only" soup_cookie_get_http_only :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CInt+++cookieGetHttpOnly ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m Bool+cookieGetHttpOnly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_http_only _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_name" soup_cookie_get_name :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieGetName ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_name _obj'+    checkUnexpectedReturnNULL "soup_cookie_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_path" soup_cookie_get_path :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieGetPath ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieGetPath _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_path _obj'+    checkUnexpectedReturnNULL "soup_cookie_get_path" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_secure+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_secure" soup_cookie_get_secure :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CInt+++cookieGetSecure ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m Bool+cookieGetSecure _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_secure _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Cookie::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_get_value" soup_cookie_get_value :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieGetValue ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieGetValue _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_get_value _obj'+    checkUnexpectedReturnNULL "soup_cookie_get_value" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Cookie::set_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_domain" soup_cookie_set_domain :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CString ->                              -- domain : TBasicType TUTF8+    IO ()+++cookieSetDomain ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    T.Text ->                               -- domain+    m ()+cookieSetDomain _obj domain = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    domain' <- textToCString domain+    soup_cookie_set_domain _obj' domain'+    touchManagedPtr _obj+    freeMem domain'+    return ()++-- method Cookie::set_expires+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_expires" soup_cookie_set_expires :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    Ptr Date ->                             -- expires : TInterface "Soup" "Date"+    IO ()+++cookieSetExpires ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    Date ->                                 -- expires+    m ()+cookieSetExpires _obj expires = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let expires' = unsafeManagedPtrGetPtr expires+    soup_cookie_set_expires _obj' expires'+    touchManagedPtr _obj+    touchManagedPtr expires+    return ()++-- method Cookie::set_http_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_http_only" soup_cookie_set_http_only :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CInt ->                                 -- http_only : TBasicType TBoolean+    IO ()+++cookieSetHttpOnly ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    Bool ->                                 -- http_only+    m ()+cookieSetHttpOnly _obj http_only = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let http_only' = (fromIntegral . fromEnum) http_only+    soup_cookie_set_http_only _obj' http_only'+    touchManagedPtr _obj+    return ()++-- method Cookie::set_max_age+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_max_age" soup_cookie_set_max_age :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    Int32 ->                                -- max_age : TBasicType TInt32+    IO ()+++cookieSetMaxAge ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    Int32 ->                                -- max_age+    m ()+cookieSetMaxAge _obj max_age = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_cookie_set_max_age _obj' max_age+    touchManagedPtr _obj+    return ()++-- method Cookie::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_name" soup_cookie_set_name :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++cookieSetName ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    T.Text ->                               -- name+    m ()+cookieSetName _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    soup_cookie_set_name _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return ()++-- method Cookie::set_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_path" soup_cookie_set_path :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++cookieSetPath ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    T.Text ->                               -- path+    m ()+cookieSetPath _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    path' <- textToCString path+    soup_cookie_set_path _obj' path'+    touchManagedPtr _obj+    freeMem path'+    return ()++-- method Cookie::set_secure+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_secure" soup_cookie_set_secure :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CInt ->                                 -- secure : TBasicType TBoolean+    IO ()+++cookieSetSecure ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    Bool ->                                 -- secure+    m ()+cookieSetSecure _obj secure = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let secure' = (fromIntegral . fromEnum) secure+    soup_cookie_set_secure _obj' secure'+    touchManagedPtr _obj+    return ()++-- method Cookie::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_set_value" soup_cookie_set_value :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++cookieSetValue ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    T.Text ->                               -- value+    m ()+cookieSetValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    value' <- textToCString value+    soup_cookie_set_value _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method Cookie::to_cookie_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_to_cookie_header" soup_cookie_to_cookie_header :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieToCookieHeader ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieToCookieHeader _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_to_cookie_header _obj'+    checkUnexpectedReturnNULL "soup_cookie_to_cookie_header" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Cookie::to_set_cookie_header+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_cookie_to_set_cookie_header" soup_cookie_to_set_cookie_header :: +    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"+    IO CString+++cookieToSetCookieHeader ::+    (MonadIO m) =>+    Cookie ->                               -- _obj+    m T.Text+cookieToSetCookieHeader _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_cookie_to_set_cookie_header _obj'+    checkUnexpectedReturnNULL "soup_cookie_to_set_cookie_header" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Structs/Cookie.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.Cookie where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Cookie = Cookie (ForeignPtr Cookie)+instance BoxedObject Cookie where
+ GI/Soup/Structs/Date.hs view
@@ -0,0 +1,654 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A date and time. The date is assumed to be in the (proleptic)+Gregorian calendar. The time is in UTC if @utc is %TRUE. Otherwise,+the time is a local time, and @offset gives the offset from UTC in+minutes (such that adding @offset to the time would give the+correct UTC time). If @utc is %FALSE and @offset is 0, then the+%SoupDate represents a "floating" time with no associated timezone+information.+-}++module GI.Soup.Structs.Date+    ( ++-- * Exported types+    Date(..)                                ,+    noDate                                  ,+++ -- * Methods+-- ** dateCopy+    dateCopy                                ,+++-- ** dateFree+    dateFree                                ,+++-- ** dateGetDay+    dateGetDay                              ,+++-- ** dateGetHour+    dateGetHour                             ,+++-- ** dateGetMinute+    dateGetMinute                           ,+++-- ** dateGetMonth+    dateGetMonth                            ,+++-- ** dateGetOffset+    dateGetOffset                           ,+++-- ** dateGetSecond+    dateGetSecond                           ,+++-- ** dateGetUtc+    dateGetUtc                              ,+++-- ** dateGetYear+    dateGetYear                             ,+++-- ** dateIsPast+    dateIsPast                              ,+++-- ** dateNew+    dateNew                                 ,+++-- ** dateNewFromNow+    dateNewFromNow                          ,+++-- ** dateNewFromString+    dateNewFromString                       ,+++-- ** dateNewFromTimeT+    dateNewFromTimeT                        ,+++-- ** dateToString+    dateToString                            ,+++-- ** dateToTimeT+    dateToTimeT                             ,+++-- ** dateToTimeval+    dateToTimeval                           ,+++++ -- * Properties+-- ** Day+    dateReadDay                             ,+++-- ** Hour+    dateReadHour                            ,+++-- ** Minute+    dateReadMinute                          ,+++-- ** Month+    dateReadMonth                           ,+++-- ** Offset+    dateReadOffset                          ,+++-- ** Second+    dateReadSecond                          ,+++-- ** Utc+    dateReadUtc                             ,+++-- ** Year+    dateReadYear                            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks+import qualified GI.GLib as GLib++newtype Date = Date (ForeignPtr Date)+foreign import ccall "soup_date_get_type" c_soup_date_get_type :: +    IO GType++instance BoxedObject Date where+    boxedType _ = c_soup_date_get_type++noDate :: Maybe Date+noDate = Nothing++dateReadYear :: Date -> IO Int32+dateReadYear s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++dateReadMonth :: Date -> IO Int32+dateReadMonth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++dateReadDay :: Date -> IO Int32+dateReadDay s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++dateReadHour :: Date -> IO Int32+dateReadHour s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++dateReadMinute :: Date -> IO Int32+dateReadMinute s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++dateReadSecond :: Date -> IO Int32+dateReadSecond s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++dateReadUtc :: Date -> IO Bool+dateReadUtc s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CInt+    let val' = (/= 0) val+    return val'++dateReadOffset :: Date -> IO Int32+dateReadOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Int32+    return val++-- method Date::new+-- method type : Constructor+-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_new" soup_date_new :: +    Int32 ->                                -- year : TBasicType TInt32+    Int32 ->                                -- month : TBasicType TInt32+    Int32 ->                                -- day : TBasicType TInt32+    Int32 ->                                -- hour : TBasicType TInt32+    Int32 ->                                -- minute : TBasicType TInt32+    Int32 ->                                -- second : TBasicType TInt32+    IO (Ptr Date)+++dateNew ::+    (MonadIO m) =>+    Int32 ->                                -- year+    Int32 ->                                -- month+    Int32 ->                                -- day+    Int32 ->                                -- hour+    Int32 ->                                -- minute+    Int32 ->                                -- second+    m Date+dateNew year month day hour minute second = liftIO $ do+    result <- soup_date_new year month day hour minute second+    checkUnexpectedReturnNULL "soup_date_new" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::new_from_now+-- method type : Constructor+-- Args : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_new_from_now" soup_date_new_from_now :: +    Int32 ->                                -- offset_seconds : TBasicType TInt32+    IO (Ptr Date)+++dateNewFromNow ::+    (MonadIO m) =>+    Int32 ->                                -- offset_seconds+    m Date+dateNewFromNow offset_seconds = liftIO $ do+    result <- soup_date_new_from_now offset_seconds+    checkUnexpectedReturnNULL "soup_date_new_from_now" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::new_from_string+-- method type : Constructor+-- Args : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_new_from_string" soup_date_new_from_string :: +    CString ->                              -- date_string : TBasicType TUTF8+    IO (Ptr Date)+++dateNewFromString ::+    (MonadIO m) =>+    T.Text ->                               -- date_string+    m Date+dateNewFromString date_string = liftIO $ do+    date_string' <- textToCString date_string+    result <- soup_date_new_from_string date_string'+    checkUnexpectedReturnNULL "soup_date_new_from_string" result+    result' <- (wrapBoxed Date) result+    freeMem date_string'+    return result'++-- method Date::new_from_time_t+-- method type : Constructor+-- Args : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: +    Int64 ->                                -- when : TBasicType TInt64+    IO (Ptr Date)+++dateNewFromTimeT ::+    (MonadIO m) =>+    Int64 ->                                -- when+    m Date+dateNewFromTimeT when_ = liftIO $ do+    result <- soup_date_new_from_time_t when_+    checkUnexpectedReturnNULL "soup_date_new_from_time_t" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_copy" soup_date_copy :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO (Ptr Date)+++dateCopy ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Date+dateCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_copy _obj'+    checkUnexpectedReturnNULL "soup_date_copy" result+    result' <- (wrapBoxed Date) result+    touchManagedPtr _obj+    return result'++-- method Date::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_free" soup_date_free :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO ()+++dateFree ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m ()+dateFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_date_free _obj'+    touchManagedPtr _obj+    return ()++-- method Date::get_day+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_day" soup_date_get_day :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetDay ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetDay _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_day _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_hour+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_hour" soup_date_get_hour :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetHour ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetHour _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_hour _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_minute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_minute" soup_date_get_minute :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetMinute ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetMinute _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_minute _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_month" soup_date_get_month :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetMonth ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_month _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_offset" soup_date_get_offset :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetOffset ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetOffset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_offset _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_second+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_second" soup_date_get_second :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetSecond ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetSecond _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_second _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_utc+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_utc" soup_date_get_utc :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetUtc ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetUtc _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_utc _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_get_year" soup_date_get_year :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int32+++dateGetYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int32+dateGetYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_get_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::is_past+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_is_past" soup_date_is_past :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO CInt+++dateIsPast ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Bool+dateIsPast _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_is_past _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Date::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_to_string" soup_date_to_string :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    CUInt ->                                -- format : TInterface "Soup" "DateFormat"+    IO CString+++dateToString ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    DateFormat ->                           -- format+    m T.Text+dateToString _obj format = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let format' = (fromIntegral . fromEnum) format+    result <- soup_date_to_string _obj' format'+    checkUnexpectedReturnNULL "soup_date_to_string" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Date::to_time_t+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_to_time_t" soup_date_to_time_t :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    IO Int64+++dateToTimeT ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Int64+dateToTimeT _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_date_to_time_t _obj'+    touchManagedPtr _obj+    return result++-- method Date::to_timeval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_date_to_timeval" soup_date_to_timeval :: +    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"+    Ptr GLib.TimeVal ->                     -- time : TInterface "GLib" "TimeVal"+    IO ()+++dateToTimeval ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m (GLib.TimeVal)+dateToTimeval _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    time <- callocBytes 16 :: IO (Ptr GLib.TimeVal)+    soup_date_to_timeval _obj' time+    time' <- (wrapPtr GLib.TimeVal) time+    touchManagedPtr _obj+    return time'++
+ GI/Soup/Structs/Date.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.Date where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Date = Date (ForeignPtr Date)+instance BoxedObject Date where
+ GI/Soup/Structs/MessageBody.hs view
@@ -0,0 +1,438 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A #SoupMessage request or response body.++Note that while @length always reflects the full length of the+message body, @data is normally %NULL, and will only be filled in+after soup_message_body_flatten() is called. For client-side+messages, this automatically happens for the response body after it+has been fully read, unless you set the+%SOUP_MESSAGE_OVERWRITE_CHUNKS flags. Likewise, for server-side+messages, the request body is automatically filled in after being+read.++As an added bonus, when @data is filled in, it is always terminated+with a '\0' byte (which is not reflected in @length).+-}++module GI.Soup.Structs.MessageBody+    ( ++-- * Exported types+    MessageBody(..)                         ,+    noMessageBody                           ,+++ -- * Methods+-- ** messageBodyAppend+    messageBodyAppend                       ,+++-- ** messageBodyAppendBuffer+    messageBodyAppendBuffer                 ,+++-- ** messageBodyComplete+    messageBodyComplete                     ,+++-- ** messageBodyFlatten+    messageBodyFlatten                      ,+++-- ** messageBodyFree+    messageBodyFree                         ,+++-- ** messageBodyGetAccumulate+    messageBodyGetAccumulate                ,+++-- ** messageBodyGetChunk+    messageBodyGetChunk                     ,+++-- ** messageBodyGotChunk+    messageBodyGotChunk                     ,+++-- ** messageBodyNew+    messageBodyNew                          ,+++-- ** messageBodySetAccumulate+    messageBodySetAccumulate                ,+++-- ** messageBodyTruncate+    messageBodyTruncate                     ,+++-- ** messageBodyWroteChunk+    messageBodyWroteChunk                   ,+++++ -- * Properties+-- ** Data+    messageBodyReadData                     ,+++-- ** Length+    messageBodyReadLength                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype MessageBody = MessageBody (ForeignPtr MessageBody)+foreign import ccall "soup_message_body_get_type" c_soup_message_body_get_type :: +    IO GType++instance BoxedObject MessageBody where+    boxedType _ = c_soup_message_body_get_type++noMessageBody :: Maybe MessageBody+noMessageBody = Nothing++messageBodyReadData :: MessageBody -> IO T.Text+messageBodyReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++messageBodyReadLength :: MessageBody -> IO Int64+messageBodyReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int64+    return val++-- method MessageBody::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Soup" "MessageBody"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_new" soup_message_body_new :: +    IO (Ptr MessageBody)+++messageBodyNew ::+    (MonadIO m) =>+    m MessageBody+messageBodyNew  = liftIO $ do+    result <- soup_message_body_new+    checkUnexpectedReturnNULL "soup_message_body_new" result+    result' <- (wrapBoxed MessageBody) result+    return result'++-- method MessageBody::append_buffer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_append_buffer" soup_message_body_append_buffer :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"+    IO ()+++messageBodyAppendBuffer ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    Buffer ->                               -- buffer+    m ()+messageBodyAppendBuffer _obj buffer = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let buffer' = unsafeManagedPtrGetPtr buffer+    soup_message_body_append_buffer _obj' buffer'+    touchManagedPtr _obj+    touchManagedPtr buffer+    return ()++-- method MessageBody::append+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_append_take" soup_message_body_append_take :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++messageBodyAppend ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    ByteString ->                           -- data+    m ()+messageBodyAppend _obj data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_' <- packByteString data_+    soup_message_body_append_take _obj' data_' length_+    touchManagedPtr _obj+    return ()++-- method MessageBody::complete+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_complete" soup_message_body_complete :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    IO ()+++messageBodyComplete ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    m ()+messageBodyComplete _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_body_complete _obj'+    touchManagedPtr _obj+    return ()++-- method MessageBody::flatten+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    IO (Ptr Buffer)+++messageBodyFlatten ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    m Buffer+messageBodyFlatten _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_body_flatten _obj'+    checkUnexpectedReturnNULL "soup_message_body_flatten" result+    result' <- (wrapBoxed Buffer) result+    touchManagedPtr _obj+    return result'++-- method MessageBody::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_free" soup_message_body_free :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    IO ()+++messageBodyFree ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    m ()+messageBodyFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_body_free _obj'+    touchManagedPtr _obj+    return ()++-- method MessageBody::get_accumulate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_get_accumulate" soup_message_body_get_accumulate :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    IO CInt+++messageBodyGetAccumulate ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    m Bool+messageBodyGetAccumulate _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_body_get_accumulate _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MessageBody::get_chunk+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Buffer"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    Int64 ->                                -- offset : TBasicType TInt64+    IO (Ptr Buffer)+++messageBodyGetChunk ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    Int64 ->                                -- offset+    m Buffer+messageBodyGetChunk _obj offset = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_body_get_chunk _obj' offset+    checkUnexpectedReturnNULL "soup_message_body_get_chunk" result+    result' <- (wrapBoxed Buffer) result+    touchManagedPtr _obj+    return result'++-- method MessageBody::got_chunk+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_got_chunk" soup_message_body_got_chunk :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"+    IO ()+++messageBodyGotChunk ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    Buffer ->                               -- chunk+    m ()+messageBodyGotChunk _obj chunk = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let chunk' = unsafeManagedPtrGetPtr chunk+    soup_message_body_got_chunk _obj' chunk'+    touchManagedPtr _obj+    touchManagedPtr chunk+    return ()++-- method MessageBody::set_accumulate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_set_accumulate" soup_message_body_set_accumulate :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    CInt ->                                 -- accumulate : TBasicType TBoolean+    IO ()+++messageBodySetAccumulate ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    Bool ->                                 -- accumulate+    m ()+messageBodySetAccumulate _obj accumulate = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let accumulate' = (fromIntegral . fromEnum) accumulate+    soup_message_body_set_accumulate _obj' accumulate'+    touchManagedPtr _obj+    return ()++-- method MessageBody::truncate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_truncate" soup_message_body_truncate :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    IO ()+++messageBodyTruncate ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    m ()+messageBodyTruncate _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_body_truncate _obj'+    touchManagedPtr _obj+    return ()++-- method MessageBody::wrote_chunk+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_body_wrote_chunk" soup_message_body_wrote_chunk :: +    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"+    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"+    IO ()+++messageBodyWroteChunk ::+    (MonadIO m) =>+    MessageBody ->                          -- _obj+    Buffer ->                               -- chunk+    m ()+messageBodyWroteChunk _obj chunk = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let chunk' = unsafeManagedPtrGetPtr chunk+    soup_message_body_wrote_chunk _obj' chunk'+    touchManagedPtr _obj+    touchManagedPtr chunk+    return ()++
+ GI/Soup/Structs/MessageBody.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.MessageBody where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MessageBody = MessageBody (ForeignPtr MessageBody)+instance BoxedObject MessageBody where
+ GI/Soup/Structs/MessageHeaders.hs view
@@ -0,0 +1,1063 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++The HTTP message headers associated with a request or response.+-}++module GI.Soup.Structs.MessageHeaders+    ( ++-- * Exported types+    MessageHeaders(..)                      ,+    noMessageHeaders                        ,+++ -- * Methods+-- ** messageHeadersAppend+    messageHeadersAppend                    ,+++-- ** messageHeadersCleanConnectionHeaders+    messageHeadersCleanConnectionHeaders    ,+++-- ** messageHeadersClear+    messageHeadersClear                     ,+++-- ** messageHeadersForeach+    messageHeadersForeach                   ,+++-- ** messageHeadersFree+    messageHeadersFree                      ,+++-- ** messageHeadersFreeRanges+    messageHeadersFreeRanges                ,+++-- ** messageHeadersGet+    messageHeadersGet                       ,+++-- ** messageHeadersGetContentDisposition+    messageHeadersGetContentDisposition     ,+++-- ** messageHeadersGetContentLength+    messageHeadersGetContentLength          ,+++-- ** messageHeadersGetContentRange+    messageHeadersGetContentRange           ,+++-- ** messageHeadersGetContentType+    messageHeadersGetContentType            ,+++-- ** messageHeadersGetEncoding+    messageHeadersGetEncoding               ,+++-- ** messageHeadersGetExpectations+    messageHeadersGetExpectations           ,+++-- ** messageHeadersGetHeadersType+    messageHeadersGetHeadersType            ,+++-- ** messageHeadersGetList+    messageHeadersGetList                   ,+++-- ** messageHeadersGetOne+    messageHeadersGetOne                    ,+++-- ** messageHeadersGetRanges+    messageHeadersGetRanges                 ,+++-- ** messageHeadersHeaderContains+    messageHeadersHeaderContains            ,+++-- ** messageHeadersHeaderEquals+    messageHeadersHeaderEquals              ,+++-- ** messageHeadersNew+    messageHeadersNew                       ,+++-- ** messageHeadersRemove+    messageHeadersRemove                    ,+++-- ** messageHeadersReplace+    messageHeadersReplace                   ,+++-- ** messageHeadersSetContentDisposition+    messageHeadersSetContentDisposition     ,+++-- ** messageHeadersSetContentLength+    messageHeadersSetContentLength          ,+++-- ** messageHeadersSetContentRange+    messageHeadersSetContentRange           ,+++-- ** messageHeadersSetContentType+    messageHeadersSetContentType            ,+++-- ** messageHeadersSetEncoding+    messageHeadersSetEncoding               ,+++-- ** messageHeadersSetExpectations+    messageHeadersSetExpectations           ,+++-- ** messageHeadersSetRange+    messageHeadersSetRange                  ,+++-- ** messageHeadersSetRanges+    messageHeadersSetRanges                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)+foreign import ccall "soup_message_headers_get_type" c_soup_message_headers_get_type :: +    IO GType++instance BoxedObject MessageHeaders where+    boxedType _ = c_soup_message_headers_get_type++noMessageHeaders :: Maybe MessageHeaders+noMessageHeaders = Nothing++-- method MessageHeaders::new+-- method type : Constructor+-- Args : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageHeaders"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_new" soup_message_headers_new :: +    CUInt ->                                -- type : TInterface "Soup" "MessageHeadersType"+    IO (Ptr MessageHeaders)+++messageHeadersNew ::+    (MonadIO m) =>+    MessageHeadersType ->                   -- type+    m MessageHeaders+messageHeadersNew type_ = liftIO $ do+    let type_' = (fromIntegral . fromEnum) type_+    result <- soup_message_headers_new type_'+    checkUnexpectedReturnNULL "soup_message_headers_new" result+    result' <- (wrapBoxed MessageHeaders) result+    return result'++-- method MessageHeaders::append+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_append" soup_message_headers_append :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++messageHeadersAppend ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    T.Text ->                               -- value+    m ()+messageHeadersAppend _obj name value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    value' <- textToCString value+    soup_message_headers_append _obj' name' value'+    touchManagedPtr _obj+    freeMem name'+    freeMem value'+    return ()++-- method MessageHeaders::clean_connection_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_clean_connection_headers" soup_message_headers_clean_connection_headers :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO ()+++messageHeadersCleanConnectionHeaders ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m ()+messageHeadersCleanConnectionHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_clean_connection_headers _obj'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_clear" soup_message_headers_clear :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO ()+++messageHeadersClear ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m ()+messageHeadersClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_clear _obj'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::foreach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_foreach" soup_message_headers_foreach :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    FunPtr MessageHeadersForeachFuncC ->    -- func : TInterface "Soup" "MessageHeadersForeachFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++messageHeadersForeach ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    MessageHeadersForeachFunc ->            -- func+    m ()+messageHeadersForeach _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    func' <- mkMessageHeadersForeachFunc (messageHeadersForeachFuncWrapper Nothing func)+    let user_data = nullPtr+    soup_message_headers_foreach _obj' func' user_data+    safeFreeFunPtr $ castFunPtrToPtr func'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_free" soup_message_headers_free :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO ()+++messageHeadersFree ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m ()+messageHeadersFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_free _obj'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::free_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_free_ranges" soup_message_headers_free_ranges :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"+    IO ()+++messageHeadersFreeRanges ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Range ->                                -- ranges+    m ()+messageHeadersFreeRanges _obj ranges = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let ranges' = unsafeManagedPtrGetPtr ranges+    soup_message_headers_free_ranges _obj' ranges'+    touchManagedPtr _obj+    touchManagedPtr ranges+    return ()++-- method MessageHeaders::get+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get" soup_message_headers_get :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    IO CString++{-# DEPRECATED messageHeadersGet ["Use soup_message_headers_get_one() or","soup_message_headers_get_list() instead."]#-}+messageHeadersGet ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    m T.Text+messageHeadersGet _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    result <- soup_message_headers_get _obj' name'+    checkUnexpectedReturnNULL "soup_message_headers_get" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method MessageHeaders::get_content_disposition+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_content_disposition" soup_message_headers_get_content_disposition :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Ptr CString ->                          -- disposition : TBasicType TUTF8+    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO CInt+++messageHeadersGetContentDisposition ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m (Bool,T.Text,(Map.Map T.Text T.Text))+messageHeadersGetContentDisposition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    disposition <- allocMem :: IO (Ptr CString)+    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))+    result <- soup_message_headers_get_content_disposition _obj' disposition params+    let result' = (/= 0) result+    disposition' <- peek disposition+    disposition'' <- cstringToText disposition'+    freeMem disposition'+    params' <- peek params+    params'' <- unpackGHashTable params'+    let params''' = mapFirst cstringUnpackPtr params''+    params'''' <- mapFirstA cstringToText params'''+    let params''''' = mapSecond cstringUnpackPtr params''''+    params'''''' <- mapSecondA cstringToText params'''''+    let params''''''' = Map.fromList params''''''+    unrefGHashTable params'+    touchManagedPtr _obj+    freeMem disposition+    freeMem params+    return (result', disposition'', params''''''')++-- method MessageHeaders::get_content_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_content_length" soup_message_headers_get_content_length :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO Int64+++messageHeadersGetContentLength ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m Int64+messageHeadersGetContentLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_headers_get_content_length _obj'+    touchManagedPtr _obj+    return result++-- method MessageHeaders::get_content_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_content_range" soup_message_headers_get_content_range :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Int64 ->                                -- start : TBasicType TInt64+    Int64 ->                                -- end : TBasicType TInt64+    Int64 ->                                -- total_length : TBasicType TInt64+    IO CInt+++messageHeadersGetContentRange ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Int64 ->                                -- start+    Int64 ->                                -- end+    Int64 ->                                -- total_length+    m Bool+messageHeadersGetContentRange _obj start end total_length = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_headers_get_content_range _obj' start end total_length+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MessageHeaders::get_content_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_content_type" soup_message_headers_get_content_type :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO CString+++messageHeadersGetContentType ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m (T.Text,(Map.Map T.Text T.Text))+messageHeadersGetContentType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))+    result <- soup_message_headers_get_content_type _obj' params+    checkUnexpectedReturnNULL "soup_message_headers_get_content_type" result+    result' <- cstringToText result+    params' <- peek params+    params'' <- unpackGHashTable params'+    let params''' = mapFirst cstringUnpackPtr params''+    params'''' <- mapFirstA cstringToText params'''+    let params''''' = mapSecond cstringUnpackPtr params''''+    params'''''' <- mapSecondA cstringToText params'''''+    let params''''''' = Map.fromList params''''''+    unrefGHashTable params'+    touchManagedPtr _obj+    freeMem params+    return (result', params''''''')++-- method MessageHeaders::get_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Encoding"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_encoding" soup_message_headers_get_encoding :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO CUInt+++messageHeadersGetEncoding ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m Encoding+messageHeadersGetEncoding _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_headers_get_encoding _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method MessageHeaders::get_expectations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Expectation"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_expectations" soup_message_headers_get_expectations :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO CUInt+++messageHeadersGetExpectations ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m [Expectation]+messageHeadersGetExpectations _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_headers_get_expectations _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method MessageHeaders::get_headers_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageHeadersType"+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_headers_type" soup_message_headers_get_headers_type :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    IO CUInt+++messageHeadersGetHeadersType ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    m MessageHeadersType+messageHeadersGetHeadersType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_message_headers_get_headers_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method MessageHeaders::get_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_list" soup_message_headers_get_list :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    IO CString+++messageHeadersGetList ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    m T.Text+messageHeadersGetList _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    result <- soup_message_headers_get_list _obj' name'+    checkUnexpectedReturnNULL "soup_message_headers_get_list" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method MessageHeaders::get_one+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_one" soup_message_headers_get_one :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    IO CString+++messageHeadersGetOne ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    m T.Text+messageHeadersGetOne _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    result <- soup_message_headers_get_one _obj' name'+    checkUnexpectedReturnNULL "soup_message_headers_get_one" result+    result' <- cstringToText result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method MessageHeaders::get_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TCArray False (-1) 3 (TInterface "Soup" "Range"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_get_ranges" soup_message_headers_get_ranges :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Int64 ->                                -- total_length : TBasicType TInt64+    Ptr (Ptr Range) ->                      -- ranges : TCArray False (-1) 3 (TInterface "Soup" "Range")+    Ptr Int32 ->                            -- length : TBasicType TInt32+    IO CInt+++messageHeadersGetRanges ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Int64 ->                                -- total_length+    m (Bool,[Range])+messageHeadersGetRanges _obj total_length = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ranges <- allocMem :: IO (Ptr (Ptr Range))+    length_ <- allocMem :: IO (Ptr Int32)+    result <- soup_message_headers_get_ranges _obj' total_length ranges length_+    length_' <- peek length_+    let result' = (/= 0) result+    ranges' <- peek ranges+    ranges'' <- (unpackBlockArrayWithLength 16 length_') ranges'+    ranges''' <- mapM (wrapPtr Range) ranges''+    freeMem ranges'+    touchManagedPtr _obj+    freeMem ranges+    freeMem length_+    return (result', ranges''')++-- method MessageHeaders::header_contains+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_header_contains" soup_message_headers_header_contains :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- token : TBasicType TUTF8+    IO CInt+++messageHeadersHeaderContains ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    T.Text ->                               -- token+    m Bool+messageHeadersHeaderContains _obj name token = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    token' <- textToCString token+    result <- soup_message_headers_header_contains _obj' name' token'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem name'+    freeMem token'+    return result'++-- method MessageHeaders::header_equals+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_header_equals" soup_message_headers_header_equals :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO CInt+++messageHeadersHeaderEquals ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    T.Text ->                               -- value+    m Bool+messageHeadersHeaderEquals _obj name value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    value' <- textToCString value+    result <- soup_message_headers_header_equals _obj' name' value'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem name'+    freeMem value'+    return result'++-- method MessageHeaders::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_remove" soup_message_headers_remove :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++messageHeadersRemove ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    m ()+messageHeadersRemove _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    soup_message_headers_remove _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return ()++-- method MessageHeaders::replace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_replace" soup_message_headers_replace :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++messageHeadersReplace ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- name+    T.Text ->                               -- value+    m ()+messageHeadersReplace _obj name value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    value' <- textToCString value+    soup_message_headers_replace _obj' name' value'+    touchManagedPtr _obj+    freeMem name'+    freeMem value'+    return ()++-- method MessageHeaders::set_content_disposition+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_content_disposition" soup_message_headers_set_content_disposition :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- disposition : TBasicType TUTF8+    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO ()+++messageHeadersSetContentDisposition ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- disposition+    Maybe (Map.Map T.Text T.Text) ->        -- params+    m ()+messageHeadersSetContentDisposition _obj disposition params = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    disposition' <- textToCString disposition+    maybeParams <- case params of+        Nothing -> return nullPtr+        Just jParams -> do+            let jParams' = Map.toList jParams+            jParams'' <- mapFirstA textToCString jParams'+            jParams''' <- mapSecondA textToCString jParams''+            let jParams'''' = mapFirst cstringPackPtr jParams'''+            let jParams''''' = mapSecond cstringPackPtr jParams''''+            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''+            return jParams''''''+    soup_message_headers_set_content_disposition _obj' disposition' maybeParams+    touchManagedPtr _obj+    freeMem disposition'+    unrefGHashTable maybeParams+    return ()++-- method MessageHeaders::set_content_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_content_length" soup_message_headers_set_content_length :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Int64 ->                                -- content_length : TBasicType TInt64+    IO ()+++messageHeadersSetContentLength ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Int64 ->                                -- content_length+    m ()+messageHeadersSetContentLength _obj content_length = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_set_content_length _obj' content_length+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::set_content_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_content_range" soup_message_headers_set_content_range :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Int64 ->                                -- start : TBasicType TInt64+    Int64 ->                                -- end : TBasicType TInt64+    Int64 ->                                -- total_length : TBasicType TInt64+    IO ()+++messageHeadersSetContentRange ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Int64 ->                                -- start+    Int64 ->                                -- end+    Int64 ->                                -- total_length+    m ()+messageHeadersSetContentRange _obj start end total_length = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_set_content_range _obj' start end total_length+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::set_content_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_content_type" soup_message_headers_set_content_type :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CString ->                              -- content_type : TBasicType TUTF8+    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO ()+++messageHeadersSetContentType ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    T.Text ->                               -- content_type+    Maybe (Map.Map T.Text T.Text) ->        -- params+    m ()+messageHeadersSetContentType _obj content_type params = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    content_type' <- textToCString content_type+    maybeParams <- case params of+        Nothing -> return nullPtr+        Just jParams -> do+            let jParams' = Map.toList jParams+            jParams'' <- mapFirstA textToCString jParams'+            jParams''' <- mapSecondA textToCString jParams''+            let jParams'''' = mapFirst cstringPackPtr jParams'''+            let jParams''''' = mapSecond cstringPackPtr jParams''''+            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''+            return jParams''''''+    soup_message_headers_set_content_type _obj' content_type' maybeParams+    touchManagedPtr _obj+    freeMem content_type'+    unrefGHashTable maybeParams+    return ()++-- method MessageHeaders::set_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_encoding" soup_message_headers_set_encoding :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CUInt ->                                -- encoding : TInterface "Soup" "Encoding"+    IO ()+++messageHeadersSetEncoding ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Encoding ->                             -- encoding+    m ()+messageHeadersSetEncoding _obj encoding = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let encoding' = (fromIntegral . fromEnum) encoding+    soup_message_headers_set_encoding _obj' encoding'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::set_expectations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_expectations" soup_message_headers_set_expectations :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    CUInt ->                                -- expectations : TInterface "Soup" "Expectation"+    IO ()+++messageHeadersSetExpectations ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    [Expectation] ->                        -- expectations+    m ()+messageHeadersSetExpectations _obj expectations = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let expectations' = gflagsToWord expectations+    soup_message_headers_set_expectations _obj' expectations'+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::set_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_range" soup_message_headers_set_range :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Int64 ->                                -- start : TBasicType TInt64+    Int64 ->                                -- end : TBasicType TInt64+    IO ()+++messageHeadersSetRange ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Int64 ->                                -- start+    Int64 ->                                -- end+    m ()+messageHeadersSetRange _obj start end = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_message_headers_set_range _obj' start end+    touchManagedPtr _obj+    return ()++-- method MessageHeaders::set_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_set_ranges" soup_message_headers_set_ranges :: +    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"+    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"+    Int32 ->                                -- length : TBasicType TInt32+    IO ()+++messageHeadersSetRanges ::+    (MonadIO m) =>+    MessageHeaders ->                       -- _obj+    Range ->                                -- ranges+    Int32 ->                                -- length+    m ()+messageHeadersSetRanges _obj ranges length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let ranges' = unsafeManagedPtrGetPtr ranges+    soup_message_headers_set_ranges _obj' ranges' length_+    touchManagedPtr _obj+    touchManagedPtr ranges+    return ()++
+ GI/Soup/Structs/MessageHeaders.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.MessageHeaders where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)+instance BoxedObject MessageHeaders where
+ GI/Soup/Structs/MessageHeadersIter.hs view
@@ -0,0 +1,83 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++An opaque type used to iterate over a %SoupMessageHeaders+structure.++After intializing the iterator with+soup_message_headers_iter_init(), call+soup_message_headers_iter_next() to fetch data from it.++You may not modify the headers while iterating over them.+-}++module GI.Soup.Structs.MessageHeadersIter+    ( ++-- * Exported types+    MessageHeadersIter(..)                  ,+    noMessageHeadersIter                    ,+++ -- * Methods+-- ** messageHeadersIterNext+    messageHeadersIterNext                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter)+noMessageHeadersIter :: Maybe MessageHeadersIter+noMessageHeadersIter = Nothing++-- method MessageHeadersIter::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_message_headers_iter_next" soup_message_headers_iter_next :: +    Ptr MessageHeadersIter ->               -- _obj : TInterface "Soup" "MessageHeadersIter"+    Ptr CString ->                          -- name : TBasicType TUTF8+    Ptr CString ->                          -- value : TBasicType TUTF8+    IO CInt+++messageHeadersIterNext ::+    (MonadIO m) =>+    MessageHeadersIter ->                   -- _obj+    m (Bool,T.Text,T.Text)+messageHeadersIterNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name <- allocMem :: IO (Ptr CString)+    value <- allocMem :: IO (Ptr CString)+    result <- soup_message_headers_iter_next _obj' name value+    let result' = (/= 0) result+    name' <- peek name+    name'' <- cstringToText name'+    value' <- peek value+    value'' <- cstringToText value'+    touchManagedPtr _obj+    freeMem name+    freeMem value+    return (result', name'', value'')++
+ GI/Soup/Structs/MessageHeadersIter.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.MessageHeadersIter where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter)
+ GI/Soup/Structs/MessageQueue.hs view
@@ -0,0 +1,32 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Structs.MessageQueue+    ( ++-- * Exported types+    MessageQueue(..)                        ,+    noMessageQueue                          ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue)+noMessageQueue :: Maybe MessageQueue+noMessageQueue = Nothing++
+ GI/Soup/Structs/MessageQueue.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.MessageQueue where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue)
+ GI/Soup/Structs/MessageQueueItem.hs view
@@ -0,0 +1,32 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Soup.Structs.MessageQueueItem+    ( ++-- * Exported types+    MessageQueueItem(..)                    ,+    noMessageQueueItem                      ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem)+noMessageQueueItem :: Maybe MessageQueueItem+noMessageQueueItem = Nothing++
+ GI/Soup/Structs/MessageQueueItem.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.MessageQueueItem where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem)
+ GI/Soup/Structs/Multipart.hs view
@@ -0,0 +1,364 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++Represents a multipart HTTP message body, parsed according to the+syntax of RFC 2046. Of particular interest to HTTP are+<literal>multipart/byte-ranges</literal> and+<literal>multipart/form-data</literal>.++Although the headers of a #SoupMultipart body part will contain the+full headers from that body part, libsoup does not interpret them+according to MIME rules. For example, each body part is assumed to+have "binary" Content-Transfer-Encoding, even if its headers+explicitly state otherwise. In other words, don't try to use+#SoupMultipart for handling real MIME multiparts.+-}++module GI.Soup.Structs.Multipart+    ( ++-- * Exported types+    Multipart(..)                           ,+    noMultipart                             ,+++ -- * Methods+-- ** multipartAppendFormFile+    multipartAppendFormFile                 ,+++-- ** multipartAppendFormString+    multipartAppendFormString               ,+++-- ** multipartAppendPart+    multipartAppendPart                     ,+++-- ** multipartFree+    multipartFree                           ,+++-- ** multipartGetLength+    multipartGetLength                      ,+++-- ** multipartGetPart+    multipartGetPart                        ,+++-- ** multipartNew+    multipartNew                            ,+++-- ** multipartNewFromMessage+    multipartNewFromMessage                 ,+++-- ** multipartToMessage+    multipartToMessage                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype Multipart = Multipart (ForeignPtr Multipart)+foreign import ccall "soup_multipart_get_type" c_soup_multipart_get_type :: +    IO GType++instance BoxedObject Multipart where+    boxedType _ = c_soup_multipart_get_type++noMultipart :: Maybe Multipart+noMultipart = Nothing++-- method Multipart::new+-- method type : Constructor+-- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Multipart"+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_new" soup_multipart_new :: +    CString ->                              -- mime_type : TBasicType TUTF8+    IO (Ptr Multipart)+++multipartNew ::+    (MonadIO m) =>+    T.Text ->                               -- mime_type+    m Multipart+multipartNew mime_type = liftIO $ do+    mime_type' <- textToCString mime_type+    result <- soup_multipart_new mime_type'+    checkUnexpectedReturnNULL "soup_multipart_new" result+    result' <- (wrapBoxed Multipart) result+    freeMem mime_type'+    return result'++-- method Multipart::new_from_message+-- method type : Constructor+-- Args : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "Multipart"+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: +    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"+    Ptr MessageBody ->                      -- body : TInterface "Soup" "MessageBody"+    IO (Ptr Multipart)+++multipartNewFromMessage ::+    (MonadIO m) =>+    MessageHeaders ->                       -- headers+    MessageBody ->                          -- body+    m Multipart+multipartNewFromMessage headers body = liftIO $ do+    let headers' = unsafeManagedPtrGetPtr headers+    let body' = unsafeManagedPtrGetPtr body+    result <- soup_multipart_new_from_message headers' body'+    checkUnexpectedReturnNULL "soup_multipart_new_from_message" result+    result' <- (wrapBoxed Multipart) result+    touchManagedPtr headers+    touchManagedPtr body+    return result'++-- method Multipart::append_form_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_append_form_file" soup_multipart_append_form_file :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    CString ->                              -- control_name : TBasicType TUTF8+    CString ->                              -- filename : TBasicType TUTF8+    CString ->                              -- content_type : TBasicType TUTF8+    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"+    IO ()+++multipartAppendFormFile ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    T.Text ->                               -- control_name+    T.Text ->                               -- filename+    T.Text ->                               -- content_type+    Buffer ->                               -- body+    m ()+multipartAppendFormFile _obj control_name filename content_type body = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    control_name' <- textToCString control_name+    filename' <- textToCString filename+    content_type' <- textToCString content_type+    let body' = unsafeManagedPtrGetPtr body+    soup_multipart_append_form_file _obj' control_name' filename' content_type' body'+    touchManagedPtr _obj+    touchManagedPtr body+    freeMem control_name'+    freeMem filename'+    freeMem content_type'+    return ()++-- method Multipart::append_form_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_append_form_string" soup_multipart_append_form_string :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    CString ->                              -- control_name : TBasicType TUTF8+    CString ->                              -- data : TBasicType TUTF8+    IO ()+++multipartAppendFormString ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    T.Text ->                               -- control_name+    T.Text ->                               -- data+    m ()+multipartAppendFormString _obj control_name data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    control_name' <- textToCString control_name+    data_' <- textToCString data_+    soup_multipart_append_form_string _obj' control_name' data_'+    touchManagedPtr _obj+    freeMem control_name'+    freeMem data_'+    return ()++-- method Multipart::append_part+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_append_part" soup_multipart_append_part :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"+    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"+    IO ()+++multipartAppendPart ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    MessageHeaders ->                       -- headers+    Buffer ->                               -- body+    m ()+multipartAppendPart _obj headers body = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let headers' = unsafeManagedPtrGetPtr headers+    let body' = unsafeManagedPtrGetPtr body+    soup_multipart_append_part _obj' headers' body'+    touchManagedPtr _obj+    touchManagedPtr headers+    touchManagedPtr body+    return ()++-- method Multipart::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_free" soup_multipart_free :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    IO ()+++multipartFree ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    m ()+multipartFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_multipart_free _obj'+    touchManagedPtr _obj+    return ()++-- method Multipart::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_get_length" soup_multipart_get_length :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    IO Int32+++multipartGetLength ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    m Int32+multipartGetLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_multipart_get_length _obj'+    touchManagedPtr _obj+    return result++-- method Multipart::get_part+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_get_part" soup_multipart_get_part :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    Int32 ->                                -- part : TBasicType TInt32+    Ptr (Ptr MessageHeaders) ->             -- headers : TInterface "Soup" "MessageHeaders"+    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"+    IO CInt+++multipartGetPart ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    Int32 ->                                -- part+    m (Bool,MessageHeaders,Buffer)+multipartGetPart _obj part = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    headers <- allocMem :: IO (Ptr (Ptr MessageHeaders))+    body <- callocBoxedBytes 16 :: IO (Ptr Buffer)+    result <- soup_multipart_get_part _obj' part headers body+    let result' = (/= 0) result+    headers' <- peek headers+    headers'' <- (newBoxed MessageHeaders) headers'+    body' <- (wrapBoxed Buffer) body+    touchManagedPtr _obj+    freeMem headers+    return (result', headers'', body')++-- method Multipart::to_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_multipart_to_message" soup_multipart_to_message :: +    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"+    Ptr MessageHeaders ->                   -- dest_headers : TInterface "Soup" "MessageHeaders"+    Ptr MessageBody ->                      -- dest_body : TInterface "Soup" "MessageBody"+    IO ()+++multipartToMessage ::+    (MonadIO m) =>+    Multipart ->                            -- _obj+    MessageHeaders ->                       -- dest_headers+    MessageBody ->                          -- dest_body+    m ()+multipartToMessage _obj dest_headers dest_body = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let dest_headers' = unsafeManagedPtrGetPtr dest_headers+    let dest_body' = unsafeManagedPtrGetPtr dest_body+    soup_multipart_to_message _obj' dest_headers' dest_body'+    touchManagedPtr _obj+    touchManagedPtr dest_headers+    touchManagedPtr dest_body+    return ()++
+ GI/Soup/Structs/Multipart.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.Multipart where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Multipart = Multipart (ForeignPtr Multipart)+instance BoxedObject Multipart where
+ GI/Soup/Structs/Range.hs view
@@ -0,0 +1,68 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++Represents a byte range as used in the Range header.++If @end is non-negative, then @start and @end represent the bounds+of of the range, counting from 0. (Eg, the first 500 bytes would be+represented as @start = 0 and @end = 499.)++If @end is -1 and @start is non-negative, then this represents a+range starting at @start and ending with the last byte of the+requested resource body. (Eg, all but the first 500 bytes would be+@start = 500, and @end = -1.)++If @end is -1 and @start is negative, then it represents a "suffix+range", referring to the last -@start bytes of the resource body.+(Eg, the last 500 bytes would be @start = -500 and @end = -1.)+-}++module GI.Soup.Structs.Range+    ( ++-- * Exported types+    Range(..)                               ,+    noRange                                 ,+++ -- * Properties+-- ** End+    rangeReadEnd                            ,+++-- ** Start+    rangeReadStart                          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype Range = Range (ForeignPtr Range)+noRange :: Maybe Range+noRange = Nothing++rangeReadStart :: Range -> IO Int64+rangeReadStart s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int64+    return val++rangeReadEnd :: Range -> IO Int64+rangeReadEnd s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int64+    return val++
+ GI/Soup/Structs/Range.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.Range where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Range = Range (ForeignPtr Range)
+ GI/Soup/Structs/URI.hs view
@@ -0,0 +1,1027 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++A #SoupURI represents a (parsed) URI. #SoupURI supports RFC 3986+(URI Generic Syntax), and can parse any valid URI. However, libsoup+only uses "http" and "https" URIs internally; You can use+SOUP_URI_VALID_FOR_HTTP() to test if a #SoupURI is a valid HTTP+URI.++@scheme will always be set in any URI. It is an interned string and+is always all lowercase. (If you parse a URI with a non-lowercase+scheme, it will be converted to lowercase.) The macros+%SOUP_URI_SCHEME_HTTP and %SOUP_URI_SCHEME_HTTPS provide the+interned values for "http" and "https" and can be compared against+URI @scheme values.++@user and @password are parsed as defined in the older URI specs+(ie, separated by a colon; RFC 3986 only talks about a single+"userinfo" field). Note that @password is not included in the+output of soup_uri_to_string(). libsoup does not normally use these+fields; authentication is handled via #SoupSession signals.++@host contains the hostname, and @port the port specified in the+URI. If the URI doesn't contain a hostname, @host will be %NULL,+and if it doesn't specify a port, @port may be 0. However, for+"http" and "https" URIs, @host is guaranteed to be non-%NULL+(trying to parse an http URI with no @host will return %NULL), and+@port will always be non-0 (because libsoup knows the default value+to use when it is not specified in the URI).++@path is always non-%NULL. For http/https URIs, @path will never be+an empty string either; if the input URI has no path, the parsed+#SoupURI will have a @path of "/".++@query and @fragment are optional for all URI types.+soup_form_decode() may be useful for parsing @query.++Note that @path, @query, and @fragment may contain+%<!-- -->-encoded characters. soup_uri_new() calls+soup_uri_normalize() on them, but not soup_uri_decode(). This is+necessary to ensure that soup_uri_to_string() will generate a URI+that has exactly the same meaning as the original. (In theory,+#SoupURI should leave @user, @password, and @host partially-encoded+as well, but this would be more annoying than useful.)+-}++module GI.Soup.Structs.URI+    ( ++-- * Exported types+    URI(..)                                 ,+    noURI                                   ,+++ -- * Methods+-- ** uRICopy+    uRICopy                                 ,+++-- ** uRICopyHost+    uRICopyHost                             ,+++-- ** uRIEqual+    uRIEqual                                ,+++-- ** uRIFree+    uRIFree                                 ,+++-- ** uRIGetFragment+    uRIGetFragment                          ,+++-- ** uRIGetHost+    uRIGetHost                              ,+++-- ** uRIGetPassword+    uRIGetPassword                          ,+++-- ** uRIGetPath+    uRIGetPath                              ,+++-- ** uRIGetPort+    uRIGetPort                              ,+++-- ** uRIGetQuery+    uRIGetQuery                             ,+++-- ** uRIGetScheme+    uRIGetScheme                            ,+++-- ** uRIGetUser+    uRIGetUser                              ,+++-- ** uRIHostEqual+    uRIHostEqual                            ,+++-- ** uRIHostHash+    uRIHostHash                             ,+++-- ** uRINew+    uRINew                                  ,+++-- ** uRINewWithBase+    uRINewWithBase                          ,+++-- ** uRISetFragment+    uRISetFragment                          ,+++-- ** uRISetHost+    uRISetHost                              ,+++-- ** uRISetPassword+    uRISetPassword                          ,+++-- ** uRISetPath+    uRISetPath                              ,+++-- ** uRISetPort+    uRISetPort                              ,+++-- ** uRISetQuery+    uRISetQuery                             ,+++-- ** uRISetQueryFromForm+    uRISetQueryFromForm                     ,+++-- ** uRISetScheme+    uRISetScheme                            ,+++-- ** uRISetUser+    uRISetUser                              ,+++-- ** uRIToString+    uRIToString                             ,+++-- ** uRIUsesDefaultPort+    uRIUsesDefaultPort                      ,+++++ -- * Properties+-- ** Fragment+    uRIReadFragment                         ,+++-- ** Host+    uRIReadHost                             ,+++-- ** Password+    uRIReadPassword                         ,+++-- ** Path+    uRIReadPath                             ,+++-- ** Port+    uRIReadPort                             ,+++-- ** Query+    uRIReadQuery                            ,+++-- ** Scheme+    uRIReadScheme                           ,+++-- ** User+    uRIReadUser                             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype URI = URI (ForeignPtr URI)+foreign import ccall "soup_uri_get_type" c_soup_uri_get_type :: +    IO GType++instance BoxedObject URI where+    boxedType _ = c_soup_uri_get_type++noURI :: Maybe URI+noURI = Nothing++uRIReadScheme :: URI -> IO T.Text+uRIReadScheme s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadUser :: URI -> IO T.Text+uRIReadUser s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadPassword :: URI -> IO T.Text+uRIReadPassword s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadHost :: URI -> IO T.Text+uRIReadHost s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadPort :: URI -> IO Word32+uRIReadPort s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++uRIReadPath :: URI -> IO T.Text+uRIReadPath s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadQuery :: URI -> IO T.Text+uRIReadQuery s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CString+    val' <- cstringToText val+    return val'++uRIReadFragment :: URI -> IO T.Text+uRIReadFragment s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CString+    val' <- cstringToText val+    return val'++-- method URI::new+-- method type : Constructor+-- Args : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_new" soup_uri_new :: +    CString ->                              -- uri_string : TBasicType TUTF8+    IO (Ptr URI)+++uRINew ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- uri_string+    m URI+uRINew uri_string = liftIO $ do+    maybeUri_string <- case uri_string of+        Nothing -> return nullPtr+        Just jUri_string -> do+            jUri_string' <- textToCString jUri_string+            return jUri_string'+    result <- soup_uri_new maybeUri_string+    checkUnexpectedReturnNULL "soup_uri_new" result+    result' <- (wrapBoxed URI) result+    freeMem maybeUri_string+    return result'++-- method URI::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_copy" soup_uri_copy :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO (Ptr URI)+++uRICopy ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m URI+uRICopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_copy _obj'+    checkUnexpectedReturnNULL "soup_uri_copy" result+    result' <- (wrapBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method URI::copy_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO (Ptr URI)+++uRICopyHost ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m URI+uRICopyHost _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_copy_host _obj'+    checkUnexpectedReturnNULL "soup_uri_copy_host" result+    result' <- (wrapBoxed URI) result+    touchManagedPtr _obj+    return result'++-- method URI::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_equal" soup_uri_equal :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    Ptr URI ->                              -- uri2 : TInterface "Soup" "URI"+    IO CInt+++uRIEqual ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    URI ->                                  -- uri2+    m Bool+uRIEqual _obj uri2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let uri2' = unsafeManagedPtrGetPtr uri2+    result <- soup_uri_equal _obj' uri2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr uri2+    return result'++-- method URI::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_free" soup_uri_free :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO ()+++uRIFree ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m ()+uRIFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_uri_free _obj'+    touchManagedPtr _obj+    return ()++-- method URI::get_fragment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_fragment" soup_uri_get_fragment :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetFragment ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetFragment _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_fragment _obj'+    checkUnexpectedReturnNULL "soup_uri_get_fragment" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_host" soup_uri_get_host :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetHost ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetHost _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_host _obj'+    checkUnexpectedReturnNULL "soup_uri_get_host" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_password" soup_uri_get_password :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetPassword ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetPassword _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_password _obj'+    checkUnexpectedReturnNULL "soup_uri_get_password" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_path" soup_uri_get_path :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetPath ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetPath _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_path _obj'+    checkUnexpectedReturnNULL "soup_uri_get_path" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_port" soup_uri_get_port :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO Word32+++uRIGetPort ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m Word32+uRIGetPort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_port _obj'+    touchManagedPtr _obj+    return result++-- method URI::get_query+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_query" soup_uri_get_query :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetQuery ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetQuery _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_query _obj'+    checkUnexpectedReturnNULL "soup_uri_get_query" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_scheme" soup_uri_get_scheme :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetScheme ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetScheme _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_scheme _obj'+    checkUnexpectedReturnNULL "soup_uri_get_scheme" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::get_user+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_get_user" soup_uri_get_user :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CString+++uRIGetUser ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m T.Text+uRIGetUser _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_get_user _obj'+    checkUnexpectedReturnNULL "soup_uri_get_user" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URI::host_equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_host_equal" soup_uri_host_equal :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    Ptr URI ->                              -- v2 : TInterface "Soup" "URI"+    IO CInt+++uRIHostEqual ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    URI ->                                  -- v2+    m Bool+uRIHostEqual _obj v2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let v2' = unsafeManagedPtrGetPtr v2+    result <- soup_uri_host_equal _obj' v2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr v2+    return result'++-- method URI::host_hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_host_hash" soup_uri_host_hash :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO Word32+++uRIHostHash ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m Word32+uRIHostHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_host_hash _obj'+    touchManagedPtr _obj+    return result++-- method URI::new_with_base+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "URI"+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- uri_string : TBasicType TUTF8+    IO (Ptr URI)+++uRINewWithBase ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    T.Text ->                               -- uri_string+    m URI+uRINewWithBase _obj uri_string = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri_string' <- textToCString uri_string+    result <- soup_uri_new_with_base _obj' uri_string'+    checkUnexpectedReturnNULL "soup_uri_new_with_base" result+    result' <- (wrapBoxed URI) result+    touchManagedPtr _obj+    freeMem uri_string'+    return result'++-- method URI::set_fragment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_fragment" soup_uri_set_fragment :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- fragment : TBasicType TUTF8+    IO ()+++uRISetFragment ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Maybe (T.Text) ->                       -- fragment+    m ()+uRISetFragment _obj fragment = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeFragment <- case fragment of+        Nothing -> return nullPtr+        Just jFragment -> do+            jFragment' <- textToCString jFragment+            return jFragment'+    soup_uri_set_fragment _obj' maybeFragment+    touchManagedPtr _obj+    freeMem maybeFragment+    return ()++-- method URI::set_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_host" soup_uri_set_host :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- host : TBasicType TUTF8+    IO ()+++uRISetHost ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Maybe (T.Text) ->                       -- host+    m ()+uRISetHost _obj host = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeHost <- case host of+        Nothing -> return nullPtr+        Just jHost -> do+            jHost' <- textToCString jHost+            return jHost'+    soup_uri_set_host _obj' maybeHost+    touchManagedPtr _obj+    freeMem maybeHost+    return ()++-- method URI::set_password+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_password" soup_uri_set_password :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- password : TBasicType TUTF8+    IO ()+++uRISetPassword ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Maybe (T.Text) ->                       -- password+    m ()+uRISetPassword _obj password = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybePassword <- case password of+        Nothing -> return nullPtr+        Just jPassword -> do+            jPassword' <- textToCString jPassword+            return jPassword'+    soup_uri_set_password _obj' maybePassword+    touchManagedPtr _obj+    freeMem maybePassword+    return ()++-- method URI::set_path+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_path" soup_uri_set_path :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- path : TBasicType TUTF8+    IO ()+++uRISetPath ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    T.Text ->                               -- path+    m ()+uRISetPath _obj path = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    path' <- textToCString path+    soup_uri_set_path _obj' path'+    touchManagedPtr _obj+    freeMem path'+    return ()++-- method URI::set_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_port" soup_uri_set_port :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    Word32 ->                               -- port : TBasicType TUInt32+    IO ()+++uRISetPort ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Word32 ->                               -- port+    m ()+uRISetPort _obj port = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_uri_set_port _obj' port+    touchManagedPtr _obj+    return ()++-- method URI::set_query+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_query" soup_uri_set_query :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- query : TBasicType TUTF8+    IO ()+++uRISetQuery ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Maybe (T.Text) ->                       -- query+    m ()+uRISetQuery _obj query = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeQuery <- case query of+        Nothing -> return nullPtr+        Just jQuery -> do+            jQuery' <- textToCString jQuery+            return jQuery'+    soup_uri_set_query _obj' maybeQuery+    touchManagedPtr _obj+    freeMem maybeQuery+    return ()++-- method URI::set_query_from_form+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_query_from_form" soup_uri_set_query_from_form :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    Ptr (GHashTable CString CString) ->     -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+    IO ()+++uRISetQueryFromForm ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Map.Map T.Text T.Text ->                -- form+    m ()+uRISetQueryFromForm _obj form = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let form' = Map.toList form+    form'' <- mapFirstA textToCString form'+    form''' <- mapSecondA textToCString form''+    let form'''' = mapFirst cstringPackPtr form'''+    let form''''' = mapSecond cstringPackPtr form''''+    form'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form'''''+    soup_uri_set_query_from_form _obj' form''''''+    touchManagedPtr _obj+    unrefGHashTable form''''''+    return ()++-- method URI::set_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_scheme" soup_uri_set_scheme :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- scheme : TBasicType TUTF8+    IO ()+++uRISetScheme ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    T.Text ->                               -- scheme+    m ()+uRISetScheme _obj scheme = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    scheme' <- textToCString scheme+    soup_uri_set_scheme _obj' scheme'+    touchManagedPtr _obj+    freeMem scheme'+    return ()++-- method URI::set_user+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_set_user" soup_uri_set_user :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CString ->                              -- user : TBasicType TUTF8+    IO ()+++uRISetUser ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Maybe (T.Text) ->                       -- user+    m ()+uRISetUser _obj user = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeUser <- case user of+        Nothing -> return nullPtr+        Just jUser -> do+            jUser' <- textToCString jUser+            return jUser'+    soup_uri_set_user _obj' maybeUser+    touchManagedPtr _obj+    freeMem maybeUser+    return ()++-- method URI::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_to_string" soup_uri_to_string :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    CInt ->                                 -- just_path_and_query : TBasicType TBoolean+    IO CString+++uRIToString ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    Bool ->                                 -- just_path_and_query+    m T.Text+uRIToString _obj just_path_and_query = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let just_path_and_query' = (fromIntegral . fromEnum) just_path_and_query+    result <- soup_uri_to_string _obj' just_path_and_query'+    checkUnexpectedReturnNULL "soup_uri_to_string" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method URI::uses_default_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "soup_uri_uses_default_port" soup_uri_uses_default_port :: +    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"+    IO CInt+++uRIUsesDefaultPort ::+    (MonadIO m) =>+    URI ->                                  -- _obj+    m Bool+uRIUsesDefaultPort _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- soup_uri_uses_default_port _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/Soup/Structs/URI.hs-boot view
@@ -0,0 +1,11 @@+module GI.Soup.Structs.URI where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype URI = URI (ForeignPtr URI)+instance BoxedObject URI where
+ GI/Soup/Structs/XMLRPCParams.hs view
@@ -0,0 +1,110 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)++Opaque structure containing XML-RPC methodCall parameter values.+Can be parsed using soup_xmlrpc_params_parse() and freed with+soup_xmlrpc_params_free().+-}++module GI.Soup.Structs.XMLRPCParams+    ( ++-- * Exported types+    XMLRPCParams(..)                        ,+    noXMLRPCParams                          ,+++ -- * Methods+-- ** xMLRPCParamsFree+    xMLRPCParamsFree                        ,+++-- ** xMLRPCParamsParse+    xMLRPCParamsParse                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.Soup.Types+import GI.Soup.Callbacks++newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams)+noXMLRPCParams :: Maybe XMLRPCParams+noXMLRPCParams = Nothing++-- method XMLRPCParams::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "soup_xmlrpc_params_free" soup_xmlrpc_params_free :: +    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"+    IO ()+++xMLRPCParamsFree ::+    (MonadIO m) =>+    XMLRPCParams ->                         -- _obj+    m ()+xMLRPCParamsFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    soup_xmlrpc_params_free _obj'+    touchManagedPtr _obj+    return ()++-- method XMLRPCParams::parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : True+-- Skip return : False++foreign import ccall "soup_xmlrpc_params_parse" soup_xmlrpc_params_parse :: +    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"+    CString ->                              -- signature : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr GVariant)+++xMLRPCParamsParse ::+    (MonadIO m) =>+    XMLRPCParams ->                         -- _obj+    Maybe (T.Text) ->                       -- signature+    m GVariant+xMLRPCParamsParse _obj signature = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeSignature <- case signature of+        Nothing -> return nullPtr+        Just jSignature -> do+            jSignature' <- textToCString jSignature+            return jSignature'+    onException (do+        result <- propagateGError $ soup_xmlrpc_params_parse _obj' maybeSignature+        checkUnexpectedReturnNULL "soup_xmlrpc_params_parse" result+        result' <- wrapGVariantPtr result+        touchManagedPtr _obj+        freeMem maybeSignature+        return result'+     ) (do+        freeMem maybeSignature+     )++
+ GI/Soup/Structs/XMLRPCParams.hs-boot view
@@ -0,0 +1,10 @@+module GI.Soup.Structs.XMLRPCParams where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams)
+ GI/Soup/Types.hs view
@@ -0,0 +1,106 @@+module GI.Soup.Types+    (     module GI.Soup.Interfaces.PasswordManager,+    module GI.Soup.Interfaces.ProxyURIResolver,+    module GI.Soup.Interfaces.SessionFeature,+    module GI.Soup.Objects.Address          ,+    module GI.Soup.Objects.Auth             ,+    module GI.Soup.Objects.AuthBasic        ,+    module GI.Soup.Objects.AuthDigest       ,+    module GI.Soup.Objects.AuthDomain       ,+    module GI.Soup.Objects.AuthDomainBasic  ,+    module GI.Soup.Objects.AuthDomainDigest ,+    module GI.Soup.Objects.AuthManager      ,+    module GI.Soup.Objects.AuthNTLM         ,+    module GI.Soup.Objects.Cache            ,+    module GI.Soup.Objects.ContentDecoder   ,+    module GI.Soup.Objects.ContentSniffer   ,+    module GI.Soup.Objects.CookieJar        ,+    module GI.Soup.Objects.CookieJarDB      ,+    module GI.Soup.Objects.CookieJarText    ,+    module GI.Soup.Objects.Logger           ,+    module GI.Soup.Objects.Message          ,+    module GI.Soup.Objects.MultipartInputStream,+    module GI.Soup.Objects.ProxyResolverDefault,+    module GI.Soup.Objects.Request          ,+    module GI.Soup.Objects.RequestData      ,+    module GI.Soup.Objects.RequestFile      ,+    module GI.Soup.Objects.RequestHTTP      ,+    module GI.Soup.Objects.Requester        ,+    module GI.Soup.Objects.Server           ,+    module GI.Soup.Objects.Session          ,+    module GI.Soup.Objects.SessionAsync     ,+    module GI.Soup.Objects.SessionSync      ,+    module GI.Soup.Objects.Socket           ,+    module GI.Soup.Objects.WebsocketConnection,+    module GI.Soup.Structs.Buffer           ,+    module GI.Soup.Structs.ClientContext    ,+    module GI.Soup.Structs.Connection       ,+    module GI.Soup.Structs.Cookie           ,+    module GI.Soup.Structs.Date             ,+    module GI.Soup.Structs.MessageBody      ,+    module GI.Soup.Structs.MessageHeaders   ,+    module GI.Soup.Structs.MessageHeadersIter,+    module GI.Soup.Structs.MessageQueue     ,+    module GI.Soup.Structs.MessageQueueItem ,+    module GI.Soup.Structs.Multipart        ,+    module GI.Soup.Structs.Range            ,+    module GI.Soup.Structs.URI              ,+    module GI.Soup.Structs.XMLRPCParams     ,+    module GI.Soup.Enums                    ,+    module GI.Soup.Flags                    ,+++    ) where+++import {-# SOURCE #-} GI.Soup.Interfaces.PasswordManager+import {-# SOURCE #-} GI.Soup.Interfaces.ProxyURIResolver+import {-# SOURCE #-} GI.Soup.Interfaces.SessionFeature+import {-# SOURCE #-} GI.Soup.Objects.Address+import {-# SOURCE #-} GI.Soup.Objects.Auth+import {-# SOURCE #-} GI.Soup.Objects.AuthBasic+import {-# SOURCE #-} GI.Soup.Objects.AuthDigest+import {-# SOURCE #-} GI.Soup.Objects.AuthDomain+import {-# SOURCE #-} GI.Soup.Objects.AuthDomainBasic+import {-# SOURCE #-} GI.Soup.Objects.AuthDomainDigest+import {-# SOURCE #-} GI.Soup.Objects.AuthManager+import {-# SOURCE #-} GI.Soup.Objects.AuthNTLM+import {-# SOURCE #-} GI.Soup.Objects.Cache+import {-# SOURCE #-} GI.Soup.Objects.ContentDecoder+import {-# SOURCE #-} GI.Soup.Objects.ContentSniffer+import {-# SOURCE #-} GI.Soup.Objects.CookieJar+import {-# SOURCE #-} GI.Soup.Objects.CookieJarDB+import {-# SOURCE #-} GI.Soup.Objects.CookieJarText+import {-# SOURCE #-} GI.Soup.Objects.Logger+import {-# SOURCE #-} GI.Soup.Objects.Message+import {-# SOURCE #-} GI.Soup.Objects.MultipartInputStream+import {-# SOURCE #-} GI.Soup.Objects.ProxyResolverDefault+import {-# SOURCE #-} GI.Soup.Objects.Request+import {-# SOURCE #-} GI.Soup.Objects.RequestData+import {-# SOURCE #-} GI.Soup.Objects.RequestFile+import {-# SOURCE #-} GI.Soup.Objects.RequestHTTP+import {-# SOURCE #-} GI.Soup.Objects.Requester+import {-# SOURCE #-} GI.Soup.Objects.Server+import {-# SOURCE #-} GI.Soup.Objects.Session+import {-# SOURCE #-} GI.Soup.Objects.SessionAsync+import {-# SOURCE #-} GI.Soup.Objects.SessionSync+import {-# SOURCE #-} GI.Soup.Objects.Socket+import {-# SOURCE #-} GI.Soup.Objects.WebsocketConnection+import {-# SOURCE #-} GI.Soup.Structs.Buffer+import {-# SOURCE #-} GI.Soup.Structs.ClientContext+import {-# SOURCE #-} GI.Soup.Structs.Connection+import {-# SOURCE #-} GI.Soup.Structs.Cookie+import {-# SOURCE #-} GI.Soup.Structs.Date+import {-# SOURCE #-} GI.Soup.Structs.MessageBody+import {-# SOURCE #-} GI.Soup.Structs.MessageHeaders+import {-# SOURCE #-} GI.Soup.Structs.MessageHeadersIter+import {-# SOURCE #-} GI.Soup.Structs.MessageQueue+import {-# SOURCE #-} GI.Soup.Structs.MessageQueueItem+import {-# SOURCE #-} GI.Soup.Structs.Multipart+import {-# SOURCE #-} GI.Soup.Structs.Range+import {-# SOURCE #-} GI.Soup.Structs.URI+import {-# SOURCE #-} GI.Soup.Structs.XMLRPCParams++import GI.Soup.Enums+import GI.Soup.Flags+
− GI/SoupAttributes.hs 
@@ -1,2374 +0,0 @@-{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}---- Generated code.--{-# OPTIONS_GHC -fno-warn-unused-imports #-}--{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,-    TypeFamilies, MultiParamTypeClasses, KindSignatures,-    FlexibleInstances, UndecidableInstances, DataKinds,-    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}--module GI.SoupAttributes where--import Prelude ()-import Data.GI.Base.ShortPrelude-import Data.Char-import Data.Int-import Data.Word-import qualified Data.ByteString.Char8 as B-import Data.ByteString.Char8 (ByteString)-import qualified Data.Map as Map-import Foreign.C-import Foreign.Ptr-import Foreign.ForeignPtr-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)-import Foreign.Storable (peek, poke, sizeOf)-import Control.Applicative ((<$>))-import Control.Exception (onException)-import Control.Monad.IO.Class-import qualified Data.Text as T--import Data.GI.Base.Attributes hiding (get, set)-import Data.GI.Base.BasicTypes-import Data.GI.Base.BasicConversions-import Data.GI.Base.Closure-import Data.GI.Base.GError-import Data.GI.Base.GHashTable-import Data.GI.Base.GParamSpec-import Data.GI.Base.GVariant-import Data.GI.Base.GValue-import Data.GI.Base.ManagedPtr-import Data.GI.Base.Overloading-import Data.GI.Base.Properties hiding (new)-import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)-import Data.GI.Base.Utils--import qualified GI.GLib as GLib-import qualified GI.GLibAttributes as GLibA-import qualified GI.Gio as Gio-import qualified GI.GioAttributes as GioA-import GI.Soup---- VVV Prop "family"-   -- Type: TInterface "Soup" "AddressFamily"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily-getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"--constructAddressFamily :: AddressFamily -> IO ([Char], GValue)-constructAddressFamily val = constructObjectPropertyEnum "family" val--data AddressFamilyPropertyInfo-instance AttrInfo AddressFamilyPropertyInfo where-    type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) AddressFamily-    type AttrBaseTypeConstraint AddressFamilyPropertyInfo = AddressK-    type AttrGetType AddressFamilyPropertyInfo = AddressFamily-    type AttrLabel AddressFamilyPropertyInfo = "Address::family"-    attrGet _ = getAddressFamily-    attrSet _ = undefined-    attrConstruct _ = constructAddressFamily---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAddressName :: (MonadIO m, AddressK o) => o -> m T.Text-getAddressName obj = liftIO $ getObjectPropertyString obj "name"--constructAddressName :: T.Text -> IO ([Char], GValue)-constructAddressName val = constructObjectPropertyString "name" val--data AddressNamePropertyInfo-instance AttrInfo AddressNamePropertyInfo where-    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK-    type AttrGetType AddressNamePropertyInfo = T.Text-    type AttrLabel AddressNamePropertyInfo = "Address::name"-    attrGet _ = getAddressName-    attrSet _ = undefined-    attrConstruct _ = constructAddressName---- VVV Prop "physical"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getAddressPhysical :: (MonadIO m, AddressK o) => o -> m T.Text-getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical"--data AddressPhysicalPropertyInfo-instance AttrInfo AddressPhysicalPropertyInfo where-    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK-    type AttrGetType AddressPhysicalPropertyInfo = T.Text-    type AttrLabel AddressPhysicalPropertyInfo = "Address::physical"-    attrGet _ = getAddressPhysical-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "port"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32-getAddressPort obj = liftIO $ getObjectPropertyCInt obj "port"--constructAddressPort :: Int32 -> IO ([Char], GValue)-constructAddressPort val = constructObjectPropertyCInt "port" val--data AddressPortPropertyInfo-instance AttrInfo AddressPortPropertyInfo where-    type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint AddressPortPropertyInfo = AddressK-    type AttrGetType AddressPortPropertyInfo = Int32-    type AttrLabel AddressPortPropertyInfo = "Address::port"-    attrGet _ = getAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructAddressPort---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAddressProtocol :: (MonadIO m, AddressK o) => o -> m T.Text-getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol"--constructAddressProtocol :: T.Text -> IO ([Char], GValue)-constructAddressProtocol val = constructObjectPropertyString "protocol" val--data AddressProtocolPropertyInfo-instance AttrInfo AddressProtocolPropertyInfo where-    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK-    type AttrGetType AddressProtocolPropertyInfo = T.Text-    type AttrLabel AddressProtocolPropertyInfo = "Address::protocol"-    attrGet _ = getAddressProtocol-    attrSet _ = undefined-    attrConstruct _ = constructAddressProtocol---- VVV Prop "sockaddr"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ())-getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr"--constructAddressSockaddr :: (Ptr ()) -> IO ([Char], GValue)-constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val--data AddressSockaddrPropertyInfo-instance AttrInfo AddressSockaddrPropertyInfo where-    type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = AddressK-    type AttrGetType AddressSockaddrPropertyInfo = (Ptr ())-    type AttrLabel AddressSockaddrPropertyInfo = "Address::sockaddr"-    attrGet _ = getAddressSockaddr-    attrSet _ = undefined-    attrConstruct _ = constructAddressSockaddr--type instance AttributeList Address = '[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)]---- VVV Prop "host"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthHost obj = liftIO $ getObjectPropertyString obj "host"--setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" val--constructAuthHost :: T.Text -> IO ([Char], GValue)-constructAuthHost val = constructObjectPropertyString "host" val--data AuthHostPropertyInfo-instance AttrInfo AuthHostPropertyInfo where-    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK-    type AttrGetType AuthHostPropertyInfo = T.Text-    type AttrLabel AuthHostPropertyInfo = "Auth::host"-    attrGet _ = getAuthHost-    attrSet _ = setAuthHost-    attrConstruct _ = constructAuthHost---- VVV Prop "is-authenticated"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool-getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated"--data AuthIsAuthenticatedPropertyInfo-instance AttrInfo AuthIsAuthenticatedPropertyInfo where-    type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = AuthK-    type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool-    type AttrLabel AuthIsAuthenticatedPropertyInfo = "Auth::is-authenticated"-    attrGet _ = getAuthIsAuthenticated-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "is-for-proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool-getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy"--setAuthIsForProxy :: (MonadIO m, AuthK o) => o -> Bool -> m ()-setAuthIsForProxy obj val = liftIO $ setObjectPropertyBool obj "is-for-proxy" val--constructAuthIsForProxy :: Bool -> IO ([Char], GValue)-constructAuthIsForProxy val = constructObjectPropertyBool "is-for-proxy" val--data AuthIsForProxyPropertyInfo-instance AttrInfo AuthIsForProxyPropertyInfo where-    type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = AuthK-    type AttrGetType AuthIsForProxyPropertyInfo = Bool-    type AttrLabel AuthIsForProxyPropertyInfo = "Auth::is-for-proxy"-    attrGet _ = getAuthIsForProxy-    attrSet _ = setAuthIsForProxy-    attrConstruct _ = constructAuthIsForProxy---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthRealm obj = liftIO $ getObjectPropertyString obj "realm"--setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" val--constructAuthRealm :: T.Text -> IO ([Char], GValue)-constructAuthRealm val = constructObjectPropertyString "realm" val--data AuthRealmPropertyInfo-instance AttrInfo AuthRealmPropertyInfo where-    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK-    type AttrGetType AuthRealmPropertyInfo = T.Text-    type AttrLabel AuthRealmPropertyInfo = "Auth::realm"-    attrGet _ = getAuthRealm-    attrSet _ = setAuthRealm-    attrConstruct _ = constructAuthRealm---- VVV Prop "scheme-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]--getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthSchemeName obj = liftIO $ getObjectPropertyString obj "scheme-name"--data AuthSchemeNamePropertyInfo-instance AttrInfo AuthSchemeNamePropertyInfo where-    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK-    type AttrGetType AuthSchemeNamePropertyInfo = T.Text-    type AttrLabel AuthSchemeNamePropertyInfo = "Auth::scheme-name"-    attrGet _ = getAuthSchemeName-    attrSet _ = undefined-    attrConstruct _ = undefined--type instance AttributeList Auth = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)]--type instance AttributeList AuthBasic = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)]--type instance AttributeList AuthDigest = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)]---- VVV Prop "add-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]--setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" val--constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue)-constructAuthDomainAddPath val = constructObjectPropertyString "add-path" val--data AuthDomainAddPathPropertyInfo-instance AttrInfo AuthDomainAddPathPropertyInfo where-    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]-    type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainAddPathPropertyInfo = ()-    type AttrLabel AuthDomainAddPathPropertyInfo = "AuthDomain::add-path"-    attrGet _ = undefined-    attrSet _ = setAuthDomainAddPath-    attrConstruct _ = constructAuthDomainAddPath---- VVV Prop "filter"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter"--setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()-setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val--constructAuthDomainFilter :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val--data AuthDomainFilterPropertyInfo-instance AttrInfo AuthDomainFilterPropertyInfo where-    type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainFilterPropertyInfo = "AuthDomain::filter"-    attrGet _ = getAuthDomainFilter-    attrSet _ = setAuthDomainFilter-    attrConstruct _ = constructAuthDomainFilter---- VVV Prop "filter-data"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data"--setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()-setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val--constructAuthDomainFilterData :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val--data AuthDomainFilterDataPropertyInfo-instance AttrInfo AuthDomainFilterDataPropertyInfo where-    type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainFilterDataPropertyInfo = "AuthDomain::filter-data"-    attrGet _ = getAuthDomainFilterData-    attrSet _ = setAuthDomainFilterData-    attrConstruct _ = constructAuthDomainFilterData---- VVV Prop "generic-auth-callback"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback"--setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()-setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val--constructAuthDomainGenericAuthCallback :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val--data AuthDomainGenericAuthCallbackPropertyInfo-instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "AuthDomain::generic-auth-callback"-    attrGet _ = getAuthDomainGenericAuthCallback-    attrSet _ = setAuthDomainGenericAuthCallback-    attrConstruct _ = constructAuthDomainGenericAuthCallback---- VVV Prop "generic-auth-data"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data"--setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()-setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val--constructAuthDomainGenericAuthData :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val--data AuthDomainGenericAuthDataPropertyInfo-instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "AuthDomain::generic-auth-data"-    attrGet _ = getAuthDomainGenericAuthData-    attrSet _ = setAuthDomainGenericAuthData-    attrConstruct _ = constructAuthDomainGenericAuthData---- VVV Prop "proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool-getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy"--constructAuthDomainProxy :: Bool -> IO ([Char], GValue)-constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val--data AuthDomainProxyPropertyInfo-instance AttrInfo AuthDomainProxyPropertyInfo where-    type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainProxyPropertyInfo = Bool-    type AttrLabel AuthDomainProxyPropertyInfo = "AuthDomain::proxy"-    attrGet _ = getAuthDomainProxy-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainProxy---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text-getAuthDomainRealm obj = liftIO $ getObjectPropertyString obj "realm"--constructAuthDomainRealm :: T.Text -> IO ([Char], GValue)-constructAuthDomainRealm val = constructObjectPropertyString "realm" val--data AuthDomainRealmPropertyInfo-instance AttrInfo AuthDomainRealmPropertyInfo where-    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainRealmPropertyInfo = T.Text-    type AttrLabel AuthDomainRealmPropertyInfo = "AuthDomain::realm"-    attrGet _ = getAuthDomainRealm-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainRealm---- VVV Prop "remove-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]--setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" val--constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue)-constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" val--data AuthDomainRemovePathPropertyInfo-instance AttrInfo AuthDomainRemovePathPropertyInfo where-    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]-    type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainRemovePathPropertyInfo = ()-    type AttrLabel AuthDomainRemovePathPropertyInfo = "AuthDomain::remove-path"-    attrGet _ = undefined-    attrSet _ = setAuthDomainRemovePath-    attrConstruct _ = constructAuthDomainRemovePath--type instance AttributeList AuthDomain = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)]---- VVV Prop "auth-callback"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())-getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"--setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()-setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val--constructAuthDomainBasicAuthCallback :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val--data AuthDomainBasicAuthCallbackPropertyInfo-instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasicK-    type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "AuthDomainBasic::auth-callback"-    attrGet _ = getAuthDomainBasicAuthCallback-    attrSet _ = setAuthDomainBasicAuthCallback-    attrConstruct _ = constructAuthDomainBasicAuthCallback---- VVV Prop "auth-data"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())-getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"--setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()-setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val--constructAuthDomainBasicAuthData :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val--data AuthDomainBasicAuthDataPropertyInfo-instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasicK-    type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "AuthDomainBasic::auth-data"-    attrGet _ = getAuthDomainBasicAuthData-    attrSet _ = setAuthDomainBasicAuthData-    attrConstruct _ = constructAuthDomainBasicAuthData--type instance AttributeList AuthDomainBasic = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainBasicAuthCallbackPropertyInfo), '("auth-data", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)]---- VVV Prop "auth-callback"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())-getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"--setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()-setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val--constructAuthDomainDigestAuthCallback :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val--data AuthDomainDigestAuthCallbackPropertyInfo-instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigestK-    type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "AuthDomainDigest::auth-callback"-    attrGet _ = getAuthDomainDigestAuthCallback-    attrSet _ = setAuthDomainDigestAuthCallback-    attrConstruct _ = constructAuthDomainDigestAuthCallback---- VVV Prop "auth-data"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())-getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"--setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()-setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val--constructAuthDomainDigestAuthData :: (Ptr ()) -> IO ([Char], GValue)-constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val--data AuthDomainDigestAuthDataPropertyInfo-instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigestK-    type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "AuthDomainDigest::auth-data"-    attrGet _ = getAuthDomainDigestAuthData-    attrSet _ = setAuthDomainDigestAuthData-    attrConstruct _ = constructAuthDomainDigestAuthData--type instance AttributeList AuthDomainDigest = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainDigestAuthCallbackPropertyInfo), '("auth-data", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)]--type instance AttributeList AuthManager = '[ ]--type instance AttributeList AuthNTLM = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)]---- VVV Prop "cache-dir"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m T.Text-getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir"--constructCacheCacheDir :: T.Text -> IO ([Char], GValue)-constructCacheCacheDir val = constructObjectPropertyString "cache-dir" val--data CacheCacheDirPropertyInfo-instance AttrInfo CacheCacheDirPropertyInfo where-    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK-    type AttrGetType CacheCacheDirPropertyInfo = T.Text-    type AttrLabel CacheCacheDirPropertyInfo = "Cache::cache-dir"-    attrGet _ = getCacheCacheDir-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheDir---- VVV Prop "cache-type"-   -- Type: TInterface "Soup" "CacheType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType-getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type"--constructCacheCacheType :: CacheType -> IO ([Char], GValue)-constructCacheCacheType val = constructObjectPropertyEnum "cache-type" val--data CacheCacheTypePropertyInfo-instance AttrInfo CacheCacheTypePropertyInfo where-    type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) CacheType-    type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = CacheK-    type AttrGetType CacheCacheTypePropertyInfo = CacheType-    type AttrLabel CacheCacheTypePropertyInfo = "Cache::cache-type"-    attrGet _ = getCacheCacheType-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheType--type instance AttributeList Cache = '[ '("cache-dir", CacheCacheDirPropertyInfo), '("cache-type", CacheCacheTypePropertyInfo)]--type instance AttributeList ContentDecoder = '[ ]--type instance AttributeList ContentSniffer = '[ ]---- VVV Prop "accept-policy"-   -- Type: TInterface "Soup" "CookieJarAcceptPolicy"-   -- Flags: [PropertyReadable,PropertyWritable]--getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy-getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy"--setCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> CookieJarAcceptPolicy -> m ()-setCookieJarAcceptPolicy obj val = liftIO $ setObjectPropertyEnum obj "accept-policy" val--constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> IO ([Char], GValue)-constructCookieJarAcceptPolicy val = constructObjectPropertyEnum "accept-policy" val--data CookieJarAcceptPolicyPropertyInfo-instance AttrInfo CookieJarAcceptPolicyPropertyInfo where-    type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) CookieJarAcceptPolicy-    type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = CookieJarK-    type AttrGetType CookieJarAcceptPolicyPropertyInfo = CookieJarAcceptPolicy-    type AttrLabel CookieJarAcceptPolicyPropertyInfo = "CookieJar::accept-policy"-    attrGet _ = getCookieJarAcceptPolicy-    attrSet _ = setCookieJarAcceptPolicy-    attrConstruct _ = constructCookieJarAcceptPolicy---- VVV Prop "read-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool-getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"--constructCookieJarReadOnly :: Bool -> IO ([Char], GValue)-constructCookieJarReadOnly val = constructObjectPropertyBool "read-only" val--data CookieJarReadOnlyPropertyInfo-instance AttrInfo CookieJarReadOnlyPropertyInfo where-    type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = CookieJarK-    type AttrGetType CookieJarReadOnlyPropertyInfo = Bool-    type AttrLabel CookieJarReadOnlyPropertyInfo = "CookieJar::read-only"-    attrGet _ = getCookieJarReadOnly-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarReadOnly--type instance AttributeList CookieJar = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)]---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m T.Text-getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename"--constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarDBFilename val = constructObjectPropertyString "filename" val--data CookieJarDBFilenamePropertyInfo-instance AttrInfo CookieJarDBFilenamePropertyInfo where-    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK-    type AttrGetType CookieJarDBFilenamePropertyInfo = T.Text-    type AttrLabel CookieJarDBFilenamePropertyInfo = "CookieJarDB::filename"-    attrGet _ = getCookieJarDBFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarDBFilename--type instance AttributeList CookieJarDB = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)]---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m T.Text-getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename"--constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarTextFilename val = constructObjectPropertyString "filename" val--data CookieJarTextFilenamePropertyInfo-instance AttrInfo CookieJarTextFilenamePropertyInfo where-    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK-    type AttrGetType CookieJarTextFilenamePropertyInfo = T.Text-    type AttrLabel CookieJarTextFilenamePropertyInfo = "CookieJarText::filename"-    attrGet _ = getCookieJarTextFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarTextFilename--type instance AttributeList CookieJarText = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)]--type instance AttributeList Logger = '[ ]---- VVV Prop "first-party"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI-getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI--setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val--constructMessageFirstParty :: URI -> IO ([Char], GValue)-constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val--data MessageFirstPartyPropertyInfo-instance AttrInfo MessageFirstPartyPropertyInfo where-    type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI-    type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK-    type AttrGetType MessageFirstPartyPropertyInfo = URI-    type AttrLabel MessageFirstPartyPropertyInfo = "Message::first-party"-    attrGet _ = getMessageFirstParty-    attrSet _ = setMessageFirstParty-    attrConstruct _ = constructMessageFirstParty---- VVV Prop "flags"-   -- Type: TInterface "Soup" "MessageFlags"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags]-getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m ()-setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val--constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue)-constructMessageFlags val = constructObjectPropertyFlags "flags" val--data MessageFlagsPropertyInfo-instance AttrInfo MessageFlagsPropertyInfo where-    type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags]-    type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK-    type AttrGetType MessageFlagsPropertyInfo = [MessageFlags]-    type AttrLabel MessageFlagsPropertyInfo = "Message::flags"-    attrGet _ = getMessageFlags-    attrSet _ = setMessageFlags-    attrConstruct _ = constructMessageFlags---- VVV Prop "http-version"-   -- Type: TInterface "Soup" "HTTPVersion"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion-getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version"--setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m ()-setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val--constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue)-constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val--data MessageHttpVersionPropertyInfo-instance AttrInfo MessageHttpVersionPropertyInfo where-    type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion-    type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK-    type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion-    type AttrLabel MessageHttpVersionPropertyInfo = "Message::http-version"-    attrGet _ = getMessageHttpVersion-    attrSet _ = setMessageHttpVersion-    attrConstruct _ = constructMessageHttpVersion---- VVV Prop "method"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text-getMessageMethod obj = liftIO $ getObjectPropertyString obj "method"--setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val--constructMessageMethod :: T.Text -> IO ([Char], GValue)-constructMessageMethod val = constructObjectPropertyString "method" val--data MessageMethodPropertyInfo-instance AttrInfo MessageMethodPropertyInfo where-    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK-    type AttrGetType MessageMethodPropertyInfo = T.Text-    type AttrLabel MessageMethodPropertyInfo = "Message::method"-    attrGet _ = getMessageMethod-    attrSet _ = setMessageMethod-    attrConstruct _ = constructMessageMethod---- VVV Prop "priority"-   -- Type: TInterface "Soup" "MessagePriority"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority-getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority"--setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m ()-setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val--constructMessagePriority :: MessagePriority -> IO ([Char], GValue)-constructMessagePriority val = constructObjectPropertyEnum "priority" val--data MessagePriorityPropertyInfo-instance AttrInfo MessagePriorityPropertyInfo where-    type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority-    type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK-    type AttrGetType MessagePriorityPropertyInfo = MessagePriority-    type AttrLabel MessagePriorityPropertyInfo = "Message::priority"-    attrGet _ = getMessagePriority-    attrSet _ = setMessagePriority-    attrConstruct _ = constructMessagePriority---- VVV Prop "reason-phrase"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text-getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase"--setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val--constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue)-constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val--data MessageReasonPhrasePropertyInfo-instance AttrInfo MessageReasonPhrasePropertyInfo where-    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK-    type AttrGetType MessageReasonPhrasePropertyInfo = T.Text-    type AttrLabel MessageReasonPhrasePropertyInfo = "Message::reason-phrase"-    attrGet _ = getMessageReasonPhrase-    attrSet _ = setMessageReasonPhrase-    attrConstruct _ = constructMessageReasonPhrase---- VVV Prop "request-body"-   -- Type: TInterface "Soup" "MessageBody"-   -- Flags: [PropertyReadable]--getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody-getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody--data MessageRequestBodyPropertyInfo-instance AttrInfo MessageRequestBodyPropertyInfo where-    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyPropertyInfo = MessageBody-    type AttrLabel MessageRequestBodyPropertyInfo = "Message::request-body"-    attrGet _ = getMessageRequestBody-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "request-body-data"-   -- Type: TInterface "GLib" "Bytes"-   -- Flags: [PropertyReadable]--getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes-getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes--data MessageRequestBodyDataPropertyInfo-instance AttrInfo MessageRequestBodyDataPropertyInfo where-    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes-    type AttrLabel MessageRequestBodyDataPropertyInfo = "Message::request-body-data"-    attrGet _ = getMessageRequestBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "request-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]--getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders-getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders--data MessageRequestHeadersPropertyInfo-instance AttrInfo MessageRequestHeadersPropertyInfo where-    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK-    type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders-    type AttrLabel MessageRequestHeadersPropertyInfo = "Message::request-headers"-    attrGet _ = getMessageRequestHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "response-body"-   -- Type: TInterface "Soup" "MessageBody"-   -- Flags: [PropertyReadable]--getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody-getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody--data MessageResponseBodyPropertyInfo-instance AttrInfo MessageResponseBodyPropertyInfo where-    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyPropertyInfo = MessageBody-    type AttrLabel MessageResponseBodyPropertyInfo = "Message::response-body"-    attrGet _ = getMessageResponseBody-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "response-body-data"-   -- Type: TInterface "GLib" "Bytes"-   -- Flags: [PropertyReadable]--getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes-getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes--data MessageResponseBodyDataPropertyInfo-instance AttrInfo MessageResponseBodyDataPropertyInfo where-    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes-    type AttrLabel MessageResponseBodyDataPropertyInfo = "Message::response-body-data"-    attrGet _ = getMessageResponseBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "response-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]--getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders-getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders--data MessageResponseHeadersPropertyInfo-instance AttrInfo MessageResponseHeadersPropertyInfo where-    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK-    type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders-    type AttrLabel MessageResponseHeadersPropertyInfo = "Message::response-headers"-    attrGet _ = getMessageResponseHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "server-side"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool-getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side"--constructMessageServerSide :: Bool -> IO ([Char], GValue)-constructMessageServerSide val = constructObjectPropertyBool "server-side" val--data MessageServerSidePropertyInfo-instance AttrInfo MessageServerSidePropertyInfo where-    type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK-    type AttrGetType MessageServerSidePropertyInfo = Bool-    type AttrLabel MessageServerSidePropertyInfo = "Message::server-side"-    attrGet _ = getMessageServerSide-    attrSet _ = undefined-    attrConstruct _ = constructMessageServerSide---- VVV Prop "status-code"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32-getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"--setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m ()-setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val--constructMessageStatusCode :: Word32 -> IO ([Char], GValue)-constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val--data MessageStatusCodePropertyInfo-instance AttrInfo MessageStatusCodePropertyInfo where-    type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK-    type AttrGetType MessageStatusCodePropertyInfo = Word32-    type AttrLabel MessageStatusCodePropertyInfo = "Message::status-code"-    attrGet _ = getMessageStatusCode-    attrSet _ = setMessageStatusCode-    attrConstruct _ = constructMessageStatusCode---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate-getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m ()-setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val--constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)-constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val--data MessageTlsCertificatePropertyInfo-instance AttrInfo MessageTlsCertificatePropertyInfo where-    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK-    type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK-    type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate-    type AttrLabel MessageTlsCertificatePropertyInfo = "Message::tls-certificate"-    attrGet _ = getMessageTlsCertificate-    attrSet _ = setMessageTlsCertificate-    attrConstruct _ = constructMessageTlsCertificate---- VVV Prop "tls-errors"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags]-getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"--setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m ()-setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val--constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue)-constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val--data MessageTlsErrorsPropertyInfo-instance AttrInfo MessageTlsErrorsPropertyInfo where-    type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags]-    type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK-    type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]-    type AttrLabel MessageTlsErrorsPropertyInfo = "Message::tls-errors"-    attrGet _ = getMessageTlsErrors-    attrSet _ = setMessageTlsErrors-    attrConstruct _ = constructMessageTlsErrors---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]--getMessageUri :: (MonadIO m, MessageK o) => o -> m URI-getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI--setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val--constructMessageUri :: URI -> IO ([Char], GValue)-constructMessageUri val = constructObjectPropertyBoxed "uri" val--data MessageUriPropertyInfo-instance AttrInfo MessageUriPropertyInfo where-    type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK-    type AttrGetType MessageUriPropertyInfo = URI-    type AttrLabel MessageUriPropertyInfo = "Message::uri"-    attrGet _ = getMessageUri-    attrSet _ = setMessageUri-    attrConstruct _ = constructMessageUri--type instance AttributeList Message = '[ '("first-party", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("http-version", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reason-phrase", MessageReasonPhrasePropertyInfo), '("request-body", MessageRequestBodyPropertyInfo), '("request-body-data", MessageRequestBodyDataPropertyInfo), '("request-headers", MessageRequestHeadersPropertyInfo), '("response-body", MessageResponseBodyPropertyInfo), '("response-body-data", MessageResponseBodyDataPropertyInfo), '("response-headers", MessageResponseHeadersPropertyInfo), '("server-side", MessageServerSidePropertyInfo), '("status-code", MessageStatusCodePropertyInfo), '("tls-certificate", MessageTlsCertificatePropertyInfo), '("tls-errors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)]---- VVV Prop "message"-   -- Type: TInterface "Soup" "Message"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m Message-getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message--constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue)-constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" val--data MultipartInputStreamMessagePropertyInfo-instance AttrInfo MultipartInputStreamMessagePropertyInfo where-    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK-    type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK-    type AttrGetType MultipartInputStreamMessagePropertyInfo = Message-    type AttrLabel MultipartInputStreamMessagePropertyInfo = "MultipartInputStream::message"-    attrGet _ = getMultipartInputStreamMessage-    attrSet _ = undefined-    attrConstruct _ = constructMultipartInputStreamMessage--type instance AttributeList MultipartInputStream = '[ '("base-stream", GioA.FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", GioA.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)]--type instance AttributeList PasswordManager = '[ ]---- VVV Prop "gproxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyWritable]--setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m ()-setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" val--constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)-constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" val--data ProxyResolverDefaultGproxyResolverPropertyInfo-instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where-    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct]-    type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK-    type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK-    type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = ()-    type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "ProxyResolverDefault::gproxy-resolver"-    attrGet _ = undefined-    attrSet _ = setProxyResolverDefaultGproxyResolver-    attrConstruct _ = constructProxyResolverDefaultGproxyResolver--type instance AttributeList ProxyResolverDefault = '[ '("gproxy-resolver", ProxyResolverDefaultGproxyResolverPropertyInfo)]--type instance AttributeList ProxyURIResolver = '[ ]---- VVV Prop "session"-   -- Type: TInterface "Soup" "Session"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getRequestSession :: (MonadIO m, RequestK o) => o -> m Session-getRequestSession obj = liftIO $ getObjectPropertyObject obj "session" Session--constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue)-constructRequestSession val = constructObjectPropertyObject "session" val--data RequestSessionPropertyInfo-instance AttrInfo RequestSessionPropertyInfo where-    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK-    type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK-    type AttrGetType RequestSessionPropertyInfo = Session-    type AttrLabel RequestSessionPropertyInfo = "Request::session"-    attrGet _ = getRequestSession-    attrSet _ = undefined-    attrConstruct _ = constructRequestSession---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getRequestUri :: (MonadIO m, RequestK o) => o -> m URI-getRequestUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI--constructRequestUri :: URI -> IO ([Char], GValue)-constructRequestUri val = constructObjectPropertyBoxed "uri" val--data RequestUriPropertyInfo-instance AttrInfo RequestUriPropertyInfo where-    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK-    type AttrGetType RequestUriPropertyInfo = URI-    type AttrLabel RequestUriPropertyInfo = "Request::uri"-    attrGet _ = getRequestUri-    attrSet _ = undefined-    attrConstruct _ = constructRequestUri--type instance AttributeList Request = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)]--type instance AttributeList RequestData = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)]--type instance AttributeList RequestFile = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)]--type instance AttributeList RequestHTTP = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)]--type instance AttributeList Requester = '[ ]---- VVV Prop "async-context"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerAsyncContext :: (MonadIO m, ServerK o) => o -> m (Ptr ())-getServerAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructServerAsyncContext :: (Ptr ()) -> IO ([Char], GValue)-constructServerAsyncContext val = constructObjectPropertyPtr "async-context" val--data ServerAsyncContextPropertyInfo-instance AttrInfo ServerAsyncContextPropertyInfo where-    type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = ServerK-    type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel ServerAsyncContextPropertyInfo = "Server::async-context"-    attrGet _ = getServerAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructServerAsyncContext---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]--getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m [T.Text]-getServerHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"--setServerHttpAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()-setServerHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val--constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue)-constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" val--data ServerHttpAliasesPropertyInfo-instance AttrInfo ServerHttpAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK-    type AttrGetType ServerHttpAliasesPropertyInfo = [T.Text]-    type AttrLabel ServerHttpAliasesPropertyInfo = "Server::http-aliases"-    attrGet _ = getServerHttpAliases-    attrSet _ = setServerHttpAliases-    attrConstruct _ = constructServerHttpAliases---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]--getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m [T.Text]-getServerHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"--setServerHttpsAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()-setServerHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val--constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue)-constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val--data ServerHttpsAliasesPropertyInfo-instance AttrInfo ServerHttpsAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK-    type AttrGetType ServerHttpsAliasesPropertyInfo = [T.Text]-    type AttrLabel ServerHttpsAliasesPropertyInfo = "Server::https-aliases"-    attrGet _ = getServerHttpsAliases-    attrSet _ = setServerHttpsAliases-    attrConstruct _ = constructServerHttpsAliases---- VVV Prop "interface"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerInterface :: (MonadIO m, ServerK o) => o -> m Address-getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address--constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue)-constructServerInterface val = constructObjectPropertyObject "interface" val--data ServerInterfacePropertyInfo-instance AttrInfo ServerInterfacePropertyInfo where-    type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK-    type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK-    type AttrGetType ServerInterfacePropertyInfo = Address-    type AttrLabel ServerInterfacePropertyInfo = "Server::interface"-    attrGet _ = getServerInterface-    attrSet _ = undefined-    attrConstruct _ = constructServerInterface---- VVV Prop "port"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerPort :: (MonadIO m, ServerK o) => o -> m Word32-getServerPort obj = liftIO $ getObjectPropertyCUInt obj "port"--constructServerPort :: Word32 -> IO ([Char], GValue)-constructServerPort val = constructObjectPropertyCUInt "port" val--data ServerPortPropertyInfo-instance AttrInfo ServerPortPropertyInfo where-    type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ServerPortPropertyInfo = ServerK-    type AttrGetType ServerPortPropertyInfo = Word32-    type AttrLabel ServerPortPropertyInfo = "Server::port"-    attrGet _ = getServerPort-    attrSet _ = undefined-    attrConstruct _ = constructServerPort---- VVV Prop "raw-paths"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerRawPaths :: (MonadIO m, ServerK o) => o -> m Bool-getServerRawPaths obj = liftIO $ getObjectPropertyBool obj "raw-paths"--constructServerRawPaths :: Bool -> IO ([Char], GValue)-constructServerRawPaths val = constructObjectPropertyBool "raw-paths" val--data ServerRawPathsPropertyInfo-instance AttrInfo ServerRawPathsPropertyInfo where-    type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = ServerK-    type AttrGetType ServerRawPathsPropertyInfo = Bool-    type AttrLabel ServerRawPathsPropertyInfo = "Server::raw-paths"-    attrGet _ = getServerRawPaths-    attrSet _ = undefined-    attrConstruct _ = constructServerRawPaths---- VVV Prop "server-header"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]--getServerServerHeader :: (MonadIO m, ServerK o) => o -> m T.Text-getServerServerHeader obj = liftIO $ getObjectPropertyString obj "server-header"--setServerServerHeader :: (MonadIO m, ServerK o) => o -> T.Text -> m ()-setServerServerHeader obj val = liftIO $ setObjectPropertyString obj "server-header" val--constructServerServerHeader :: T.Text -> IO ([Char], GValue)-constructServerServerHeader val = constructObjectPropertyString "server-header" val--data ServerServerHeaderPropertyInfo-instance AttrInfo ServerServerHeaderPropertyInfo where-    type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK-    type AttrGetType ServerServerHeaderPropertyInfo = T.Text-    type AttrLabel ServerServerHeaderPropertyInfo = "Server::server-header"-    attrGet _ = getServerServerHeader-    attrSet _ = setServerServerHeader-    attrConstruct _ = constructServerServerHeader---- VVV Prop "ssl-cert-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m T.Text-getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file"--constructServerSslCertFile :: T.Text -> IO ([Char], GValue)-constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" val--data ServerSslCertFilePropertyInfo-instance AttrInfo ServerSslCertFilePropertyInfo where-    type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK-    type AttrGetType ServerSslCertFilePropertyInfo = T.Text-    type AttrLabel ServerSslCertFilePropertyInfo = "Server::ssl-cert-file"-    attrGet _ = getServerSslCertFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslCertFile---- VVV Prop "ssl-key-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m T.Text-getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file"--constructServerSslKeyFile :: T.Text -> IO ([Char], GValue)-constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" val--data ServerSslKeyFilePropertyInfo-instance AttrInfo ServerSslKeyFilePropertyInfo where-    type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK-    type AttrGetType ServerSslKeyFilePropertyInfo = T.Text-    type AttrLabel ServerSslKeyFilePropertyInfo = "Server::ssl-key-file"-    attrGet _ = getServerSslKeyFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslKeyFile---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m Gio.TlsCertificate-getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)-constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" val--data ServerTlsCertificatePropertyInfo-instance AttrInfo ServerTlsCertificatePropertyInfo where-    type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK-    type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK-    type AttrGetType ServerTlsCertificatePropertyInfo = Gio.TlsCertificate-    type AttrLabel ServerTlsCertificatePropertyInfo = "Server::tls-certificate"-    attrGet _ = getServerTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = constructServerTlsCertificate--type instance AttributeList Server = '[ '("async-context", ServerAsyncContextPropertyInfo), '("http-aliases", ServerHttpAliasesPropertyInfo), '("https-aliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("raw-paths", ServerRawPathsPropertyInfo), '("server-header", ServerServerHeaderPropertyInfo), '("ssl-cert-file", ServerSslCertFilePropertyInfo), '("ssl-key-file", ServerSslKeyFilePropertyInfo), '("tls-certificate", ServerTlsCertificatePropertyInfo)]---- VVV Prop "accept-language"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m T.Text-getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language"--setSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" val--constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue)-constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" val--data SessionAcceptLanguagePropertyInfo-instance AttrInfo SessionAcceptLanguagePropertyInfo where-    type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = SessionK-    type AttrGetType SessionAcceptLanguagePropertyInfo = T.Text-    type AttrLabel SessionAcceptLanguagePropertyInfo = "Session::accept-language"-    attrGet _ = getSessionAcceptLanguage-    attrSet _ = setSessionAcceptLanguage-    attrConstruct _ = constructSessionAcceptLanguage---- VVV Prop "accept-language-auto"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> m Bool-getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto"--setSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val--constructSessionAcceptLanguageAuto :: Bool -> IO ([Char], GValue)-constructSessionAcceptLanguageAuto val = constructObjectPropertyBool "accept-language-auto" val--data SessionAcceptLanguageAutoPropertyInfo-instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where-    type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = SessionK-    type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool-    type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "Session::accept-language-auto"-    attrGet _ = getSessionAcceptLanguageAuto-    attrSet _ = setSessionAcceptLanguageAuto-    attrConstruct _ = constructSessionAcceptLanguageAuto---- VVV Prop "async-context"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSessionAsyncContext :: (MonadIO m, SessionK o) => o -> m (Ptr ())-getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructSessionAsyncContext :: (Ptr ()) -> IO ([Char], GValue)-constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val--data SessionAsyncContextPropertyInfo-instance AttrInfo SessionAsyncContextPropertyInfo where-    type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = SessionK-    type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SessionAsyncContextPropertyInfo = "Session::async-context"-    attrGet _ = getSessionAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSessionAsyncContext---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m [T.Text]-getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"--setSessionHttpAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()-setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val--constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue)-constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" val--data SessionHttpAliasesPropertyInfo-instance AttrInfo SessionHttpAliasesPropertyInfo where-    type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = SessionK-    type AttrGetType SessionHttpAliasesPropertyInfo = [T.Text]-    type AttrLabel SessionHttpAliasesPropertyInfo = "Session::http-aliases"-    attrGet _ = getSessionHttpAliases-    attrSet _ = setSessionHttpAliases-    attrConstruct _ = constructSessionHttpAliases---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m [T.Text]-getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"--setSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()-setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val--constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue)-constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val--data SessionHttpsAliasesPropertyInfo-instance AttrInfo SessionHttpsAliasesPropertyInfo where-    type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = SessionK-    type AttrGetType SessionHttpsAliasesPropertyInfo = [T.Text]-    type AttrLabel SessionHttpsAliasesPropertyInfo = "Session::https-aliases"-    attrGet _ = getSessionHttpsAliases-    attrSet _ = setSessionHttpsAliases-    attrConstruct _ = constructSessionHttpsAliases---- VVV Prop "idle-timeout"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32-getSessionIdleTimeout obj = liftIO $ getObjectPropertyCUInt obj "idle-timeout"--setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()-setSessionIdleTimeout obj val = liftIO $ setObjectPropertyCUInt obj "idle-timeout" val--constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue)-constructSessionIdleTimeout val = constructObjectPropertyCUInt "idle-timeout" val--data SessionIdleTimeoutPropertyInfo-instance AttrInfo SessionIdleTimeoutPropertyInfo where-    type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = SessionK-    type AttrGetType SessionIdleTimeoutPropertyInfo = Word32-    type AttrLabel SessionIdleTimeoutPropertyInfo = "Session::idle-timeout"-    attrGet _ = getSessionIdleTimeout-    attrSet _ = setSessionIdleTimeout-    attrConstruct _ = constructSessionIdleTimeout---- VVV Prop "local-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m Address-getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address--constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSessionLocalAddress val = constructObjectPropertyObject "local-address" val--data SessionLocalAddressPropertyInfo-instance AttrInfo SessionLocalAddressPropertyInfo where-    type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK-    type AttrGetType SessionLocalAddressPropertyInfo = Address-    type AttrLabel SessionLocalAddressPropertyInfo = "Session::local-address"-    attrGet _ = getSessionLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSessionLocalAddress---- VVV Prop "max-conns"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32-getSessionMaxConns obj = liftIO $ getObjectPropertyCInt obj "max-conns"--setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m ()-setSessionMaxConns obj val = liftIO $ setObjectPropertyCInt obj "max-conns" val--constructSessionMaxConns :: Int32 -> IO ([Char], GValue)-constructSessionMaxConns val = constructObjectPropertyCInt "max-conns" val--data SessionMaxConnsPropertyInfo-instance AttrInfo SessionMaxConnsPropertyInfo where-    type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = SessionK-    type AttrGetType SessionMaxConnsPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPropertyInfo = "Session::max-conns"-    attrGet _ = getSessionMaxConns-    attrSet _ = setSessionMaxConns-    attrConstruct _ = constructSessionMaxConns---- VVV Prop "max-conns-per-host"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32-getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyCInt obj "max-conns-per-host"--setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m ()-setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyCInt obj "max-conns-per-host" val--constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue)-constructSessionMaxConnsPerHost val = constructObjectPropertyCInt "max-conns-per-host" val--data SessionMaxConnsPerHostPropertyInfo-instance AttrInfo SessionMaxConnsPerHostPropertyInfo where-    type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = SessionK-    type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPerHostPropertyInfo = "Session::max-conns-per-host"-    attrGet _ = getSessionMaxConnsPerHost-    attrSet _ = setSessionMaxConnsPerHost-    attrConstruct _ = constructSessionMaxConnsPerHost---- VVV Prop "proxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m Gio.ProxyResolver-getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver--setSessionProxyResolver :: (MonadIO m, SessionK o, Gio.ProxyResolverK a) => o -> a -> m ()-setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" val--constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)-constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" val--data SessionProxyResolverPropertyInfo-instance AttrInfo SessionProxyResolverPropertyInfo where-    type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK-    type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK-    type AttrGetType SessionProxyResolverPropertyInfo = Gio.ProxyResolver-    type AttrLabel SessionProxyResolverPropertyInfo = "Session::proxy-resolver"-    attrGet _ = getSessionProxyResolver-    attrSet _ = setSessionProxyResolver-    attrConstruct _ = constructSessionProxyResolver---- VVV Prop "proxy-uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m URI-getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" URI--setSessionProxyUri :: (MonadIO m, SessionK o) => o -> URI -> m ()-setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" val--constructSessionProxyUri :: URI -> IO ([Char], GValue)-constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" val--data SessionProxyUriPropertyInfo-instance AttrInfo SessionProxyUriPropertyInfo where-    type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK-    type AttrGetType SessionProxyUriPropertyInfo = URI-    type AttrLabel SessionProxyUriPropertyInfo = "Session::proxy-uri"-    attrGet _ = getSessionProxyUri-    attrSet _ = setSessionProxyUri-    attrConstruct _ = constructSessionProxyUri---- VVV Prop "ssl-ca-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m T.Text-getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file"--setSessionSslCaFile :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" val--constructSessionSslCaFile :: T.Text -> IO ([Char], GValue)-constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" val--data SessionSslCaFilePropertyInfo-instance AttrInfo SessionSslCaFilePropertyInfo where-    type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = SessionK-    type AttrGetType SessionSslCaFilePropertyInfo = T.Text-    type AttrLabel SessionSslCaFilePropertyInfo = "Session::ssl-ca-file"-    attrGet _ = getSessionSslCaFile-    attrSet _ = setSessionSslCaFile-    attrConstruct _ = constructSessionSslCaFile---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionSslStrict :: (MonadIO m, SessionK o) => o -> m Bool-getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"--setSessionSslStrict :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val--constructSessionSslStrict :: Bool -> IO ([Char], GValue)-constructSessionSslStrict val = constructObjectPropertyBool "ssl-strict" val--data SessionSslStrictPropertyInfo-instance AttrInfo SessionSslStrictPropertyInfo where-    type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = SessionK-    type AttrGetType SessionSslStrictPropertyInfo = Bool-    type AttrLabel SessionSslStrictPropertyInfo = "Session::ssl-strict"-    attrGet _ = getSessionSslStrict-    attrSet _ = setSessionSslStrict-    attrConstruct _ = constructSessionSslStrict---- VVV Prop "ssl-use-system-ca-file"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> m Bool-getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file"--setSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val--constructSessionSslUseSystemCaFile :: Bool -> IO ([Char], GValue)-constructSessionSslUseSystemCaFile val = constructObjectPropertyBool "ssl-use-system-ca-file" val--data SessionSslUseSystemCaFilePropertyInfo-instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where-    type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = SessionK-    type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool-    type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "Session::ssl-use-system-ca-file"-    attrGet _ = getSessionSslUseSystemCaFile-    attrSet _ = setSessionSslUseSystemCaFile-    attrConstruct _ = constructSessionSslUseSystemCaFile---- VVV Prop "timeout"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32-getSessionTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout"--setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()-setSessionTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val--constructSessionTimeout :: Word32 -> IO ([Char], GValue)-constructSessionTimeout val = constructObjectPropertyCUInt "timeout" val--data SessionTimeoutPropertyInfo-instance AttrInfo SessionTimeoutPropertyInfo where-    type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = SessionK-    type AttrGetType SessionTimeoutPropertyInfo = Word32-    type AttrLabel SessionTimeoutPropertyInfo = "Session::timeout"-    attrGet _ = getSessionTimeout-    attrSet _ = setSessionTimeout-    attrConstruct _ = constructSessionTimeout---- VVV Prop "tls-database"-   -- Type: TInterface "Gio" "TlsDatabase"-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m Gio.TlsDatabase-getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase--setSessionTlsDatabase :: (MonadIO m, SessionK o, Gio.TlsDatabaseK a) => o -> a -> m ()-setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" val--constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue)-constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" val--data SessionTlsDatabasePropertyInfo-instance AttrInfo SessionTlsDatabasePropertyInfo where-    type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK-    type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK-    type AttrGetType SessionTlsDatabasePropertyInfo = Gio.TlsDatabase-    type AttrLabel SessionTlsDatabasePropertyInfo = "Session::tls-database"-    attrGet _ = getSessionTlsDatabase-    attrSet _ = setSessionTlsDatabase-    attrConstruct _ = constructSessionTlsDatabase---- VVV Prop "tls-interaction"-   -- Type: TInterface "Gio" "TlsInteraction"-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m Gio.TlsInteraction-getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction--setSessionTlsInteraction :: (MonadIO m, SessionK o, Gio.TlsInteractionK a) => o -> a -> m ()-setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" val--constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue)-constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" val--data SessionTlsInteractionPropertyInfo-instance AttrInfo SessionTlsInteractionPropertyInfo where-    type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK-    type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK-    type AttrGetType SessionTlsInteractionPropertyInfo = Gio.TlsInteraction-    type AttrLabel SessionTlsInteractionPropertyInfo = "Session::tls-interaction"-    attrGet _ = getSessionTlsInteraction-    attrSet _ = setSessionTlsInteraction-    attrConstruct _ = constructSessionTlsInteraction---- VVV Prop "use-ntlm"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionUseNtlm :: (MonadIO m, SessionK o) => o -> m Bool-getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm"--setSessionUseNtlm :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val--constructSessionUseNtlm :: Bool -> IO ([Char], GValue)-constructSessionUseNtlm val = constructObjectPropertyBool "use-ntlm" val--data SessionUseNtlmPropertyInfo-instance AttrInfo SessionUseNtlmPropertyInfo where-    type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = SessionK-    type AttrGetType SessionUseNtlmPropertyInfo = Bool-    type AttrLabel SessionUseNtlmPropertyInfo = "Session::use-ntlm"-    attrGet _ = getSessionUseNtlm-    attrSet _ = setSessionUseNtlm-    attrConstruct _ = constructSessionUseNtlm---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> m Bool-getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"--setSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val--constructSessionUseThreadContext :: Bool -> IO ([Char], GValue)-constructSessionUseThreadContext val = constructObjectPropertyBool "use-thread-context" val--data SessionUseThreadContextPropertyInfo-instance AttrInfo SessionUseThreadContextPropertyInfo where-    type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = SessionK-    type AttrGetType SessionUseThreadContextPropertyInfo = Bool-    type AttrLabel SessionUseThreadContextPropertyInfo = "Session::use-thread-context"-    attrGet _ = getSessionUseThreadContext-    attrSet _ = setSessionUseThreadContext-    attrConstruct _ = constructSessionUseThreadContext---- VVV Prop "user-agent"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]--getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m T.Text-getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"--setSessionUserAgent :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val--constructSessionUserAgent :: T.Text -> IO ([Char], GValue)-constructSessionUserAgent val = constructObjectPropertyString "user-agent" val--data SessionUserAgentPropertyInfo-instance AttrInfo SessionUserAgentPropertyInfo where-    type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = SessionK-    type AttrGetType SessionUserAgentPropertyInfo = T.Text-    type AttrLabel SessionUserAgentPropertyInfo = "Session::user-agent"-    attrGet _ = getSessionUserAgent-    attrSet _ = setSessionUserAgent-    attrConstruct _ = constructSessionUserAgent--type instance AttributeList Session = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)]--type instance AttributeList SessionAsync = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)]--type instance AttributeList SessionFeature = '[ ]--type instance AttributeList SessionSync = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)]---- VVV Prop "async-context"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketAsyncContext :: (MonadIO m, SocketK o) => o -> m (Ptr ())-getSocketAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructSocketAsyncContext :: (Ptr ()) -> IO ([Char], GValue)-constructSocketAsyncContext val = constructObjectPropertyPtr "async-context" val--data SocketAsyncContextPropertyInfo-instance AttrInfo SocketAsyncContextPropertyInfo where-    type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = SocketK-    type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SocketAsyncContextPropertyInfo = "Socket::async-context"-    attrGet _ = getSocketAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketAsyncContext---- VVV Prop "fd"-   -- Type: TBasicType TInt32-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32-getSocketFd obj = liftIO $ getObjectPropertyCInt obj "fd"--constructSocketFd :: Int32 -> IO ([Char], GValue)-constructSocketFd val = constructObjectPropertyCInt "fd" val--data SocketFdPropertyInfo-instance AttrInfo SocketFdPropertyInfo where-    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK-    type AttrGetType SocketFdPropertyInfo = Int32-    type AttrLabel SocketFdPropertyInfo = "Socket::fd"-    attrGet _ = getSocketFd-    attrSet _ = undefined-    attrConstruct _ = constructSocketFd---- VVV Prop "gsocket"-   -- Type: TInterface "Gio" "Socket"-   -- Flags: [PropertyWritable,PropertyConstructOnly]--constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue)-constructSocketGsocket val = constructObjectPropertyObject "gsocket" val--data SocketGsocketPropertyInfo-instance AttrInfo SocketGsocketPropertyInfo where-    type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK-    type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK-    type AttrGetType SocketGsocketPropertyInfo = ()-    type AttrLabel SocketGsocketPropertyInfo = "Socket::gsocket"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketGsocket---- VVV Prop "iostream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyWritable,PropertyConstructOnly]--constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)-constructSocketIostream val = constructObjectPropertyObject "iostream" val--data SocketIostreamPropertyInfo-instance AttrInfo SocketIostreamPropertyInfo where-    type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK-    type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK-    type AttrGetType SocketIostreamPropertyInfo = ()-    type AttrLabel SocketIostreamPropertyInfo = "Socket::iostream"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketIostream---- VVV Prop "ipv6-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSocketIpv6Only :: (MonadIO m, SocketK o) => o -> m Bool-getSocketIpv6Only obj = liftIO $ getObjectPropertyBool obj "ipv6-only"--setSocketIpv6Only :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketIpv6Only obj val = liftIO $ setObjectPropertyBool obj "ipv6-only" val--constructSocketIpv6Only :: Bool -> IO ([Char], GValue)-constructSocketIpv6Only val = constructObjectPropertyBool "ipv6-only" val--data SocketIpv6OnlyPropertyInfo-instance AttrInfo SocketIpv6OnlyPropertyInfo where-    type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = SocketK-    type AttrGetType SocketIpv6OnlyPropertyInfo = Bool-    type AttrLabel SocketIpv6OnlyPropertyInfo = "Socket::ipv6-only"-    attrGet _ = getSocketIpv6Only-    attrSet _ = setSocketIpv6Only-    attrConstruct _ = constructSocketIpv6Only---- VVV Prop "is-server"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getSocketIsServer :: (MonadIO m, SocketK o) => o -> m Bool-getSocketIsServer obj = liftIO $ getObjectPropertyBool obj "is-server"--data SocketIsServerPropertyInfo-instance AttrInfo SocketIsServerPropertyInfo where-    type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketIsServerPropertyInfo = SocketK-    type AttrGetType SocketIsServerPropertyInfo = Bool-    type AttrLabel SocketIsServerPropertyInfo = "Socket::is-server"-    attrGet _ = getSocketIsServer-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "local-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address-getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address--constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSocketLocalAddress val = constructObjectPropertyObject "local-address" val--data SocketLocalAddressPropertyInfo-instance AttrInfo SocketLocalAddressPropertyInfo where-    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK-    type AttrGetType SocketLocalAddressPropertyInfo = Address-    type AttrLabel SocketLocalAddressPropertyInfo = "Socket::local-address"-    attrGet _ = getSocketLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketLocalAddress---- VVV Prop "non-blocking"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]--getSocketNonBlocking :: (MonadIO m, SocketK o) => o -> m Bool-getSocketNonBlocking obj = liftIO $ getObjectPropertyBool obj "non-blocking"--setSocketNonBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketNonBlocking obj val = liftIO $ setObjectPropertyBool obj "non-blocking" val--constructSocketNonBlocking :: Bool -> IO ([Char], GValue)-constructSocketNonBlocking val = constructObjectPropertyBool "non-blocking" val--data SocketNonBlockingPropertyInfo-instance AttrInfo SocketNonBlockingPropertyInfo where-    type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = SocketK-    type AttrGetType SocketNonBlockingPropertyInfo = Bool-    type AttrLabel SocketNonBlockingPropertyInfo = "Socket::non-blocking"-    attrGet _ = getSocketNonBlocking-    attrSet _ = setSocketNonBlocking-    attrConstruct _ = constructSocketNonBlocking---- VVV Prop "remote-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address-getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" Address--constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" val--data SocketRemoteAddressPropertyInfo-instance AttrInfo SocketRemoteAddressPropertyInfo where-    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK-    type AttrGetType SocketRemoteAddressPropertyInfo = Address-    type AttrLabel SocketRemoteAddressPropertyInfo = "Socket::remote-address"-    attrGet _ = getSocketRemoteAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketRemoteAddress---- VVV Prop "ssl-creds"-   -- Type: TBasicType TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--getSocketSslCreds :: (MonadIO m, SocketK o) => o -> m (Ptr ())-getSocketSslCreds obj = liftIO $ getObjectPropertyPtr obj "ssl-creds"--setSocketSslCreds :: (MonadIO m, SocketK o) => o -> (Ptr ()) -> m ()-setSocketSslCreds obj val = liftIO $ setObjectPropertyPtr obj "ssl-creds" val--constructSocketSslCreds :: (Ptr ()) -> IO ([Char], GValue)-constructSocketSslCreds val = constructObjectPropertyPtr "ssl-creds" val--data SocketSslCredsPropertyInfo-instance AttrInfo SocketSslCredsPropertyInfo where-    type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = SocketK-    type AttrGetType SocketSslCredsPropertyInfo = (Ptr ())-    type AttrLabel SocketSslCredsPropertyInfo = "Socket::ssl-creds"-    attrGet _ = getSocketSslCreds-    attrSet _ = setSocketSslCreds-    attrConstruct _ = constructSocketSslCreds---- VVV Prop "ssl-fallback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketSslFallback :: (MonadIO m, SocketK o) => o -> m Bool-getSocketSslFallback obj = liftIO $ getObjectPropertyBool obj "ssl-fallback"--constructSocketSslFallback :: Bool -> IO ([Char], GValue)-constructSocketSslFallback val = constructObjectPropertyBool "ssl-fallback" val--data SocketSslFallbackPropertyInfo-instance AttrInfo SocketSslFallbackPropertyInfo where-    type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = SocketK-    type AttrGetType SocketSslFallbackPropertyInfo = Bool-    type AttrLabel SocketSslFallbackPropertyInfo = "Socket::ssl-fallback"-    attrGet _ = getSocketSslFallback-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslFallback---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketSslStrict :: (MonadIO m, SocketK o) => o -> m Bool-getSocketSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"--constructSocketSslStrict :: Bool -> IO ([Char], GValue)-constructSocketSslStrict val = constructObjectPropertyBool "ssl-strict" val--data SocketSslStrictPropertyInfo-instance AttrInfo SocketSslStrictPropertyInfo where-    type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = SocketK-    type AttrGetType SocketSslStrictPropertyInfo = Bool-    type AttrLabel SocketSslStrictPropertyInfo = "Socket::ssl-strict"-    attrGet _ = getSocketSslStrict-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslStrict---- VVV Prop "timeout"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable,PropertyWritable]--getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32-getSocketTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout"--setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m ()-setSocketTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val--constructSocketTimeout :: Word32 -> IO ([Char], GValue)-constructSocketTimeout val = constructObjectPropertyCUInt "timeout" val--data SocketTimeoutPropertyInfo-instance AttrInfo SocketTimeoutPropertyInfo where-    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK-    type AttrGetType SocketTimeoutPropertyInfo = Word32-    type AttrLabel SocketTimeoutPropertyInfo = "Socket::timeout"-    attrGet _ = getSocketTimeout-    attrSet _ = setSocketTimeout-    attrConstruct _ = constructSocketTimeout---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable]--getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m Gio.TlsCertificate-getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--data SocketTlsCertificatePropertyInfo-instance AttrInfo SocketTlsCertificatePropertyInfo where-    type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK-    type AttrGetType SocketTlsCertificatePropertyInfo = Gio.TlsCertificate-    type AttrLabel SocketTlsCertificatePropertyInfo = "Socket::tls-certificate"-    attrGet _ = getSocketTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "tls-errors"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable]--getSocketTlsErrors :: (MonadIO m, SocketK o) => o -> m [Gio.TlsCertificateFlags]-getSocketTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"--data SocketTlsErrorsPropertyInfo-instance AttrInfo SocketTlsErrorsPropertyInfo where-    type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = SocketK-    type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]-    type AttrLabel SocketTlsErrorsPropertyInfo = "Socket::tls-errors"-    attrGet _ = getSocketTlsErrors-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "trusted-certificate"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]--getSocketTrustedCertificate :: (MonadIO m, SocketK o) => o -> m Bool-getSocketTrustedCertificate obj = liftIO $ getObjectPropertyBool obj "trusted-certificate"--data SocketTrustedCertificatePropertyInfo-instance AttrInfo SocketTrustedCertificatePropertyInfo where-    type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = SocketK-    type AttrGetType SocketTrustedCertificatePropertyInfo = Bool-    type AttrLabel SocketTrustedCertificatePropertyInfo = "Socket::trusted-certificate"-    attrGet _ = getSocketTrustedCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getSocketUseThreadContext :: (MonadIO m, SocketK o) => o -> m Bool-getSocketUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"--constructSocketUseThreadContext :: Bool -> IO ([Char], GValue)-constructSocketUseThreadContext val = constructObjectPropertyBool "use-thread-context" val--data SocketUseThreadContextPropertyInfo-instance AttrInfo SocketUseThreadContextPropertyInfo where-    type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = SocketK-    type AttrGetType SocketUseThreadContextPropertyInfo = Bool-    type AttrLabel SocketUseThreadContextPropertyInfo = "Socket::use-thread-context"-    attrGet _ = getSocketUseThreadContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketUseThreadContext--type instance AttributeList Socket = '[ '("async-context", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6-only", SocketIpv6OnlyPropertyInfo), '("is-server", SocketIsServerPropertyInfo), '("local-address", SocketLocalAddressPropertyInfo), '("non-blocking", SocketNonBlockingPropertyInfo), '("remote-address", SocketRemoteAddressPropertyInfo), '("ssl-creds", SocketSslCredsPropertyInfo), '("ssl-fallback", SocketSslFallbackPropertyInfo), '("ssl-strict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tls-certificate", SocketTlsCertificatePropertyInfo), '("tls-errors", SocketTlsErrorsPropertyInfo), '("trusted-certificate", SocketTrustedCertificatePropertyInfo), '("use-thread-context", SocketUseThreadContextPropertyInfo)]---- VVV Prop "connection-type"-   -- Type: TInterface "Soup" "WebsocketConnectionType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebsocketConnectionConnectionType :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketConnectionType-getWebsocketConnectionConnectionType obj = liftIO $ getObjectPropertyEnum obj "connection-type"--constructWebsocketConnectionConnectionType :: WebsocketConnectionType -> IO ([Char], GValue)-constructWebsocketConnectionConnectionType val = constructObjectPropertyEnum "connection-type" val--data WebsocketConnectionConnectionTypePropertyInfo-instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where-    type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) WebsocketConnectionType-    type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionType-    type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "WebsocketConnection::connection-type"-    attrGet _ = getWebsocketConnectionConnectionType-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionConnectionType---- VVV Prop "io-stream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream-getWebsocketConnectionIoStream obj = liftIO $ getObjectPropertyObject obj "io-stream" Gio.IOStream--constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)-constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" val--data WebsocketConnectionIoStreamPropertyInfo-instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where-    type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK-    type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream-    type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "WebsocketConnection::io-stream"-    attrGet _ = getWebsocketConnectionIoStream-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionIoStream---- VVV Prop "origin"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text-getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin"--constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue)-constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" val--data WebsocketConnectionOriginPropertyInfo-instance AttrInfo WebsocketConnectionOriginPropertyInfo where-    type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionOriginPropertyInfo = T.Text-    type AttrLabel WebsocketConnectionOriginPropertyInfo = "WebsocketConnection::origin"-    attrGet _ = getWebsocketConnectionOrigin-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionOrigin---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text-getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol"--constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue)-constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" val--data WebsocketConnectionProtocolPropertyInfo-instance AttrInfo WebsocketConnectionProtocolPropertyInfo where-    type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionProtocolPropertyInfo = T.Text-    type AttrLabel WebsocketConnectionProtocolPropertyInfo = "WebsocketConnection::protocol"-    attrGet _ = getWebsocketConnectionProtocol-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionProtocol---- VVV Prop "state"-   -- Type: TInterface "Soup" "WebsocketState"-   -- Flags: [PropertyReadable]--getWebsocketConnectionState :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketState-getWebsocketConnectionState obj = liftIO $ getObjectPropertyEnum obj "state"--data WebsocketConnectionStatePropertyInfo-instance AttrInfo WebsocketConnectionStatePropertyInfo where-    type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionStatePropertyInfo = WebsocketState-    type AttrLabel WebsocketConnectionStatePropertyInfo = "WebsocketConnection::state"-    attrGet _ = getWebsocketConnectionState-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI-getWebsocketConnectionUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI--constructWebsocketConnectionUri :: URI -> IO ([Char], GValue)-constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" val--data WebsocketConnectionUriPropertyInfo-instance AttrInfo WebsocketConnectionUriPropertyInfo where-    type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionUriPropertyInfo = URI-    type AttrLabel WebsocketConnectionUriPropertyInfo = "WebsocketConnection::uri"-    attrGet _ = getWebsocketConnectionUri-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionUri--type instance AttributeList WebsocketConnection = '[ '("connection-type", WebsocketConnectionConnectionTypePropertyInfo), '("io-stream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)]-
− GI/SoupSignals.hs 
@@ -1,258 +0,0 @@--- Generated code.--{-# OPTIONS_GHC -fno-warn-orphans #-}--{-# LANGUAGE DataKinds,    FlexibleInstances,-             TypeFamilies, MultiParamTypeClasses,-               TypeOperators #-}--module GI.SoupSignals where--import Data.GI.Base.Properties (GObjectNotifySignalInfo)-import Data.GI.Base.Signals-import Data.GI.Base.Overloading--import qualified GI.GObjectSignals as GObject-import GI.Soup--type instance SignalList Address = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Auth = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthBasic = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthDigest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthDomain = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthDomainBasic = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthDomainDigest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data AuthManagerAuthenticateSignalInfo-instance SignalInfo AuthManagerAuthenticateSignalInfo where-    type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback-    connectSignal _ = connectAuthManagerAuthenticate--type instance SignalList AuthManager = '[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList AuthNTLM = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Cache = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ContentDecoder = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ContentSniffer = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data CookieJarChangedSignalInfo-instance SignalInfo CookieJarChangedSignalInfo where-    type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback-    connectSignal _ = connectCookieJarChanged--type instance SignalList CookieJar = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList CookieJarDB = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList CookieJarText = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Logger = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data MessageContentSniffedSignalInfo-instance SignalInfo MessageContentSniffedSignalInfo where-    type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback-    connectSignal _ = connectMessageContentSniffed--data MessageFinishedSignalInfo-instance SignalInfo MessageFinishedSignalInfo where-    type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback-    connectSignal _ = connectMessageFinished--data MessageGotBodySignalInfo-instance SignalInfo MessageGotBodySignalInfo where-    type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback-    connectSignal _ = connectMessageGotBody--data MessageGotChunkSignalInfo-instance SignalInfo MessageGotChunkSignalInfo where-    type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback-    connectSignal _ = connectMessageGotChunk--data MessageGotHeadersSignalInfo-instance SignalInfo MessageGotHeadersSignalInfo where-    type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback-    connectSignal _ = connectMessageGotHeaders--data MessageGotInformationalSignalInfo-instance SignalInfo MessageGotInformationalSignalInfo where-    type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback-    connectSignal _ = connectMessageGotInformational--data MessageNetworkEventSignalInfo-instance SignalInfo MessageNetworkEventSignalInfo where-    type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback-    connectSignal _ = connectMessageNetworkEvent--data MessageRestartedSignalInfo-instance SignalInfo MessageRestartedSignalInfo where-    type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback-    connectSignal _ = connectMessageRestarted--data MessageStartingSignalInfo-instance SignalInfo MessageStartingSignalInfo where-    type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback-    connectSignal _ = connectMessageStarting--data MessageWroteBodySignalInfo-instance SignalInfo MessageWroteBodySignalInfo where-    type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback-    connectSignal _ = connectMessageWroteBody--data MessageWroteBodyDataSignalInfo-instance SignalInfo MessageWroteBodyDataSignalInfo where-    type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback-    connectSignal _ = connectMessageWroteBodyData--data MessageWroteChunkSignalInfo-instance SignalInfo MessageWroteChunkSignalInfo where-    type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback-    connectSignal _ = connectMessageWroteChunk--data MessageWroteHeadersSignalInfo-instance SignalInfo MessageWroteHeadersSignalInfo where-    type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback-    connectSignal _ = connectMessageWroteHeaders--data MessageWroteInformationalSignalInfo-instance SignalInfo MessageWroteInformationalSignalInfo where-    type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback-    connectSignal _ = connectMessageWroteInformational--type instance SignalList Message = '[ '("content-sniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("got-body", MessageGotBodySignalInfo), '("got-chunk", MessageGotChunkSignalInfo), '("got-headers", MessageGotHeadersSignalInfo), '("got-informational", MessageGotInformationalSignalInfo), '("network-event", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wrote-body", MessageWroteBodySignalInfo), '("wrote-body-data", MessageWroteBodyDataSignalInfo), '("wrote-chunk", MessageWroteChunkSignalInfo), '("wrote-headers", MessageWroteHeadersSignalInfo), '("wrote-informational", MessageWroteInformationalSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList MultipartInputStream = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList PasswordManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ProxyResolverDefault = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList ProxyURIResolver = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Request = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList RequestData = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList RequestFile = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList RequestHTTP = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList Requester = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data ServerRequestAbortedSignalInfo-instance SignalInfo ServerRequestAbortedSignalInfo where-    type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback-    connectSignal _ = connectServerRequestAborted--data ServerRequestFinishedSignalInfo-instance SignalInfo ServerRequestFinishedSignalInfo where-    type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback-    connectSignal _ = connectServerRequestFinished--data ServerRequestReadSignalInfo-instance SignalInfo ServerRequestReadSignalInfo where-    type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback-    connectSignal _ = connectServerRequestRead--data ServerRequestStartedSignalInfo-instance SignalInfo ServerRequestStartedSignalInfo where-    type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback-    connectSignal _ = connectServerRequestStarted--type instance SignalList Server = '[ '("notify", GObject.ObjectNotifySignalInfo), '("request-aborted", ServerRequestAbortedSignalInfo), '("request-finished", ServerRequestFinishedSignalInfo), '("request-read", ServerRequestReadSignalInfo), '("request-started", ServerRequestStartedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data SessionAuthenticateSignalInfo-instance SignalInfo SessionAuthenticateSignalInfo where-    type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback-    connectSignal _ = connectSessionAuthenticate--data SessionConnectionCreatedSignalInfo-instance SignalInfo SessionConnectionCreatedSignalInfo where-    type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback-    connectSignal _ = connectSessionConnectionCreated--data SessionRequestQueuedSignalInfo-instance SignalInfo SessionRequestQueuedSignalInfo where-    type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback-    connectSignal _ = connectSessionRequestQueued--data SessionRequestStartedSignalInfo-instance SignalInfo SessionRequestStartedSignalInfo where-    type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback-    connectSignal _ = connectSessionRequestStarted--data SessionRequestUnqueuedSignalInfo-instance SignalInfo SessionRequestUnqueuedSignalInfo where-    type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback-    connectSignal _ = connectSessionRequestUnqueued--data SessionTunnelingSignalInfo-instance SignalInfo SessionTunnelingSignalInfo where-    type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback-    connectSignal _ = connectSessionTunneling--type instance SignalList Session = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList SessionAsync = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList SessionFeature = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--type instance SignalList SessionSync = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data SocketDisconnectedSignalInfo-instance SignalInfo SocketDisconnectedSignalInfo where-    type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback-    connectSignal _ = connectSocketDisconnected--data SocketEventSignalInfo-instance SignalInfo SocketEventSignalInfo where-    type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback-    connectSignal _ = connectSocketEvent--data SocketNewConnectionSignalInfo-instance SignalInfo SocketNewConnectionSignalInfo where-    type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback-    connectSignal _ = connectSocketNewConnection--data SocketReadableSignalInfo-instance SignalInfo SocketReadableSignalInfo where-    type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback-    connectSignal _ = connectSocketReadable--data SocketWritableSignalInfo-instance SignalInfo SocketWritableSignalInfo where-    type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback-    connectSignal _ = connectSocketWritable--type instance SignalList Socket = '[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("new-connection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]--data WebsocketConnectionClosedSignalInfo-instance SignalInfo WebsocketConnectionClosedSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback-    connectSignal _ = connectWebsocketConnectionClosed--data WebsocketConnectionClosingSignalInfo-instance SignalInfo WebsocketConnectionClosingSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback-    connectSignal _ = connectWebsocketConnectionClosing--data WebsocketConnectionErrorSignalInfo-instance SignalInfo WebsocketConnectionErrorSignalInfo where-    type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback-    connectSignal _ = connectWebsocketConnectionError--data WebsocketConnectionMessageSignalInfo-instance SignalInfo WebsocketConnectionMessageSignalInfo where-    type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback-    connectSignal _ = connectWebsocketConnectionMessage--type instance SignalList WebsocketConnection = '[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]-
gi-soup.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-soup-version:            0.2.52.10+version:            0.2.52.12 synopsis:           Soup bindings description:        Bindings for Soup, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,13 +14,72 @@  library     default-language:   Haskell2010-    exposed-modules:    GI.Soup, GI.SoupAttributes, GI.SoupSignals+    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts+    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns+    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations+    exposed-modules:    GI.Soup.Types+                        GI.Soup+                        GI.Soup.Callbacks+                        GI.Soup.Constants+                        GI.Soup.Enums+                        GI.Soup.Flags+                        GI.Soup.Functions+                        GI.Soup.Interfaces+                        GI.Soup.Interfaces.PasswordManager+                        GI.Soup.Interfaces.ProxyURIResolver+                        GI.Soup.Interfaces.SessionFeature+                        GI.Soup.Objects+                        GI.Soup.Objects.Address+                        GI.Soup.Objects.Auth+                        GI.Soup.Objects.AuthBasic+                        GI.Soup.Objects.AuthDigest+                        GI.Soup.Objects.AuthDomain+                        GI.Soup.Objects.AuthDomainBasic+                        GI.Soup.Objects.AuthDomainDigest+                        GI.Soup.Objects.AuthManager+                        GI.Soup.Objects.AuthNTLM+                        GI.Soup.Objects.Cache+                        GI.Soup.Objects.ContentDecoder+                        GI.Soup.Objects.ContentSniffer+                        GI.Soup.Objects.CookieJar+                        GI.Soup.Objects.CookieJarDB+                        GI.Soup.Objects.CookieJarText+                        GI.Soup.Objects.Logger+                        GI.Soup.Objects.Message+                        GI.Soup.Objects.MultipartInputStream+                        GI.Soup.Objects.ProxyResolverDefault+                        GI.Soup.Objects.Request+                        GI.Soup.Objects.RequestData+                        GI.Soup.Objects.RequestFile+                        GI.Soup.Objects.RequestHTTP+                        GI.Soup.Objects.Requester+                        GI.Soup.Objects.Server+                        GI.Soup.Objects.Session+                        GI.Soup.Objects.SessionAsync+                        GI.Soup.Objects.SessionSync+                        GI.Soup.Objects.Socket+                        GI.Soup.Objects.WebsocketConnection+                        GI.Soup.Structs+                        GI.Soup.Structs.Buffer+                        GI.Soup.Structs.ClientContext+                        GI.Soup.Structs.Connection+                        GI.Soup.Structs.Cookie+                        GI.Soup.Structs.Date+                        GI.Soup.Structs.MessageBody+                        GI.Soup.Structs.MessageHeaders+                        GI.Soup.Structs.MessageHeadersIter+                        GI.Soup.Structs.MessageQueue+                        GI.Soup.Structs.MessageQueueItem+                        GI.Soup.Structs.Multipart+                        GI.Soup.Structs.Range+                        GI.Soup.Structs.URI+                        GI.Soup.Structs.XMLRPCParams     pkgconfig-depends:  libsoup-2.4 >= 2.52     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.10 && < 1,-        gi-glib >= 0.2.46.10 && < 0.3,-        gi-gobject >= 0.2.46.10 && < 0.3,-        gi-gio >= 0.2.46.10 && < 0.3,+        haskell-gi-base >= 0.12 && < 1,+        gi-glib >= 0.2.46.12 && < 0.2.47,+        gi-gobject >= 0.2.46.12 && < 0.2.47,+        gi-gio >= 0.2.46.12 && < 0.2.47,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,