gi-soup 0.2.52.13 → 0.2.52.14

raw patch · 104 files changed

+2768/−1216 lines, 104 filesdep ~gi-giodep ~gi-glibdep ~gi-gobjectPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• GI/Soup.hs +1/−1
• GI/Soup/Callbacks.hs +9/−7
• GI/Soup/Constants.hs +1/−1
• GI/Soup/Enums.hs +1/−1
• GI/Soup/Flags.hs +9/−9
• GI/Soup/Functions.hs +95/−96
• GI/Soup/Interfaces.hs +1/−1
• GI/Soup/Interfaces/PasswordManager.hs +5/−5
• GI/Soup/Interfaces/PasswordManager.hs-boot +1/−1
• GI/Soup/Interfaces/ProxyURIResolver.hs +5/−5
• GI/Soup/Interfaces/ProxyURIResolver.hs-boot +1/−1
• GI/Soup/Interfaces/SessionFeature.hs +6/−6
• GI/Soup/Interfaces/SessionFeature.hs-boot +1/−1
• GI/Soup/Objects.hs +1/−1
• GI/Soup/Objects/Address.hs +98/−58
• GI/Soup/Objects/Address.hs-boot +1/−1
• GI/Soup/Objects/Auth.hs +62/−33
• GI/Soup/Objects/Auth.hs-boot +1/−1
• GI/Soup/Objects/AuthBasic.hs +1/−1
• GI/Soup/Objects/AuthBasic.hs-boot +1/−1
• GI/Soup/Objects/AuthDigest.hs +1/−1
• GI/Soup/Objects/AuthDigest.hs-boot +1/−1
• GI/Soup/Objects/AuthDomain.hs +97/−48
• GI/Soup/Objects/AuthDomain.hs-boot +1/−1
• GI/Soup/Objects/AuthDomainBasic.hs +19/−7
• GI/Soup/Objects/AuthDomainBasic.hs-boot +1/−1
• GI/Soup/Objects/AuthDomainDigest.hs +20/−8
• GI/Soup/Objects/AuthDomainDigest.hs-boot +1/−1
• GI/Soup/Objects/AuthManager.hs +2/−2
• GI/Soup/Objects/AuthManager.hs-boot +1/−1
• GI/Soup/Objects/AuthNTLM.hs +1/−1
• GI/Soup/Objects/AuthNTLM.hs-boot +1/−1
• GI/Soup/Objects/Cache.hs +26/−14
• GI/Soup/Objects/Cache.hs-boot +1/−1
• GI/Soup/Objects/ContentDecoder.hs +1/−1
• GI/Soup/Objects/ContentDecoder.hs-boot +1/−1
• GI/Soup/Objects/ContentSniffer.hs +4/−4
• GI/Soup/Objects/ContentSniffer.hs-boot +1/−1
• GI/Soup/Objects/CookieJar.hs +33/−22
• GI/Soup/Objects/CookieJar.hs-boot +1/−1
• GI/Soup/Objects/CookieJarDB.hs +12/−6
• GI/Soup/Objects/CookieJarDB.hs-boot +1/−1
• GI/Soup/Objects/CookieJarText.hs +12/−6
• GI/Soup/Objects/CookieJarText.hs-boot +1/−1
• GI/Soup/Objects/Logger.hs +15/−15
• GI/Soup/Objects/Logger.hs-boot +1/−1
• GI/Soup/Objects/Message.hs +209/−94
• GI/Soup/Objects/Message.hs-boot +1/−1
• GI/Soup/Objects/MultipartInputStream.hs +37/−28
• GI/Soup/Objects/MultipartInputStream.hs-boot +1/−1
• GI/Soup/Objects/ProxyResolverDefault.hs +14/−4
• GI/Soup/Objects/ProxyResolverDefault.hs-boot +1/−1
• GI/Soup/Objects/Request.hs +34/−21
• GI/Soup/Objects/Request.hs-boot +1/−1
• GI/Soup/Objects/RequestData.hs +1/−1
• GI/Soup/Objects/RequestData.hs-boot +1/−1
• GI/Soup/Objects/RequestFile.hs +2/−2
• GI/Soup/Objects/RequestFile.hs-boot +1/−1
• GI/Soup/Objects/RequestHTTP.hs +2/−2
• GI/Soup/Objects/RequestHTTP.hs-boot +1/−1
• GI/Soup/Objects/Requester.hs +4/−4
• GI/Soup/Objects/Requester.hs-boot +1/−1
• GI/Soup/Objects/Server.hs +152/−81
• GI/Soup/Objects/Server.hs-boot +1/−1
• GI/Soup/Objects/Session.hs +283/−125
• GI/Soup/Objects/Session.hs-boot +1/−1
• GI/Soup/Objects/SessionAsync.hs +2/−2
• GI/Soup/Objects/SessionAsync.hs-boot +1/−1
• GI/Soup/Objects/SessionSync.hs +2/−2
• GI/Soup/Objects/SessionSync.hs-boot +1/−1
• GI/Soup/Objects/Socket.hs +146/−44
• GI/Soup/Objects/Socket.hs-boot +1/−1
• GI/Soup/Objects/WebsocketConnection.hs +75/−37
• GI/Soup/Objects/WebsocketConnection.hs-boot +1/−1
• GI/Soup/Structs.hs +1/−1
• GI/Soup/Structs/Buffer.hs +80/−20
• GI/Soup/Structs/Buffer.hs-boot +1/−1
• GI/Soup/Structs/ClientContext.hs +56/−45
• GI/Soup/Structs/ClientContext.hs-boot +1/−1
• GI/Soup/Structs/Connection.hs +5/−1
• GI/Soup/Structs/Connection.hs-boot +1/−1
• GI/Soup/Structs/Cookie.hs +260/−57
• GI/Soup/Structs/Cookie.hs-boot +1/−1
• GI/Soup/Structs/Date.hs +243/−54
• GI/Soup/Structs/Date.hs-boot +1/−1
• GI/Soup/Structs/MessageBody.hs +87/−24
• GI/Soup/Structs/MessageBody.hs-boot +1/−1
• GI/Soup/Structs/MessageHeaders.hs +66/−58
• GI/Soup/Structs/MessageHeaders.hs-boot +1/−1
• GI/Soup/Structs/MessageHeadersIter.hs +14/−3
• GI/Soup/Structs/MessageHeadersIter.hs-boot +1/−1
• GI/Soup/Structs/MessageQueue.hs +5/−1
• GI/Soup/Structs/MessageQueue.hs-boot +1/−1
• GI/Soup/Structs/MessageQueueItem.hs +5/−1
• GI/Soup/Structs/MessageQueueItem.hs-boot +1/−1
• GI/Soup/Structs/Multipart.hs +21/−16
• GI/Soup/Structs/Multipart.hs-boot +1/−1
• GI/Soup/Structs/Range.hs +60/−5
• GI/Soup/Structs/Range.hs-boot +1/−1
• GI/Soup/Structs/URI.hs +304/−67
• GI/Soup/Structs/URI.hs-boot +1/−1
• GI/Soup/Structs/XMLRPCParams.hs +7/−3
• GI/Soup/Structs/XMLRPCParams.hs-boot +1/−1
• gi-soup.cabal +6/−6

@@ -32,9 +32,9 @@ import GI.Soup.Objects import GI.Soup.Structs -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -149,9 +149,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -540,7 +540,7 @@ type ChunkAllocator =     Message ->     Word64 ->-    IO Buffer+    IO (Maybe Buffer)  noChunkAllocator :: Maybe ChunkAllocator noChunkAllocator = Nothing@@ -556,8 +556,9 @@     msg' <- (newObject Message) msg     result <- _cb  msg' maxLen     maybeReleaseFunPtr funptrptr-    result' <- copyBoxed result-    return result'+    maybeM nullPtr result $ \result' -> do+        result'' <- copyBoxed result'+        return result''  -- callback AuthDomainGenericAuthCallback authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure@@ -656,7 +657,7 @@     AuthDomain ->     Message ->     T.Text ->-    IO T.Text+    IO (Maybe T.Text)  noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback noAuthDomainDigestAuthCallback = Nothing@@ -675,8 +676,9 @@     username' <- cstringToText username     result <- _cb  domain' msg' username'     maybeReleaseFunPtr funptrptr-    result' <- textToCString result-    return result'+    maybeM nullPtr result $ \result' -> do+        result'' <- textToCString result'+        return result''  -- callback AuthDomainBasicAuthCallback authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure

@@ -156,9 +156,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -47,9 +47,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -51,8 +51,8 @@ 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 BoxedFlags ServerListenOptions where+    boxedFlagsType _ = c_soup_server_listen_options_get_type  instance IsGFlag ServerListenOptions @@ -94,8 +94,8 @@ 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 BoxedFlags MessageFlags where+    boxedFlagsType _ = c_soup_message_flags_get_type  instance IsGFlag MessageFlags @@ -119,8 +119,8 @@ 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 BoxedFlags Expectation where+    boxedFlagsType _ = c_soup_expectation_get_type  instance IsGFlag Expectation @@ -150,8 +150,8 @@ 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 BoxedFlags Cacheability where+    boxedFlagsType _ = c_soup_cacheability_get_type  instance IsGFlag Cacheability 

@@ -198,9 +198,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -213,7 +213,7 @@ -- function soup_xmlrpc_variant_new_datetime -- Args : [Arg {argCName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TVariant+-- returnType : Just TVariant -- throws : False -- Skip return : False @@ -238,7 +238,7 @@ -- function soup_xmlrpc_variant_get_datetime -- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Date"+-- returnType : Just (TInterface "Soup" "Date") -- throws : True -- Skip return : False @@ -265,15 +265,15 @@   -- function soup_xmlrpc_parse_response--- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TVariant+-- returnType : Just TVariant -- throws : True -- Skip return : False  foreign import ccall "soup_xmlrpc_parse_response" soup_xmlrpc_parse_response ::      CString ->                              -- method_response : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     CString ->                              -- signature : TBasicType TUTF8     Ptr (Ptr GError) ->                     -- error     IO (Ptr GVariant)@@ -306,15 +306,15 @@   -- function soup_xmlrpc_parse_request--- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False  foreign import ccall "soup_xmlrpc_parse_request" soup_xmlrpc_parse_request ::      CString ->                              -- method_call : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr (Ptr XMLRPCParams) ->               -- params : TInterface "Soup" "XMLRPCParams"     Ptr (Ptr GError) ->                     -- error     IO CString@@ -346,15 +346,15 @@   -- function soup_xmlrpc_parse_method_response--- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False  foreign import ccall "soup_xmlrpc_parse_method_response" soup_xmlrpc_parse_method_response ::      CString ->                              -- method_response : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr GValue ->                           -- value : TInterface "GObject" "Value"     Ptr (Ptr GError) ->                     -- error     IO CInt@@ -380,15 +380,15 @@   -- function soup_xmlrpc_parse_method_call--- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "soup_xmlrpc_parse_method_call" soup_xmlrpc_parse_method_call ::      CString ->                              -- method_call : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr CString ->                          -- method_name : TBasicType TUTF8     Ptr GObject.ValueArray ->               -- params : TInterface "GObject" "ValueArray"     IO CInt@@ -417,7 +417,7 @@ -- function soup_xmlrpc_message_set_response -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -448,7 +448,7 @@ -- function soup_xmlrpc_message_new -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : True -- Skip return : False @@ -486,7 +486,7 @@ -- function soup_xmlrpc_build_response -- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -516,7 +516,7 @@ -- function soup_xmlrpc_build_request -- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -550,7 +550,7 @@ -- function soup_xmlrpc_build_method_response -- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -562,28 +562,29 @@ xmlrpcBuildMethodResponse ::     (MonadIO m) =>     GValue                                  -- value-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''     touchManagedPtr value-    return result'+    return maybeResult   -- function soup_xmlrpc_build_method_call--- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TUTF8+-- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False  foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call ::      CString ->                              -- method_name : TBasicType TUTF8     Ptr GValue ->                           -- params : TCArray False (-1) 2 (TInterface "GObject" "Value")-    Int32 ->                                -- n_params : TBasicType TInt32+    Int32 ->                                -- n_params : TBasicType TInt     IO CString  {-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-}@@ -591,26 +592,27 @@     (MonadIO m) =>     T.Text                                  -- methodName     -> [GValue]                             -- params-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result xmlrpcBuildMethodCall methodName params = liftIO $ do     let nParams = fromIntegral $ length params     methodName' <- textToCString methodName     let params' = map unsafeManagedPtrGetPtr params     params'' <- packBlockArray 24 params'     result <- soup_xmlrpc_build_method_call methodName' params'' nParams-    checkUnexpectedReturnNULL "soup_xmlrpc_build_method_call" result-    result' <- cstringToText result-    freeMem result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''     mapM_ touchManagedPtr params     freeMem methodName'     freeMem params''-    return result'+    return maybeResult   -- function soup_websocket_server_process_handshake -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -651,7 +653,7 @@ -- function soup_websocket_server_check_handshake -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -698,7 +700,7 @@ -- function soup_websocket_client_verify_handshake -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -726,7 +728,7 @@ -- function soup_websocket_client_prepare_handshake -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -774,7 +776,7 @@ -- function soup_value_array_new -- Args : [] -- Lengths : []--- returnType : TInterface "GObject" "ValueArray"+-- returnType : Just (TInterface "GObject" "ValueArray") -- throws : False -- Skip return : False @@ -795,7 +797,7 @@ -- function soup_tld_get_base_domain -- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -825,7 +827,7 @@ -- function soup_tld_domain_is_public_suffix -- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -847,14 +849,14 @@   -- function soup_str_case_hash--- Args : [Arg {argCName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "soup_str_case_hash" soup_str_case_hash :: -    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- key : TBasicType TPtr     IO Word32  @@ -868,15 +870,15 @@   -- function soup_str_case_equal--- Args : [Arg {argCName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (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+    Ptr () ->                               -- v1 : TBasicType TPtr+    Ptr () ->                               -- v2 : TBasicType TPtr     IO CInt  @@ -894,7 +896,7 @@ -- function soup_http_error_quark -- Args : [] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False @@ -911,16 +913,16 @@   -- function soup_headers_parse_status_line--- Args : [Arg {argCName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "soup_headers_parse_status_line" soup_headers_parse_status_line ::      CString ->                              -- status_line : TBasicType TUTF8     Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt32+    Ptr Word32 ->                           -- status_code : TBasicType TUInt     Ptr CString ->                          -- reason_phrase : TBasicType TUTF8     IO CInt @@ -950,18 +952,18 @@   -- function soup_headers_parse_response--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "soup_headers_parse_response" soup_headers_parse_response ::      CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt32+    Int32 ->                                -- len : TBasicType TInt     Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"     Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt32+    Ptr Word32 ->                           -- status_code : TBasicType TUInt     Ptr CString ->                          -- reason_phrase : TBasicType TUTF8     IO CInt @@ -995,15 +997,15 @@   -- function soup_headers_parse_request--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "soup_headers_parse_request" soup_headers_parse_request ::      CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt32+    Int32 ->                                -- len : TBasicType TInt     Ptr MessageHeaders ->                   -- req_headers : TInterface "Soup" "MessageHeaders"     Ptr CString ->                          -- req_method : TBasicType TUTF8     Ptr CString ->                          -- req_path : TBasicType TUTF8@@ -1041,15 +1043,15 @@   -- function soup_headers_parse--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "soup_headers_parse" soup_headers_parse ::      CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt32+    Int32 ->                                -- len : TBasicType TInt     Ptr MessageHeaders ->                   -- dest : TInterface "Soup" "MessageHeaders"     IO CInt @@ -1073,7 +1075,7 @@ -- function soup_header_parse_semi_param_list -- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1104,7 +1106,7 @@ -- function soup_header_parse_quality_list -- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1122,7 +1124,6 @@     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@@ -1140,7 +1141,7 @@ -- function soup_header_parse_param_list -- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1171,7 +1172,7 @@ -- function soup_header_parse_list -- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1187,7 +1188,6 @@ 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@@ -1199,7 +1199,7 @@ -- function soup_header_g_string_append_param_quoted -- Args : [Arg {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1230,7 +1230,7 @@ -- function soup_header_g_string_append_param -- Args : [Arg {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1261,7 +1261,7 @@ -- function soup_header_free_param_list -- Args : [Arg {argCName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1289,7 +1289,7 @@ -- function soup_header_contains -- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1317,7 +1317,7 @@ -- function soup_form_request_new_from_multipart -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -1346,7 +1346,7 @@ -- function soup_form_request_new_from_hash -- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -1384,7 +1384,7 @@ -- function soup_form_request_new_from_datalist -- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -1417,7 +1417,7 @@ -- function soup_form_encode_hash -- Args : [Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1448,7 +1448,7 @@ -- function soup_form_encode_datalist -- Args : [Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1474,7 +1474,7 @@ -- function soup_form_decode_multipart -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1491,7 +1491,7 @@     (MonadIO m, MessageK a) =>     a                                       -- msg     -> Maybe (T.Text)                       -- fileControlName-    -> m ((Map.Map T.Text T.Text),T.Text,T.Text,Buffer)-- result+    -> m ((Maybe (Map.Map T.Text T.Text)),T.Text,T.Text,Buffer)-- result formDecodeMultipart msg fileControlName = liftIO $ do     let msg' = unsafeManagedPtrCastPtr msg     maybeFileControlName <- case fileControlName of@@ -1503,14 +1503,15 @@     contentType <- allocMem :: IO (Ptr CString)     file <- callocBoxedBytes 16 :: IO (Ptr Buffer)     result <- soup_form_decode_multipart msg' maybeFileControlName filename contentType 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- unpackGHashTable result'+        let result''' = mapFirst cstringUnpackPtr result''+        result'''' <- mapFirstA cstringToText result'''+        let result''''' = mapSecond cstringUnpackPtr result''''+        result'''''' <- mapSecondA cstringToText result'''''+        let result''''''' = Map.fromList result''''''+        unrefGHashTable result'+        return result'''''''     filename' <- peek filename     filename'' <- cstringToText filename'     freeMem filename'@@ -1522,13 +1523,13 @@     freeMem maybeFileControlName     freeMem filename     freeMem contentType-    return (result'''''', filename'', contentType'', file')+    return (maybeResult, filename'', contentType'', file')   -- function soup_form_decode -- Args : [Arg {argCName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8)+-- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1559,7 +1560,7 @@ -- function soup_cookies_to_response -- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1588,7 +1589,7 @@ -- function soup_cookies_to_request -- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1617,7 +1618,7 @@ -- function soup_cookies_to_cookie_header -- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1645,7 +1646,7 @@ -- function soup_cookies_from_response -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Soup" "Cookie")+-- returnType : Just (TGSList (TInterface "Soup" "Cookie")) -- throws : False -- Skip return : False @@ -1661,7 +1662,6 @@ 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@@ -1672,7 +1672,7 @@ -- function soup_cookies_from_request -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Soup" "Cookie")+-- returnType : Just (TGSList (TInterface "Soup" "Cookie")) -- throws : False -- Skip return : False @@ -1688,7 +1688,6 @@ 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

@@ -18,9 +18,9 @@ import GI.Soup.Interfaces.ProxyURIResolver import GI.Soup.Interfaces.SessionFeature -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -115,9 +115,9 @@  -- method PasswordManager::get_passwords_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -129,7 +129,7 @@     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+    Ptr () ->                               -- user_data : TBasicType TPtr     IO ()  @@ -174,7 +174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Interfaces.PasswordManager where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -115,9 +115,9 @@  -- method ProxyURIResolver::get_proxy_uri_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -127,7 +127,7 @@     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+    Ptr () ->                               -- user_data : TBasicType TPtr     IO ()  {-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}@@ -171,7 +171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Interfaces.ProxyURIResolver where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -46,9 +46,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -128,7 +128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -190,7 +190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -252,7 +252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Interfaces.SessionFeature where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -72,9 +72,9 @@ import GI.Soup.Objects.Socket import GI.Soup.Objects.WebsocketConnection -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -89,35 +89,41 @@  -- * Properties -- ** Family     AddressFamilyPropertyInfo               ,+    addressFamily                           ,     constructAddressFamily                  ,     getAddressFamily                        ,   -- ** Name     AddressNamePropertyInfo                 ,+    addressName                             ,     constructAddressName                    ,     getAddressName                          ,   -- ** Physical     AddressPhysicalPropertyInfo             ,+    addressPhysical                         ,     getAddressPhysical                      ,   -- ** Port     AddressPortPropertyInfo                 ,+    addressPort                             ,     constructAddressPort                    ,     getAddressPort                          ,   -- ** Protocol     AddressProtocolPropertyInfo             ,+    addressProtocol                         ,     constructAddressProtocol                ,     getAddressProtocol                      ,   -- ** Sockaddr     AddressSockaddrPropertyInfo             ,+    addressSockaddr                         ,     constructAddressSockaddr                ,     getAddressSockaddr                      , @@ -126,9 +132,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -209,6 +215,7 @@ -- VVV Prop "family"    -- Type: TInterface "Soup" "AddressFamily"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"@@ -226,55 +233,61 @@     attrGet _ = getAddressFamily     attrSet _ = undefined     attrConstruct _ = constructAddressFamily+    attrClear _ = undefined  -- VVV Prop "name"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing) -getAddressName :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressName :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) getAddressName obj = liftIO $ getObjectPropertyString obj "name"  constructAddressName :: T.Text -> IO ([Char], GValue)-constructAddressName val = constructObjectPropertyString "name" val+constructAddressName val = constructObjectPropertyString "name" (Just val)  data AddressNamePropertyInfo instance AttrInfo AddressNamePropertyInfo where-    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK-    type AttrGetType AddressNamePropertyInfo = T.Text+    type AttrGetType AddressNamePropertyInfo = (Maybe T.Text)     type AttrLabel AddressNamePropertyInfo = "name"     attrGet _ = getAddressName     attrSet _ = undefined     attrConstruct _ = constructAddressName+    attrClear _ = undefined  -- VVV Prop "physical"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing) -getAddressPhysical :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressPhysical :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical"  data AddressPhysicalPropertyInfo instance AttrInfo AddressPhysicalPropertyInfo where-    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) ()     type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK-    type AttrGetType AddressPhysicalPropertyInfo = T.Text+    type AttrGetType AddressPhysicalPropertyInfo = (Maybe T.Text)     type AttrLabel AddressPhysicalPropertyInfo = "physical"     attrGet _ = getAddressPhysical     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "port"-   -- Type: TBasicType TInt32+   -- Type: TBasicType TInt    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32-getAddressPort obj = liftIO $ getObjectPropertyCInt obj "port"+getAddressPort obj = liftIO $ getObjectPropertyInt32 obj "port"  constructAddressPort :: Int32 -> IO ([Char], GValue)-constructAddressPort val = constructObjectPropertyCInt "port" val+constructAddressPort val = constructObjectPropertyInt32 "port" val  data AddressPortPropertyInfo instance AttrInfo AddressPortPropertyInfo where@@ -286,36 +299,40 @@     attrGet _ = getAddressPort     attrSet _ = undefined     attrConstruct _ = constructAddressPort+    attrClear _ = undefined  -- VVV Prop "protocol"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getAddressProtocol :: (MonadIO m, AddressK o) => o -> m T.Text+getAddressProtocol :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol"  constructAddressProtocol :: T.Text -> IO ([Char], GValue)-constructAddressProtocol val = constructObjectPropertyString "protocol" val+constructAddressProtocol val = constructObjectPropertyString "protocol" (Just val)  data AddressProtocolPropertyInfo instance AttrInfo AddressProtocolPropertyInfo where-    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK-    type AttrGetType AddressProtocolPropertyInfo = T.Text+    type AttrGetType AddressProtocolPropertyInfo = (Maybe T.Text)     type AttrLabel AddressProtocolPropertyInfo = "protocol"     attrGet _ = getAddressProtocol     attrSet _ = undefined     attrConstruct _ = constructAddressProtocol+    attrClear _ = undefined  -- VVV Prop "sockaddr"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ()) getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr" -constructAddressSockaddr :: (Ptr ()) -> IO ([Char], GValue)+constructAddressSockaddr :: Ptr () -> IO ([Char], GValue) constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val  data AddressSockaddrPropertyInfo@@ -328,24 +345,43 @@     attrGet _ = getAddressSockaddr     attrSet _ = undefined     attrConstruct _ = constructAddressSockaddr+    attrClear _ = undefined  type instance AttributeList Address = AddressAttributeList type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)]) +addressFamily :: AttrLabelProxy "family"+addressFamily = AttrLabelProxy++addressName :: AttrLabelProxy "name"+addressName = AttrLabelProxy++addressPhysical :: AttrLabelProxy "physical"+addressPhysical = AttrLabelProxy++addressPort :: AttrLabelProxy "port"+addressPort = AttrLabelProxy++addressProtocol :: AttrLabelProxy "protocol"+addressProtocol = AttrLabelProxy++addressSockaddr :: AttrLabelProxy "sockaddr"+addressSockaddr = AttrLabelProxy+ type instance SignalList Address = AddressSignalList type AddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Address::new -- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Address"+-- returnType : Just (TInterface "Soup" "Address") -- throws : False -- Skip return : False  foreign import ccall "soup_address_new" soup_address_new ::      CString ->                              -- name : TBasicType TUTF8-    Word32 ->                               -- port : TBasicType TUInt32+    Word32 ->                               -- port : TBasicType TUInt     IO (Ptr Address)  @@ -364,15 +400,15 @@  -- method Address::new_any -- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Address"+-- returnType : Just (TInterface "Soup" "Address") -- throws : False -- Skip return : False  foreign import ccall "soup_address_new_any" soup_address_new_any ::      CUInt ->                                -- family : TInterface "Soup" "AddressFamily"-    Word32 ->                               -- port : TBasicType TUInt32+    Word32 ->                               -- port : TBasicType TUInt     IO (Ptr Address)  @@ -380,25 +416,26 @@     (MonadIO m) =>     AddressFamily                           -- family     -> Word32                               -- port-    -> m Address                            -- result+    -> m (Maybe Address)                    -- result 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'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Address) result'+        return result''+    return maybeResult  -- method Address::new_from_sockaddr -- method type : Constructor--- Args : [Arg {argCName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "sa", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Address"+-- returnType : Just (TInterface "Soup" "Address") -- throws : False -- Skip return : False  foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: -    Ptr () ->                               -- sa : TBasicType TVoid-    Int32 ->                                -- len : TBasicType TInt32+    Ptr () ->                               -- sa : TBasicType TPtr+    Int32 ->                                -- len : TBasicType TInt     IO (Ptr Address)  @@ -406,18 +443,19 @@     (MonadIO m) =>     Ptr ()                                  -- sa     -> Int32                                -- len-    -> m Address                            -- result+    -> m (Maybe Address)                    -- result 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'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Address) result'+        return result''+    return maybeResult  -- method Address::equal_by_ip -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -449,7 +487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -481,7 +519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "SocketAddress"+-- returnType : Just (TInterface "Gio" "SocketAddress") -- throws : False -- Skip return : False @@ -510,7 +548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -522,24 +560,25 @@ addressGetName ::     (MonadIO m, AddressK a) =>     a                                       -- _obj-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result addressGetName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- soup_address_get_name _obj'-    checkUnexpectedReturnNULL "soup_address_get_name" result-    result' <- cstringToText result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data AddressGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AddressK a) => MethodInfo AddressGetNameMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetNameMethodInfo a signature where     overloadedMethod _ = addressGetName  -- method Address::get_physical -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -551,24 +590,25 @@ addressGetPhysical ::     (MonadIO m, AddressK a) =>     a                                       -- _obj-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result addressGetPhysical _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- soup_address_get_physical _obj'-    checkUnexpectedReturnNULL "soup_address_get_physical" result-    result' <- cstringToText result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data AddressGetPhysicalMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AddressK a) => MethodInfo AddressGetPhysicalMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetPhysicalMethodInfo a signature where     overloadedMethod _ = addressGetPhysical  -- method Address::get_port -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -595,7 +635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -622,7 +662,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -649,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -675,9 +715,9 @@  -- method Address::resolve_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -686,7 +726,7 @@     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+    Ptr () ->                               -- user_data : TBasicType TPtr     IO ()  @@ -727,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Address where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -101,6 +101,8 @@  -- * Properties -- ** Host     AuthHostPropertyInfo                    ,+    authHost                                ,+    clearAuthHost                           ,     constructAuthHost                       ,     getAuthHost                             ,     setAuthHost                             ,@@ -120,6 +122,8 @@  -- ** Realm     AuthRealmPropertyInfo                   ,+    authRealm                               ,+    clearAuthRealm                          ,     constructAuthRealm                      ,     getAuthRealm                            ,     setAuthRealm                            ,@@ -127,6 +131,7 @@  -- ** SchemeName     AuthSchemeNamePropertyInfo              ,+    authSchemeName                          ,     getAuthSchemeName                       ,  @@ -134,9 +139,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -217,19 +222,23 @@ -- VVV Prop "host"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Nothing)  getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthHost obj = liftIO $ getObjectPropertyString obj "host"+getAuthHost obj = liftIO $ checkUnexpectedNothing "getAuthHost" $ getObjectPropertyString obj "host"  setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" val+setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" (Just val)  constructAuthHost :: T.Text -> IO ([Char], GValue)-constructAuthHost val = constructObjectPropertyString "host" val+constructAuthHost val = constructObjectPropertyString "host" (Just val) +clearAuthHost :: (MonadIO m, AuthK o) => o -> m ()+clearAuthHost obj = liftIO $ setObjectPropertyString obj "host" (Nothing :: Maybe T.Text)+ data AuthHostPropertyInfo instance AttrInfo AuthHostPropertyInfo where-    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK     type AttrGetType AuthHostPropertyInfo = T.Text@@ -237,10 +246,12 @@     attrGet _ = getAuthHost     attrSet _ = setAuthHost     attrConstruct _ = constructAuthHost+    attrClear _ = clearAuthHost  -- VVV Prop "is-authenticated"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated"@@ -255,10 +266,12 @@     attrGet _ = getAuthIsAuthenticated     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "is-for-proxy"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy"@@ -279,23 +292,28 @@     attrGet _ = getAuthIsForProxy     attrSet _ = setAuthIsForProxy     attrConstruct _ = constructAuthIsForProxy+    attrClear _ = undefined  -- VVV Prop "realm"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Nothing)  getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthRealm obj = liftIO $ getObjectPropertyString obj "realm"+getAuthRealm obj = liftIO $ checkUnexpectedNothing "getAuthRealm" $ getObjectPropertyString obj "realm"  setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" val+setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" (Just val)  constructAuthRealm :: T.Text -> IO ([Char], GValue)-constructAuthRealm val = constructObjectPropertyString "realm" val+constructAuthRealm val = constructObjectPropertyString "realm" (Just val) +clearAuthRealm :: (MonadIO m, AuthK o) => o -> m ()+clearAuthRealm obj = liftIO $ setObjectPropertyString obj "realm" (Nothing :: Maybe T.Text)+ data AuthRealmPropertyInfo instance AttrInfo AuthRealmPropertyInfo where-    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK     type AttrGetType AuthRealmPropertyInfo = T.Text@@ -303,17 +321,19 @@     attrGet _ = getAuthRealm     attrSet _ = setAuthRealm     attrConstruct _ = constructAuthRealm+    attrClear _ = clearAuthRealm  -- VVV Prop "scheme-name"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)  getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthSchemeName obj = liftIO $ getObjectPropertyString obj "scheme-name"+getAuthSchemeName obj = liftIO $ checkUnexpectedNothing "getAuthSchemeName" $ getObjectPropertyString obj "scheme-name"  data AuthSchemeNamePropertyInfo instance AttrInfo AuthSchemeNamePropertyInfo where-    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) ()     type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK     type AttrGetType AuthSchemeNamePropertyInfo = T.Text@@ -321,10 +341,20 @@     attrGet _ = getAuthSchemeName     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  type instance AttributeList Auth = AuthAttributeList type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) +authHost :: AttrLabelProxy "host"+authHost = AttrLabelProxy++authRealm :: AttrLabelProxy "realm"+authRealm = AttrLabelProxy++authSchemeName :: AttrLabelProxy "schemeName"+authSchemeName = AttrLabelProxy+ type instance SignalList Auth = AuthSignalList type AuthSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -332,7 +362,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Auth"+-- returnType : Just (TInterface "Soup" "Auth") -- throws : False -- Skip return : False @@ -348,23 +378,24 @@     GType                                   -- type_     -> a                                    -- msg     -> T.Text                               -- authHeader-    -> m Auth                               -- result+    -> m (Maybe Auth)                       -- result authNew type_ msg authHeader = liftIO $ do     let type_' = gtypeToCGType type_     let msg' = unsafeManagedPtrCastPtr msg     authHeader' <- textToCString authHeader     result <- soup_auth_new type_' msg' authHeader'-    checkUnexpectedReturnNULL "soup_auth_new" result-    result' <- (wrapObject Auth) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Auth) result'+        return result''     touchManagedPtr msg     freeMem authHeader'-    return result'+    return maybeResult  -- method Auth::authenticate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -399,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -433,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -462,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -492,7 +523,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -511,7 +542,6 @@     let _obj' = unsafeManagedPtrCastPtr _obj     let sourceUri' = unsafeManagedPtrGetPtr sourceUri     result <- soup_auth_get_protection_space _obj' sourceUri'-    checkUnexpectedReturnNULL "soup_auth_get_protection_space" result     result' <- unpackGSList result     result'' <- mapM cstringToText result'     mapGSList freeMem result@@ -528,7 +558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -557,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -590,7 +620,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TBasicType TUTF8)+-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -606,7 +636,6 @@ 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@@ -622,7 +651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -651,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -686,7 +715,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -714,7 +743,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -742,7 +771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -774,7 +803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -809,7 +838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Auth where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthBasic where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthDigest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -82,12 +82,14 @@  -- * Properties -- ** AddPath     AuthDomainAddPathPropertyInfo           ,+    clearAuthDomainAddPath                  ,     constructAuthDomainAddPath              ,     setAuthDomainAddPath                    ,   -- ** Filter     AuthDomainFilterPropertyInfo            ,+    authDomainFilter                        ,     constructAuthDomainFilter               ,     getAuthDomainFilter                     ,     setAuthDomainFilter                     ,@@ -95,6 +97,7 @@  -- ** FilterData     AuthDomainFilterDataPropertyInfo        ,+    authDomainFilterData                    ,     constructAuthDomainFilterData           ,     getAuthDomainFilterData                 ,     setAuthDomainFilterData                 ,@@ -102,6 +105,7 @@  -- ** GenericAuthCallback     AuthDomainGenericAuthCallbackPropertyInfo,+    authDomainGenericAuthCallback           ,     constructAuthDomainGenericAuthCallback  ,     getAuthDomainGenericAuthCallback        ,     setAuthDomainGenericAuthCallback        ,@@ -109,6 +113,7 @@  -- ** GenericAuthData     AuthDomainGenericAuthDataPropertyInfo   ,+    authDomainGenericAuthData               ,     constructAuthDomainGenericAuthData      ,     getAuthDomainGenericAuthData            ,     setAuthDomainGenericAuthData            ,@@ -116,18 +121,21 @@  -- ** Proxy     AuthDomainProxyPropertyInfo             ,+    authDomainProxy                         ,     constructAuthDomainProxy                ,     getAuthDomainProxy                      ,   -- ** Realm     AuthDomainRealmPropertyInfo             ,+    authDomainRealm                         ,     constructAuthDomainRealm                ,     getAuthDomainRealm                      ,   -- ** RemovePath     AuthDomainRemovePathPropertyInfo        ,+    clearAuthDomainRemovePath               ,     constructAuthDomainRemovePath           ,     setAuthDomainRemovePath                 , @@ -136,9 +144,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -217,16 +225,20 @@ -- VVV Prop "add-path"    -- Type: TBasicType TUTF8    -- Flags: [PropertyWritable]+   -- Nullable: (Nothing,Nothing)  setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" val+setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" (Just val)  constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue)-constructAuthDomainAddPath val = constructObjectPropertyString "add-path" val+constructAuthDomainAddPath val = constructObjectPropertyString "add-path" (Just val) +clearAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> m ()+clearAuthDomainAddPath obj = liftIO $ setObjectPropertyString obj "add-path" (Nothing :: Maybe T.Text)+ data AuthDomainAddPathPropertyInfo instance AttrInfo AuthDomainAddPathPropertyInfo where-    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]     type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK     type AttrGetType AuthDomainAddPathPropertyInfo = ()@@ -234,18 +246,20 @@     attrGet _ = undefined     attrSet _ = setAuthDomainAddPath     attrConstruct _ = constructAuthDomainAddPath+    attrClear _ = clearAuthDomainAddPath  -- VVV Prop "filter"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter" -setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m () setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val -constructAuthDomainFilter :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainFilter :: Ptr () -> IO ([Char], GValue) constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val  data AuthDomainFilterPropertyInfo@@ -258,18 +272,20 @@     attrGet _ = getAuthDomainFilter     attrSet _ = setAuthDomainFilter     attrConstruct _ = constructAuthDomainFilter+    attrClear _ = undefined  -- VVV Prop "filter-data"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data" -setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m () setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val -constructAuthDomainFilterData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainFilterData :: Ptr () -> IO ([Char], GValue) constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val  data AuthDomainFilterDataPropertyInfo@@ -282,18 +298,20 @@     attrGet _ = getAuthDomainFilterData     attrSet _ = setAuthDomainFilterData     attrConstruct _ = constructAuthDomainFilterData+    attrClear _ = undefined  -- VVV Prop "generic-auth-callback"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback" -setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m () setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val -constructAuthDomainGenericAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainGenericAuthCallback :: Ptr () -> IO ([Char], GValue) constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val  data AuthDomainGenericAuthCallbackPropertyInfo@@ -306,18 +324,20 @@     attrGet _ = getAuthDomainGenericAuthCallback     attrSet _ = setAuthDomainGenericAuthCallback     attrConstruct _ = constructAuthDomainGenericAuthCallback+    attrClear _ = undefined  -- VVV Prop "generic-auth-data"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data" -setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m ()+setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m () setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val -constructAuthDomainGenericAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainGenericAuthData :: Ptr () -> IO ([Char], GValue) constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val  data AuthDomainGenericAuthDataPropertyInfo@@ -330,10 +350,12 @@     attrGet _ = getAuthDomainGenericAuthData     attrSet _ = setAuthDomainGenericAuthData     attrConstruct _ = constructAuthDomainGenericAuthData+    attrClear _ = undefined  -- VVV Prop "proxy"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy"@@ -351,20 +373,22 @@     attrGet _ = getAuthDomainProxy     attrSet _ = undefined     attrConstruct _ = constructAuthDomainProxy+    attrClear _ = undefined  -- VVV Prop "realm"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text-getAuthDomainRealm obj = liftIO $ getObjectPropertyString obj "realm"+getAuthDomainRealm obj = liftIO $ checkUnexpectedNothing "getAuthDomainRealm" $ getObjectPropertyString obj "realm"  constructAuthDomainRealm :: T.Text -> IO ([Char], GValue)-constructAuthDomainRealm val = constructObjectPropertyString "realm" val+constructAuthDomainRealm val = constructObjectPropertyString "realm" (Just val)  data AuthDomainRealmPropertyInfo instance AttrInfo AuthDomainRealmPropertyInfo where-    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK     type AttrGetType AuthDomainRealmPropertyInfo = T.Text@@ -372,20 +396,25 @@     attrGet _ = getAuthDomainRealm     attrSet _ = undefined     attrConstruct _ = constructAuthDomainRealm+    attrClear _ = undefined  -- VVV Prop "remove-path"    -- Type: TBasicType TUTF8    -- Flags: [PropertyWritable]+   -- Nullable: (Nothing,Nothing)  setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" val+setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" (Just val)  constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue)-constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" val+constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" (Just val) +clearAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> m ()+clearAuthDomainRemovePath obj = liftIO $ setObjectPropertyString obj "remove-path" (Nothing :: Maybe T.Text)+ data AuthDomainRemovePathPropertyInfo instance AttrInfo AuthDomainRemovePathPropertyInfo where-    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]     type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK     type AttrGetType AuthDomainRemovePathPropertyInfo = ()@@ -393,10 +422,29 @@     attrGet _ = undefined     attrSet _ = setAuthDomainRemovePath     attrConstruct _ = constructAuthDomainRemovePath+    attrClear _ = clearAuthDomainRemovePath  type instance AttributeList AuthDomain = AuthDomainAttributeList type AuthDomainAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) +authDomainFilter :: AttrLabelProxy "filter"+authDomainFilter = AttrLabelProxy++authDomainFilterData :: AttrLabelProxy "filterData"+authDomainFilterData = AttrLabelProxy++authDomainGenericAuthCallback :: AttrLabelProxy "genericAuthCallback"+authDomainGenericAuthCallback = AttrLabelProxy++authDomainGenericAuthData :: AttrLabelProxy "genericAuthData"+authDomainGenericAuthData = AttrLabelProxy++authDomainProxy :: AttrLabelProxy "proxy"+authDomainProxy = AttrLabelProxy++authDomainRealm :: AttrLabelProxy "realm"+authDomainRealm = AttrLabelProxy+ type instance SignalList AuthDomain = AuthDomainSignalList type AuthDomainSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -404,7 +452,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -418,27 +466,28 @@     (MonadIO m, AuthDomainK a, MessageK b) =>     a                                       -- _obj     -> b                                    -- msg-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result authDomainAccepts _obj msg = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let msg' = unsafeManagedPtrCastPtr msg     result <- soup_auth_domain_accepts _obj' msg'-    checkUnexpectedReturnNULL "soup_auth_domain_accepts" result-    result' <- cstringToText result-    freeMem result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''     touchManagedPtr _obj     touchManagedPtr msg-    return result'+    return maybeResult  data AuthDomainAcceptsMethodInfo-instance (signature ~ (b -> m T.Text), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainAcceptsMethodInfo a signature where+instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainAcceptsMethodInfo a signature where     overloadedMethod _ = authDomainAccepts  -- method AuthDomain::add_path -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -467,16 +516,16 @@  -- method AuthDomain::basic_set_auth_callback -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback ::      Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"     FunPtr AuthDomainBasicAuthCallbackC ->  -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr () ->                               -- user_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"     IO () @@ -503,7 +552,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -534,7 +583,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -574,7 +623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -604,16 +653,16 @@  -- method AuthDomain::digest_set_auth_callback -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback ::      Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"     FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr () ->                               -- user_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"     IO () @@ -640,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -669,7 +718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -698,16 +747,16 @@  -- method AuthDomain::set_filter -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter ::      Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"     FunPtr AuthDomainFilterC ->             -- filter : TInterface "Soup" "AuthDomainFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid+    Ptr () ->                               -- filter_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"     IO () @@ -732,16 +781,16 @@  -- method AuthDomain::set_generic_auth_callback -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback ::      Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"     FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback"-    Ptr () ->                               -- auth_data : TBasicType TVoid+    Ptr () ->                               -- auth_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"     IO () @@ -768,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthDomain where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -19,6 +19,7 @@  -- * Properties -- ** AuthCallback     AuthDomainBasicAuthCallbackPropertyInfo ,+    authDomainBasicAuthCallback             ,     constructAuthDomainBasicAuthCallback    ,     getAuthDomainBasicAuthCallback          ,     setAuthDomainBasicAuthCallback          ,@@ -26,6 +27,7 @@  -- ** AuthData     AuthDomainBasicAuthDataPropertyInfo     ,+    authDomainBasicAuthData                 ,     constructAuthDomainBasicAuthData        ,     getAuthDomainBasicAuthData              ,     setAuthDomainBasicAuthData              ,@@ -35,9 +37,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -113,16 +115,17 @@ #endif  -- VVV Prop "auth-callback"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" -setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()+setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> Ptr () -> m () setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val -constructAuthDomainBasicAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainBasicAuthCallback :: Ptr () -> IO ([Char], GValue) constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val  data AuthDomainBasicAuthCallbackPropertyInfo@@ -135,18 +138,20 @@     attrGet _ = getAuthDomainBasicAuthCallback     attrSet _ = setAuthDomainBasicAuthCallback     attrConstruct _ = constructAuthDomainBasicAuthCallback+    attrClear _ = undefined  -- VVV Prop "auth-data"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" -setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m ()+setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> Ptr () -> m () setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val -constructAuthDomainBasicAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainBasicAuthData :: Ptr () -> IO ([Char], GValue) constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val  data AuthDomainBasicAuthDataPropertyInfo@@ -159,9 +164,16 @@     attrGet _ = getAuthDomainBasicAuthData     attrSet _ = setAuthDomainBasicAuthData     attrConstruct _ = constructAuthDomainBasicAuthData+    attrClear _ = undefined  type instance AttributeList AuthDomainBasic = AuthDomainBasicAttributeList type AuthDomainBasicAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainBasicAuthCallbackPropertyInfo), '("authData", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])++authDomainBasicAuthCallback :: AttrLabelProxy "authCallback"+authDomainBasicAuthCallback = AttrLabelProxy++authDomainBasicAuthData :: AttrLabelProxy "authData"+authDomainBasicAuthData = AttrLabelProxy  type instance SignalList AuthDomainBasic = AuthDomainBasicSignalList type AuthDomainBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthDomainBasic where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -26,6 +26,7 @@  -- * Properties -- ** AuthCallback     AuthDomainDigestAuthCallbackPropertyInfo,+    authDomainDigestAuthCallback            ,     constructAuthDomainDigestAuthCallback   ,     getAuthDomainDigestAuthCallback         ,     setAuthDomainDigestAuthCallback         ,@@ -33,6 +34,7 @@  -- ** AuthData     AuthDomainDigestAuthDataPropertyInfo    ,+    authDomainDigestAuthData                ,     constructAuthDomainDigestAuthData       ,     getAuthDomainDigestAuthData             ,     setAuthDomainDigestAuthData             ,@@ -42,9 +44,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -120,16 +122,17 @@ #endif  -- VVV Prop "auth-callback"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" -setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()+setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> Ptr () -> m () setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val -constructAuthDomainDigestAuthCallback :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainDigestAuthCallback :: Ptr () -> IO ([Char], GValue) constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val  data AuthDomainDigestAuthCallbackPropertyInfo@@ -142,18 +145,20 @@     attrGet _ = getAuthDomainDigestAuthCallback     attrSet _ = setAuthDomainDigestAuthCallback     attrConstruct _ = constructAuthDomainDigestAuthCallback+    attrClear _ = undefined  -- VVV Prop "auth-data"-   -- Type: TBasicType TVoid+   -- Type: TBasicType TPtr    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" -setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m ()+setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> Ptr () -> m () setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val -constructAuthDomainDigestAuthData :: (Ptr ()) -> IO ([Char], GValue)+constructAuthDomainDigestAuthData :: Ptr () -> IO ([Char], GValue) constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val  data AuthDomainDigestAuthDataPropertyInfo@@ -166,10 +171,17 @@     attrGet _ = getAuthDomainDigestAuthData     attrSet _ = setAuthDomainDigestAuthData     attrConstruct _ = constructAuthDomainDigestAuthData+    attrClear _ = undefined  type instance AttributeList AuthDomainDigest = AuthDomainDigestAttributeList type AuthDomainDigestAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainDigestAuthCallbackPropertyInfo), '("authData", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) +authDomainDigestAuthCallback :: AttrLabelProxy "authCallback"+authDomainDigestAuthCallback = AttrLabelProxy++authDomainDigestAuthData :: AttrLabelProxy "authData"+authDomainDigestAuthData = AttrLabelProxy+ type instance SignalList AuthDomainDigest = AuthDomainDigestSignalList type AuthDomainDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -177,7 +189,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthDomainDigest where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -41,9 +41,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -177,7 +177,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthManager where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Soup.Objects.AuthNTLM where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -56,12 +56,14 @@  -- * Properties -- ** CacheDir     CacheCacheDirPropertyInfo               ,+    cacheCacheDir                           ,     constructCacheCacheDir                  ,     getCacheCacheDir                        ,   -- ** CacheType     CacheCacheTypePropertyInfo              ,+    cacheCacheType                          ,     constructCacheCacheType                 ,     getCacheCacheType                       , @@ -70,9 +72,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -149,27 +151,30 @@ -- VVV Prop "cache-dir"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m T.Text+getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m (Maybe T.Text) getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir"  constructCacheCacheDir :: T.Text -> IO ([Char], GValue)-constructCacheCacheDir val = constructObjectPropertyString "cache-dir" val+constructCacheCacheDir val = constructObjectPropertyString "cache-dir" (Just val)  data CacheCacheDirPropertyInfo instance AttrInfo CacheCacheDirPropertyInfo where-    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK-    type AttrGetType CacheCacheDirPropertyInfo = T.Text+    type AttrGetType CacheCacheDirPropertyInfo = (Maybe T.Text)     type AttrLabel CacheCacheDirPropertyInfo = "cache-dir"     attrGet _ = getCacheCacheDir     attrSet _ = undefined     attrConstruct _ = constructCacheCacheDir+    attrClear _ = undefined  -- VVV Prop "cache-type"    -- Type: TInterface "Soup" "CacheType"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type"@@ -187,10 +192,17 @@     attrGet _ = getCacheCacheType     attrSet _ = undefined     attrConstruct _ = constructCacheCacheType+    attrClear _ = undefined  type instance AttributeList Cache = CacheAttributeList type CacheAttributeList = ('[ '("cacheDir", CacheCacheDirPropertyInfo), '("cacheType", CacheCacheTypePropertyInfo)] :: [(Symbol, *)]) +cacheCacheDir :: AttrLabelProxy "cacheDir"+cacheCacheDir = AttrLabelProxy++cacheCacheType :: AttrLabelProxy "cacheType"+cacheCacheType = AttrLabelProxy+ type instance SignalList Cache = CacheSignalList type CacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -198,7 +210,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Cache"+-- returnType : Just (TInterface "Soup" "Cache") -- throws : False -- Skip return : False @@ -226,7 +238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -253,7 +265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -280,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -307,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -334,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -359,15 +371,15 @@  -- method Cache::set_max_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size ::      Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    Word32 ->                               -- max_size : TBasicType TUInt32+    Word32 ->                               -- max_size : TBasicType TUInt     IO ()  

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Cache where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Soup.Objects.ContentDecoder where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -35,9 +35,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -117,7 +117,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Soup" "ContentSniffer"+-- returnType : Just (TInterface "Soup" "ContentSniffer") -- throws : False -- Skip return : False @@ -138,7 +138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt64+-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -165,7 +165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.ContentSniffer where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -87,6 +87,7 @@ -- ** AcceptPolicy     CookieJarAcceptPolicyPropertyInfo       ,     constructCookieJarAcceptPolicy          ,+    cookieJarAcceptPolicy                   ,     getCookieJarAcceptPolicy                ,     setCookieJarAcceptPolicy                , @@ -94,6 +95,7 @@ -- ** ReadOnly     CookieJarReadOnlyPropertyInfo           ,     constructCookieJarReadOnly              ,+    cookieJarReadOnly                       ,     getCookieJarReadOnly                    ,  @@ -116,9 +118,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -247,6 +249,7 @@ -- VVV Prop "accept-policy"    -- Type: TInterface "Soup" "CookieJarAcceptPolicy"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy"@@ -267,10 +270,12 @@     attrGet _ = getCookieJarAcceptPolicy     attrSet _ = setCookieJarAcceptPolicy     attrConstruct _ = constructCookieJarAcceptPolicy+    attrClear _ = undefined  -- VVV Prop "read-only"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"@@ -288,10 +293,17 @@     attrGet _ = getCookieJarReadOnly     attrSet _ = undefined     attrConstruct _ = constructCookieJarReadOnly+    attrClear _ = undefined  type instance AttributeList CookieJar = CookieJarAttributeList type CookieJarAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) +cookieJarAcceptPolicy :: AttrLabelProxy "acceptPolicy"+cookieJarAcceptPolicy = AttrLabelProxy++cookieJarReadOnly :: AttrLabelProxy "readOnly"+cookieJarReadOnly = AttrLabelProxy+ data CookieJarChangedSignalInfo instance SignalInfo CookieJarChangedSignalInfo where     type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback@@ -304,7 +316,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Soup" "CookieJar"+-- returnType : Just (TInterface "Soup" "CookieJar") -- throws : False -- Skip return : False @@ -325,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -356,7 +368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -391,7 +403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Soup" "Cookie")+-- returnType : Just (TGSList (TInterface "Soup" "Cookie")) -- throws : False -- Skip return : False @@ -407,7 +419,6 @@ 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@@ -422,7 +433,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -453,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "CookieJarAcceptPolicy"+-- returnType : Just (TInterface "Soup" "CookieJarAcceptPolicy") -- throws : False -- Skip return : False @@ -481,7 +492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Soup" "Cookie")+-- returnType : Just (TGSList (TInterface "Soup" "Cookie")) -- throws : False -- Skip return : False @@ -503,7 +514,6 @@     let uri' = unsafeManagedPtrGetPtr uri     let forHttp' = (fromIntegral . fromEnum) forHttp     result <- soup_cookie_jar_get_cookie_list _obj' uri' forHttp'-    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookie_list" result     result' <- unpackGSList result     result'' <- mapM (wrapBoxed Cookie) result'     g_slist_free result@@ -519,7 +529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -535,28 +545,29 @@     a                                       -- _obj     -> URI                                  -- uri     -> Bool                                 -- forHttp-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result cookieJarGetCookies _obj uri forHttp = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let uri' = unsafeManagedPtrGetPtr uri     let forHttp' = (fromIntegral . fromEnum) forHttp     result <- soup_cookie_jar_get_cookies _obj' uri' forHttp'-    checkUnexpectedReturnNULL "soup_cookie_jar_get_cookies" result-    result' <- cstringToText result-    freeMem result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''     touchManagedPtr _obj     touchManagedPtr uri-    return result'+    return maybeResult  data CookieJarGetCookiesMethodInfo-instance (signature ~ (URI -> Bool -> m T.Text), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookiesMethodInfo a signature where+instance (signature ~ (URI -> Bool -> m (Maybe T.Text)), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookiesMethodInfo a signature where     overloadedMethod _ = cookieJarGetCookies  -- method CookieJar::is_persistent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -584,7 +595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -611,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -641,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -676,7 +687,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.CookieJar where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -27,6 +27,7 @@ -- ** Filename     CookieJarDBFilenamePropertyInfo         ,     constructCookieJarDBFilename            ,+    cookieJarDBFilename                     ,     getCookieJarDBFilename                  ,  @@ -34,9 +35,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -119,27 +120,32 @@ -- VVV Prop "filename"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m T.Text+getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m (Maybe T.Text) getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename"  constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarDBFilename val = constructObjectPropertyString "filename" val+constructCookieJarDBFilename val = constructObjectPropertyString "filename" (Just val)  data CookieJarDBFilenamePropertyInfo instance AttrInfo CookieJarDBFilenamePropertyInfo where-    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK-    type AttrGetType CookieJarDBFilenamePropertyInfo = T.Text+    type AttrGetType CookieJarDBFilenamePropertyInfo = (Maybe T.Text)     type AttrLabel CookieJarDBFilenamePropertyInfo = "filename"     attrGet _ = getCookieJarDBFilename     attrSet _ = undefined     attrConstruct _ = constructCookieJarDBFilename+    attrClear _ = undefined  type instance AttributeList CookieJarDB = CookieJarDBAttributeList type CookieJarDBAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) +cookieJarDBFilename :: AttrLabelProxy "filename"+cookieJarDBFilename = AttrLabelProxy+ type instance SignalList CookieJarDB = CookieJarDBSignalList type CookieJarDBSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -147,7 +153,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "CookieJarDB"+-- returnType : Just (TInterface "Soup" "CookieJarDB") -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.CookieJarDB where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -27,6 +27,7 @@ -- ** Filename     CookieJarTextFilenamePropertyInfo       ,     constructCookieJarTextFilename          ,+    cookieJarTextFilename                   ,     getCookieJarTextFilename                ,  @@ -34,9 +35,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -119,27 +120,32 @@ -- VVV Prop "filename"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m T.Text+getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m (Maybe T.Text) getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename"  constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarTextFilename val = constructObjectPropertyString "filename" val+constructCookieJarTextFilename val = constructObjectPropertyString "filename" (Just val)  data CookieJarTextFilenamePropertyInfo instance AttrInfo CookieJarTextFilenamePropertyInfo where-    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK-    type AttrGetType CookieJarTextFilenamePropertyInfo = T.Text+    type AttrGetType CookieJarTextFilenamePropertyInfo = (Maybe T.Text)     type AttrLabel CookieJarTextFilenamePropertyInfo = "filename"     attrGet _ = getCookieJarTextFilename     attrSet _ = undefined     attrConstruct _ = constructCookieJarTextFilename+    attrClear _ = undefined  type instance AttributeList CookieJarText = CookieJarTextAttributeList type CookieJarTextAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) +cookieJarTextFilename :: AttrLabelProxy "filename"+cookieJarTextFilename = AttrLabelProxy+ type instance SignalList CookieJarText = CookieJarTextSignalList type CookieJarTextSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -147,7 +153,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "CookieJarText"+-- returnType : Just (TInterface "Soup" "CookieJarText") -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.CookieJarText where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -50,9 +50,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -130,15 +130,15 @@  -- method Logger::new -- method type : Constructor--- Args : [Arg {argCName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_body_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Logger"+-- returnType : Just (TInterface "Soup" "Logger") -- throws : False -- Skip return : False  foreign import ccall "soup_logger_new" soup_logger_new ::      CUInt ->                                -- level : TInterface "Soup" "LoggerLogLevel"-    Int32 ->                                -- max_body_size : TBasicType TInt32+    Int32 ->                                -- max_body_size : TBasicType TInt     IO (Ptr Logger)  @@ -158,7 +158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -189,7 +189,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -218,16 +218,16 @@  -- method Logger::set_printer -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_logger_set_printer" soup_logger_set_printer ::      Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"     FunPtr LoggerPrinterC ->                -- printer : TInterface "Soup" "LoggerPrinter"-    Ptr () ->                               -- printer_data : TBasicType TVoid+    Ptr () ->                               -- printer_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"     IO () @@ -252,16 +252,16 @@  -- method Logger::set_request_filter -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter ::      Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"     FunPtr LoggerFilterC ->                 -- request_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid+    Ptr () ->                               -- filter_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"     IO () @@ -286,16 +286,16 @@  -- method Logger::set_response_filter -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter ::      Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"     FunPtr LoggerFilterC ->                 -- response_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TVoid+    Ptr () ->                               -- filter_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"     IO () 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Logger where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -202,6 +202,7 @@     MessageFirstPartyPropertyInfo           ,     constructMessageFirstParty              ,     getMessageFirstParty                    ,+    messageFirstParty                       ,     setMessageFirstParty                    ,  @@ -209,6 +210,7 @@     MessageFlagsPropertyInfo                ,     constructMessageFlags                   ,     getMessageFlags                         ,+    messageFlags                            ,     setMessageFlags                         ,  @@ -216,13 +218,16 @@     MessageHttpVersionPropertyInfo          ,     constructMessageHttpVersion             ,     getMessageHttpVersion                   ,+    messageHttpVersion                      ,     setMessageHttpVersion                   ,   -- ** Method     MessageMethodPropertyInfo               ,+    clearMessageMethod                      ,     constructMessageMethod                  ,     getMessageMethod                        ,+    messageMethod                           ,     setMessageMethod                        ,  @@ -230,63 +235,76 @@     MessagePriorityPropertyInfo             ,     constructMessagePriority                ,     getMessagePriority                      ,+    messagePriority                         ,     setMessagePriority                      ,   -- ** ReasonPhrase     MessageReasonPhrasePropertyInfo         ,+    clearMessageReasonPhrase                ,     constructMessageReasonPhrase            ,     getMessageReasonPhrase                  ,+    messageReasonPhrase                     ,     setMessageReasonPhrase                  ,   -- ** RequestBody     MessageRequestBodyPropertyInfo          ,     getMessageRequestBody                   ,+    messageRequestBody                      ,   -- ** RequestBodyData     MessageRequestBodyDataPropertyInfo      ,     getMessageRequestBodyData               ,+    messageRequestBodyData                  ,   -- ** RequestHeaders     MessageRequestHeadersPropertyInfo       ,     getMessageRequestHeaders                ,+    messageRequestHeaders                   ,   -- ** ResponseBody     MessageResponseBodyPropertyInfo         ,     getMessageResponseBody                  ,+    messageResponseBody                     ,   -- ** ResponseBodyData     MessageResponseBodyDataPropertyInfo     ,     getMessageResponseBodyData              ,+    messageResponseBodyData                 ,   -- ** ResponseHeaders     MessageResponseHeadersPropertyInfo      ,     getMessageResponseHeaders               ,+    messageResponseHeaders                  ,   -- ** ServerSide     MessageServerSidePropertyInfo           ,     constructMessageServerSide              ,     getMessageServerSide                    ,+    messageServerSide                       ,   -- ** StatusCode     MessageStatusCodePropertyInfo           ,     constructMessageStatusCode              ,     getMessageStatusCode                    ,+    messageStatusCode                       ,     setMessageStatusCode                    ,   -- ** TlsCertificate     MessageTlsCertificatePropertyInfo       ,+    clearMessageTlsCertificate              ,     constructMessageTlsCertificate          ,     getMessageTlsCertificate                ,+    messageTlsCertificate                   ,     setMessageTlsCertificate                ,  @@ -294,6 +312,7 @@     MessageTlsErrorsPropertyInfo            ,     constructMessageTlsErrors               ,     getMessageTlsErrors                     ,+    messageTlsErrors                        ,     setMessageTlsErrors                     ,  @@ -301,6 +320,7 @@     MessageUriPropertyInfo                  ,     constructMessageUri                     ,     getMessageUri                           ,+    messageUri                              ,     setMessageUri                           ,  @@ -479,9 +499,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -1144,15 +1164,16 @@ -- VVV Prop "first-party"    -- Type: TInterface "Soup" "URI"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI-getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI+getMessageFirstParty obj = liftIO $ checkUnexpectedNothing "getMessageFirstParty" $ getObjectPropertyBoxed obj "first-party" URI  setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val+setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" (Just val)  constructMessageFirstParty :: URI -> IO ([Char], GValue)-constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val+constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" (Just val)  data MessageFirstPartyPropertyInfo instance AttrInfo MessageFirstPartyPropertyInfo where@@ -1164,10 +1185,12 @@     attrGet _ = getMessageFirstParty     attrSet _ = setMessageFirstParty     attrConstruct _ = constructMessageFirstParty+    attrClear _ = undefined  -- VVV Prop "flags"    -- Type: TInterface "Soup" "MessageFlags"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags] getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags"@@ -1188,10 +1211,12 @@     attrGet _ = getMessageFlags     attrSet _ = setMessageFlags     attrConstruct _ = constructMessageFlags+    attrClear _ = undefined  -- VVV Prop "http-version"    -- Type: TInterface "Soup" "HTTPVersion"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version"@@ -1212,34 +1237,41 @@     attrGet _ = getMessageHttpVersion     attrSet _ = setMessageHttpVersion     attrConstruct _ = constructMessageHttpVersion+    attrClear _ = undefined  -- VVV Prop "method"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing) -getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text+getMessageMethod :: (MonadIO m, MessageK o) => o -> m (Maybe T.Text) getMessageMethod obj = liftIO $ getObjectPropertyString obj "method"  setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val+setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" (Just val)  constructMessageMethod :: T.Text -> IO ([Char], GValue)-constructMessageMethod val = constructObjectPropertyString "method" val+constructMessageMethod val = constructObjectPropertyString "method" (Just val) +clearMessageMethod :: (MonadIO m, MessageK o) => o -> m ()+clearMessageMethod obj = liftIO $ setObjectPropertyString obj "method" (Nothing :: Maybe T.Text)+ data MessageMethodPropertyInfo instance AttrInfo MessageMethodPropertyInfo where-    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK-    type AttrGetType MessageMethodPropertyInfo = T.Text+    type AttrGetType MessageMethodPropertyInfo = (Maybe T.Text)     type AttrLabel MessageMethodPropertyInfo = "method"     attrGet _ = getMessageMethod     attrSet _ = setMessageMethod     attrConstruct _ = constructMessageMethod+    attrClear _ = clearMessageMethod  -- VVV Prop "priority"    -- Type: TInterface "Soup" "MessagePriority"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority"@@ -1260,142 +1292,161 @@     attrGet _ = getMessagePriority     attrSet _ = setMessagePriority     attrConstruct _ = constructMessagePriority+    attrClear _ = undefined  -- VVV Prop "reason-phrase"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing) -getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text+getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m (Maybe T.Text) getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase"  setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val+setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" (Just val)  constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue)-constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val+constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" (Just val) +clearMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m ()+clearMessageReasonPhrase obj = liftIO $ setObjectPropertyString obj "reason-phrase" (Nothing :: Maybe T.Text)+ data MessageReasonPhrasePropertyInfo instance AttrInfo MessageReasonPhrasePropertyInfo where-    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK-    type AttrGetType MessageReasonPhrasePropertyInfo = T.Text+    type AttrGetType MessageReasonPhrasePropertyInfo = (Maybe T.Text)     type AttrLabel MessageReasonPhrasePropertyInfo = "reason-phrase"     attrGet _ = getMessageReasonPhrase     attrSet _ = setMessageReasonPhrase     attrConstruct _ = constructMessageReasonPhrase+    attrClear _ = clearMessageReasonPhrase  -- VVV Prop "request-body"    -- Type: TInterface "Soup" "MessageBody"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody+getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody) getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody  data MessageRequestBodyPropertyInfo instance AttrInfo MessageRequestBodyPropertyInfo where-    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyPropertyInfo = MessageBody+    type AttrGetType MessageRequestBodyPropertyInfo = (Maybe MessageBody)     type AttrLabel MessageRequestBodyPropertyInfo = "request-body"     attrGet _ = getMessageRequestBody     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "request-body-data"    -- Type: TInterface "GLib" "Bytes"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes+getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes) getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes  data MessageRequestBodyDataPropertyInfo instance AttrInfo MessageRequestBodyDataPropertyInfo where-    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes+    type AttrGetType MessageRequestBodyDataPropertyInfo = (Maybe GLib.Bytes)     type AttrLabel MessageRequestBodyDataPropertyInfo = "request-body-data"     attrGet _ = getMessageRequestBodyData     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "request-headers"    -- Type: TInterface "Soup" "MessageHeaders"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders+getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders) getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders  data MessageRequestHeadersPropertyInfo instance AttrInfo MessageRequestHeadersPropertyInfo where-    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK-    type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders+    type AttrGetType MessageRequestHeadersPropertyInfo = (Maybe MessageHeaders)     type AttrLabel MessageRequestHeadersPropertyInfo = "request-headers"     attrGet _ = getMessageRequestHeaders     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "response-body"    -- Type: TInterface "Soup" "MessageBody"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody+getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody) getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody  data MessageResponseBodyPropertyInfo instance AttrInfo MessageResponseBodyPropertyInfo where-    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyPropertyInfo = MessageBody+    type AttrGetType MessageResponseBodyPropertyInfo = (Maybe MessageBody)     type AttrLabel MessageResponseBodyPropertyInfo = "response-body"     attrGet _ = getMessageResponseBody     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "response-body-data"    -- Type: TInterface "GLib" "Bytes"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes+getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes) getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes  data MessageResponseBodyDataPropertyInfo instance AttrInfo MessageResponseBodyDataPropertyInfo where-    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes+    type AttrGetType MessageResponseBodyDataPropertyInfo = (Maybe GLib.Bytes)     type AttrLabel MessageResponseBodyDataPropertyInfo = "response-body-data"     attrGet _ = getMessageResponseBodyData     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "response-headers"    -- Type: TInterface "Soup" "MessageHeaders"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders+getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders) getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders  data MessageResponseHeadersPropertyInfo instance AttrInfo MessageResponseHeadersPropertyInfo where-    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) ()     type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK-    type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders+    type AttrGetType MessageResponseHeadersPropertyInfo = (Maybe MessageHeaders)     type AttrLabel MessageResponseHeadersPropertyInfo = "response-headers"     attrGet _ = getMessageResponseHeaders     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "server-side"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side"@@ -1413,19 +1464,21 @@     attrGet _ = getMessageServerSide     attrSet _ = undefined     attrConstruct _ = constructMessageServerSide+    attrClear _ = undefined  -- VVV Prop "status-code"-   -- Type: TBasicType TUInt32+   -- Type: TBasicType TUInt    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32-getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"+getMessageStatusCode obj = liftIO $ getObjectPropertyUInt32 obj "status-code"  setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m ()-setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val+setMessageStatusCode obj val = liftIO $ setObjectPropertyUInt32 obj "status-code" val  constructMessageStatusCode :: Word32 -> IO ([Char], GValue)-constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val+constructMessageStatusCode val = constructObjectPropertyUInt32 "status-code" val  data MessageStatusCodePropertyInfo instance AttrInfo MessageStatusCodePropertyInfo where@@ -1437,34 +1490,41 @@     attrGet _ = getMessageStatusCode     attrSet _ = setMessageStatusCode     attrConstruct _ = constructMessageStatusCode+    attrClear _ = undefined  -- VVV Prop "tls-certificate"    -- Type: TInterface "Gio" "TlsCertificate"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing) -getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate+getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m (Maybe Gio.TlsCertificate) getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate  setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m ()-setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val+setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" (Just val)  constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)-constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val+constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" (Just val) +clearMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m ()+clearMessageTlsCertificate obj = liftIO $ setObjectPropertyObject obj "tls-certificate" (Nothing :: Maybe Gio.TlsCertificate)+ data MessageTlsCertificatePropertyInfo instance AttrInfo MessageTlsCertificatePropertyInfo where-    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK     type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK-    type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate+    type AttrGetType MessageTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate)     type AttrLabel MessageTlsCertificatePropertyInfo = "tls-certificate"     attrGet _ = getMessageTlsCertificate     attrSet _ = setMessageTlsCertificate     attrConstruct _ = constructMessageTlsCertificate+    attrClear _ = clearMessageTlsCertificate  -- VVV Prop "tls-errors"    -- Type: TInterface "Gio" "TlsCertificateFlags"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags] getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"@@ -1485,19 +1545,21 @@     attrGet _ = getMessageTlsErrors     attrSet _ = setMessageTlsErrors     attrConstruct _ = constructMessageTlsErrors+    attrClear _ = undefined  -- VVV Prop "uri"    -- Type: TInterface "Soup" "URI"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just False,Just False)  getMessageUri :: (MonadIO m, MessageK o) => o -> m URI-getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI+getMessageUri obj = liftIO $ checkUnexpectedNothing "getMessageUri" $ getObjectPropertyBoxed obj "uri" URI  setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val+setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" (Just val)  constructMessageUri :: URI -> IO ([Char], GValue)-constructMessageUri val = constructObjectPropertyBoxed "uri" val+constructMessageUri val = constructObjectPropertyBoxed "uri" (Just val)  data MessageUriPropertyInfo instance AttrInfo MessageUriPropertyInfo where@@ -1509,10 +1571,62 @@     attrGet _ = getMessageUri     attrSet _ = setMessageUri     attrConstruct _ = constructMessageUri+    attrClear _ = undefined  type instance AttributeList Message = MessageAttributeList type MessageAttributeList = ('[ '("firstParty", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("httpVersion", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reasonPhrase", MessageReasonPhrasePropertyInfo), '("requestBody", MessageRequestBodyPropertyInfo), '("requestBodyData", MessageRequestBodyDataPropertyInfo), '("requestHeaders", MessageRequestHeadersPropertyInfo), '("responseBody", MessageResponseBodyPropertyInfo), '("responseBodyData", MessageResponseBodyDataPropertyInfo), '("responseHeaders", MessageResponseHeadersPropertyInfo), '("serverSide", MessageServerSidePropertyInfo), '("statusCode", MessageStatusCodePropertyInfo), '("tlsCertificate", MessageTlsCertificatePropertyInfo), '("tlsErrors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)]) +messageFirstParty :: AttrLabelProxy "firstParty"+messageFirstParty = AttrLabelProxy++messageFlags :: AttrLabelProxy "flags"+messageFlags = AttrLabelProxy++messageHttpVersion :: AttrLabelProxy "httpVersion"+messageHttpVersion = AttrLabelProxy++messageMethod :: AttrLabelProxy "method"+messageMethod = AttrLabelProxy++messagePriority :: AttrLabelProxy "priority"+messagePriority = AttrLabelProxy++messageReasonPhrase :: AttrLabelProxy "reasonPhrase"+messageReasonPhrase = AttrLabelProxy++messageRequestBody :: AttrLabelProxy "requestBody"+messageRequestBody = AttrLabelProxy++messageRequestBodyData :: AttrLabelProxy "requestBodyData"+messageRequestBodyData = AttrLabelProxy++messageRequestHeaders :: AttrLabelProxy "requestHeaders"+messageRequestHeaders = AttrLabelProxy++messageResponseBody :: AttrLabelProxy "responseBody"+messageResponseBody = AttrLabelProxy++messageResponseBodyData :: AttrLabelProxy "responseBodyData"+messageResponseBodyData = AttrLabelProxy++messageResponseHeaders :: AttrLabelProxy "responseHeaders"+messageResponseHeaders = AttrLabelProxy++messageServerSide :: AttrLabelProxy "serverSide"+messageServerSide = AttrLabelProxy++messageStatusCode :: AttrLabelProxy "statusCode"+messageStatusCode = AttrLabelProxy++messageTlsCertificate :: AttrLabelProxy "tlsCertificate"+messageTlsCertificate = AttrLabelProxy++messageTlsErrors :: AttrLabelProxy "tlsErrors"+messageTlsErrors = AttrLabelProxy++messageUri :: AttrLabelProxy "uri"+messageUri = AttrLabelProxy+ data MessageContentSniffedSignalInfo instance SignalInfo MessageContentSniffedSignalInfo where     type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback@@ -1590,7 +1704,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -1604,22 +1718,23 @@     (MonadIO m) =>     T.Text                                  -- method     -> T.Text                               -- uriString-    -> m Message                            -- result+    -> m (Maybe Message)                    -- result messageNew method uriString = liftIO $ do     method' <- textToCString method     uriString' <- textToCString uriString     result <- soup_message_new method' uriString'-    checkUnexpectedReturnNULL "soup_message_new" result-    result' <- (wrapObject Message) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Message) result'+        return result''     freeMem method'     freeMem uriString'-    return result'+    return maybeResult  -- method Message::new_from_uri -- method type : Constructor -- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False @@ -1646,16 +1761,16 @@  -- method Message::content_sniffed -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TPtr) (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_message_content_sniffed" soup_message_content_sniffed ::      Ptr Message ->                          -- _obj : TInterface "Soup" "Message"     CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TPtr) (TBasicType TPtr)     IO ()  @@ -1686,7 +1801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1716,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1743,7 +1858,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Address"+-- returnType : Just (TInterface "Soup" "Address") -- throws : False -- Skip return : False @@ -1772,7 +1887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "URI"+-- returnType : Just (TInterface "Soup" "URI") -- throws : False -- Skip return : False @@ -1801,7 +1916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "MessageFlags"+-- returnType : Just (TInterface "Soup" "MessageFlags") -- throws : False -- Skip return : False @@ -1829,7 +1944,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "HTTPVersion"+-- returnType : Just (TInterface "Soup" "HTTPVersion") -- throws : False -- Skip return : False @@ -1857,7 +1972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1895,7 +2010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "MessagePriority"+-- returnType : Just (TInterface "Soup" "MessagePriority") -- throws : False -- Skip return : False @@ -1923,7 +2038,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Request"+-- returnType : Just (TInterface "Soup" "Request") -- throws : False -- Skip return : False @@ -1952,7 +2067,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "URI"+-- returnType : Just (TInterface "Soup" "URI") -- throws : False -- Skip return : False @@ -1981,7 +2096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2008,7 +2123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2039,7 +2154,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2066,7 +2181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2093,7 +2208,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2121,7 +2236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2146,16 +2261,16 @@  -- method Message::set_chunk_allocator -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator ::      Ptr Message ->                          -- _obj : TInterface "Soup" "Message"     FunPtr ChunkAllocatorC ->               -- allocator : TInterface "Soup" "ChunkAllocator"-    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr () ->                               -- user_data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- destroy_notify : TInterface "GLib" "DestroyNotify"     IO () @@ -2182,7 +2297,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2213,7 +2328,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2243,7 +2358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2273,7 +2388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2301,15 +2416,15 @@  -- method Message::set_redirect -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_message_set_redirect" soup_message_set_redirect ::      Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32+    Word32 ->                               -- status_code : TBasicType TUInt     CString ->                              -- redirect_uri : TBasicType TUTF8     IO () @@ -2336,7 +2451,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2386,7 +2501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2434,15 +2549,15 @@  -- method Message::set_status -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_message_set_status" soup_message_set_status ::      Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32+    Word32 ->                               -- status_code : TBasicType TUInt     IO ()  @@ -2463,15 +2578,15 @@  -- method Message::set_status_full -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_message_set_status_full" soup_message_set_status_full ::      Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt32+    Word32 ->                               -- status_code : TBasicType TUInt     CString ->                              -- reason_phrase : TBasicType TUTF8     IO () @@ -2498,7 +2613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2529,7 +2644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2556,7 +2671,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2583,7 +2698,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2614,7 +2729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2641,7 +2756,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2668,7 +2783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Message where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -48,15 +48,16 @@     MultipartInputStreamMessagePropertyInfo ,     constructMultipartInputStreamMessage    ,     getMultipartInputStreamMessage          ,+    multipartInputStreamMessage             ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -153,27 +154,32 @@ -- VVV Prop "message"    -- Type: TInterface "Soup" "Message"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m Message+getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m (Maybe Message) getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message  constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue)-constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" val+constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" (Just val)  data MultipartInputStreamMessagePropertyInfo instance AttrInfo MultipartInputStreamMessagePropertyInfo where-    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK     type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK-    type AttrGetType MultipartInputStreamMessagePropertyInfo = Message+    type AttrGetType MultipartInputStreamMessagePropertyInfo = (Maybe Message)     type AttrLabel MultipartInputStreamMessagePropertyInfo = "message"     attrGet _ = getMultipartInputStreamMessage     attrSet _ = undefined     attrConstruct _ = constructMultipartInputStreamMessage+    attrClear _ = undefined  type instance AttributeList MultipartInputStream = MultipartInputStreamAttributeList type MultipartInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)]) +multipartInputStreamMessage :: AttrLabelProxy "message"+multipartInputStreamMessage = AttrLabelProxy+ type instance SignalList MultipartInputStream = MultipartInputStreamSignalList type MultipartInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -181,7 +187,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "MultipartInputStream"+-- returnType : Just (TInterface "Soup" "MultipartInputStream") -- throws : False -- Skip return : False @@ -210,7 +216,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "MessageHeaders"+-- returnType : Just (TInterface "Soup" "MessageHeaders") -- throws : False -- Skip return : False @@ -222,24 +228,25 @@ multipartInputStreamGetHeaders ::     (MonadIO m, MultipartInputStreamK a) =>     a                                       -- _obj-    -> m MessageHeaders                     -- result+    -> m (Maybe MessageHeaders)             -- result 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed MessageHeaders) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data MultipartInputStreamGetHeadersMethodInfo-instance (signature ~ (m MessageHeaders), MonadIO m, MultipartInputStreamK a) => MethodInfo MultipartInputStreamGetHeadersMethodInfo a signature where+instance (signature ~ (m (Maybe MessageHeaders)), MonadIO m, MultipartInputStreamK a) => MethodInfo MultipartInputStreamGetHeadersMethodInfo a signature where     overloadedMethod _ = multipartInputStreamGetHeaders  -- method MultipartInputStream::next_part -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "InputStream"+-- returnType : Just (TInterface "Gio" "InputStream") -- throws : True -- Skip return : False @@ -254,7 +261,7 @@     (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>     a                                       -- _obj     -> Maybe (b)                            -- cancellable-    -> m Gio.InputStream                    -- result+    -> m (Maybe Gio.InputStream)            -- result multipartInputStreamNextPart _obj cancellable = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeCancellable <- case cancellable of@@ -264,33 +271,34 @@             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+        maybeResult <- convertIfNonNull result $ \result' -> do+            result'' <- (wrapObject Gio.InputStream) result'+            return result''         touchManagedPtr _obj         whenJust cancellable touchManagedPtr-        return result'+        return maybeResult      ) (do         return ()      )  data MultipartInputStreamNextPartMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.InputStream), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartMethodInfo a signature where+instance (signature ~ (Maybe (b) -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartMethodInfo a signature where     overloadedMethod _ = multipartInputStreamNextPart  -- method MultipartInputStream::next_part_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async ::      Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Int32 ->                                -- io_priority : TBasicType TInt32+    Int32 ->                                -- io_priority : TBasicType TInt     Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"     FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     IO ()  @@ -329,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "InputStream"+-- returnType : Just (TInterface "Gio" "InputStream") -- throws : True -- Skip return : False @@ -344,23 +352,24 @@     (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) =>     a                                       -- _obj     -> b                                    -- result_-    -> m Gio.InputStream                    -- result+    -> m (Maybe Gio.InputStream)            -- result multipartInputStreamNextPartFinish _obj result_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let result_' = unsafeManagedPtrCastPtr result_     onException (do         result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part_finish" result-        result' <- (wrapObject Gio.InputStream) result+        maybeResult <- convertIfNonNull result $ \result' -> do+            result'' <- (wrapObject Gio.InputStream) result'+            return result''         touchManagedPtr _obj         touchManagedPtr result_-        return result'+        return maybeResult      ) (do         return ()      )  data MultipartInputStreamNextPartFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream), MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => MethodInfo MultipartInputStreamNextPartFinishMethodInfo a signature where+instance (signature ~ (b -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => MethodInfo MultipartInputStreamNextPartFinishMethodInfo a signature where     overloadedMethod _ = multipartInputStreamNextPartFinish  

@@ -1,8 +1,8 @@ module GI.Soup.Objects.MultipartInputStream where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -19,7 +19,9 @@  -- * Properties -- ** GproxyResolver     ProxyResolverDefaultGproxyResolverPropertyInfo,+    clearProxyResolverDefaultGproxyResolver ,     constructProxyResolverDefaultGproxyResolver,+    proxyResolverDefaultGproxyResolver      ,     setProxyResolverDefaultGproxyResolver   ,  @@ -27,9 +29,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -103,16 +105,20 @@ -- VVV Prop "gproxy-resolver"    -- Type: TInterface "Gio" "ProxyResolver"    -- Flags: [PropertyWritable]+   -- Nullable: (Nothing,Nothing)  setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m ()-setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" val+setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Just val)  constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)-constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" val+constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" (Just val) +clearProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o) => o -> m ()+clearProxyResolverDefaultGproxyResolver obj = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Nothing :: Maybe Gio.ProxyResolver)+ data ProxyResolverDefaultGproxyResolverPropertyInfo instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where-    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct]+    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]     type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK     type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK     type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = ()@@ -120,9 +126,13 @@     attrGet _ = undefined     attrSet _ = setProxyResolverDefaultGproxyResolver     attrConstruct _ = constructProxyResolverDefaultGproxyResolver+    attrClear _ = clearProxyResolverDefaultGproxyResolver  type instance AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList type ProxyResolverDefaultAttributeList = ('[ '("gproxyResolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)])++proxyResolverDefaultGproxyResolver :: AttrLabelProxy "gproxyResolver"+proxyResolverDefaultGproxyResolver = AttrLabelProxy  type instance SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])

@@ -1,8 +1,8 @@ module GI.Soup.Objects.ProxyResolverDefault where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -59,21 +59,23 @@     RequestSessionPropertyInfo              ,     constructRequestSession                 ,     getRequestSession                       ,+    requestSession                          ,   -- ** Uri     RequestUriPropertyInfo                  ,     constructRequestUri                     ,     getRequestUri                           ,+    requestUri                              ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -148,16 +150,17 @@ -- VVV Prop "session"    -- Type: TInterface "Soup" "Session"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getRequestSession :: (MonadIO m, RequestK o) => o -> m Session-getRequestSession obj = liftIO $ getObjectPropertyObject obj "session" Session+getRequestSession obj = liftIO $ checkUnexpectedNothing "getRequestSession" $ getObjectPropertyObject obj "session" Session  constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue)-constructRequestSession val = constructObjectPropertyObject "session" val+constructRequestSession val = constructObjectPropertyObject "session" (Just val)  data RequestSessionPropertyInfo instance AttrInfo RequestSessionPropertyInfo where-    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK     type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK     type AttrGetType RequestSessionPropertyInfo = Session@@ -165,20 +168,22 @@     attrGet _ = getRequestSession     attrSet _ = undefined     attrConstruct _ = constructRequestSession+    attrClear _ = undefined  -- VVV Prop "uri"    -- Type: TInterface "Soup" "URI"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getRequestUri :: (MonadIO m, RequestK o) => o -> m URI-getRequestUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI+getRequestUri obj = liftIO $ checkUnexpectedNothing "getRequestUri" $ getObjectPropertyBoxed obj "uri" URI  constructRequestUri :: URI -> IO ([Char], GValue)-constructRequestUri val = constructObjectPropertyBoxed "uri" val+constructRequestUri val = constructObjectPropertyBoxed "uri" (Just val)  data RequestUriPropertyInfo instance AttrInfo RequestUriPropertyInfo where-    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI     type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK     type AttrGetType RequestUriPropertyInfo = URI@@ -186,10 +191,17 @@     attrGet _ = getRequestUri     attrSet _ = undefined     attrConstruct _ = constructRequestUri+    attrClear _ = undefined  type instance AttributeList Request = RequestAttributeList type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) +requestSession :: AttrLabelProxy "session"+requestSession = AttrLabelProxy++requestUri :: AttrLabelProxy "uri"+requestUri = AttrLabelProxy+ type instance SignalList Request = RequestSignalList type RequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -197,7 +209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt64+-- returnType : Just (TBasicType TInt64) -- throws : False -- Skip return : False @@ -224,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -236,24 +248,25 @@ requestGetContentType ::     (MonadIO m, RequestK a) =>     a                                       -- _obj-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data RequestGetContentTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, RequestK a) => MethodInfo RequestGetContentTypeMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, RequestK a) => MethodInfo RequestGetContentTypeMethodInfo a signature where     overloadedMethod _ = requestGetContentType  -- method Request::get_session -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Session"+-- returnType : Just (TInterface "Soup" "Session") -- throws : False -- Skip return : False @@ -282,7 +295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "URI"+-- returnType : Just (TInterface "Soup" "URI") -- throws : False -- Skip return : False @@ -311,7 +324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "InputStream"+-- returnType : Just (TInterface "Gio" "InputStream") -- throws : True -- Skip return : False @@ -351,9 +364,9 @@  -- method Request::send_async -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -361,7 +374,7 @@     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+    Ptr () ->                               -- user_data : TBasicType TPtr     IO ()  @@ -399,7 +412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "InputStream"+-- returnType : Just (TInterface "Gio" "InputStream") -- throws : True -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.Request where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Soup.Objects.RequestData where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -26,9 +26,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -111,7 +111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gio" "File"+-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Soup.Objects.RequestFile where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -26,9 +26,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -111,7 +111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Soup" "Message"+-- returnType : Just (TInterface "Soup" "Message") -- throws : False -- Skip return : False