{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.Soup.Objects.Message ( -- * Exported types Message(..) , MessageK , toMessage , noMessage , -- * Methods -- ** messageContentSniffed messageContentSniffed , -- ** messageDisableFeature messageDisableFeature , -- ** messageFinished messageFinished , -- ** messageGetAddress messageGetAddress , -- ** messageGetFirstParty messageGetFirstParty , -- ** messageGetFlags messageGetFlags , -- ** messageGetHttpVersion messageGetHttpVersion , -- ** messageGetHttpsStatus messageGetHttpsStatus , -- ** messageGetPriority messageGetPriority , -- ** messageGetSoupRequest messageGetSoupRequest , -- ** messageGetUri messageGetUri , -- ** messageGotBody messageGotBody , -- ** messageGotChunk messageGotChunk , -- ** messageGotHeaders messageGotHeaders , -- ** messageGotInformational messageGotInformational , -- ** messageIsKeepalive messageIsKeepalive , -- ** messageNew messageNew , -- ** messageNewFromUri messageNewFromUri , -- ** messageRestarted messageRestarted , -- ** messageSetChunkAllocator messageSetChunkAllocator , -- ** messageSetFirstParty messageSetFirstParty , -- ** messageSetFlags messageSetFlags , -- ** messageSetHttpVersion messageSetHttpVersion , -- ** messageSetPriority messageSetPriority , -- ** messageSetRedirect messageSetRedirect , -- ** messageSetRequest messageSetRequest , -- ** messageSetResponse messageSetResponse , -- ** messageSetStatus messageSetStatus , -- ** messageSetStatusFull messageSetStatusFull , -- ** messageSetUri messageSetUri , -- ** messageStarting messageStarting , -- ** messageWroteBody messageWroteBody , -- ** messageWroteBodyData messageWroteBodyData , -- ** messageWroteChunk messageWroteChunk , -- ** messageWroteHeaders messageWroteHeaders , -- ** messageWroteInformational messageWroteInformational , -- * Properties -- ** FirstParty MessageFirstPartyPropertyInfo , constructMessageFirstParty , getMessageFirstParty , setMessageFirstParty , -- ** Flags MessageFlagsPropertyInfo , constructMessageFlags , getMessageFlags , setMessageFlags , -- ** HttpVersion MessageHttpVersionPropertyInfo , constructMessageHttpVersion , getMessageHttpVersion , setMessageHttpVersion , -- ** Method MessageMethodPropertyInfo , constructMessageMethod , getMessageMethod , setMessageMethod , -- ** Priority MessagePriorityPropertyInfo , constructMessagePriority , getMessagePriority , setMessagePriority , -- ** ReasonPhrase MessageReasonPhrasePropertyInfo , constructMessageReasonPhrase , getMessageReasonPhrase , setMessageReasonPhrase , -- ** RequestBody MessageRequestBodyPropertyInfo , getMessageRequestBody , -- ** RequestBodyData MessageRequestBodyDataPropertyInfo , getMessageRequestBodyData , -- ** RequestHeaders MessageRequestHeadersPropertyInfo , getMessageRequestHeaders , -- ** ResponseBody MessageResponseBodyPropertyInfo , getMessageResponseBody , -- ** ResponseBodyData MessageResponseBodyDataPropertyInfo , getMessageResponseBodyData , -- ** ResponseHeaders MessageResponseHeadersPropertyInfo , getMessageResponseHeaders , -- ** ServerSide MessageServerSidePropertyInfo , constructMessageServerSide , getMessageServerSide , -- ** StatusCode MessageStatusCodePropertyInfo , constructMessageStatusCode , getMessageStatusCode , setMessageStatusCode , -- ** TlsCertificate MessageTlsCertificatePropertyInfo , constructMessageTlsCertificate , getMessageTlsCertificate , setMessageTlsCertificate , -- ** TlsErrors MessageTlsErrorsPropertyInfo , constructMessageTlsErrors , getMessageTlsErrors , setMessageTlsErrors , -- ** Uri MessageUriPropertyInfo , constructMessageUri , getMessageUri , setMessageUri , -- * Signals -- ** ContentSniffed MessageContentSniffedCallback , MessageContentSniffedCallbackC , MessageContentSniffedSignalInfo , afterMessageContentSniffed , messageContentSniffedCallbackWrapper , messageContentSniffedClosure , mkMessageContentSniffedCallback , noMessageContentSniffedCallback , onMessageContentSniffed , -- ** Finished MessageFinishedCallback , MessageFinishedCallbackC , MessageFinishedSignalInfo , afterMessageFinished , messageFinishedCallbackWrapper , messageFinishedClosure , mkMessageFinishedCallback , noMessageFinishedCallback , onMessageFinished , -- ** GotBody MessageGotBodyCallback , MessageGotBodyCallbackC , MessageGotBodySignalInfo , afterMessageGotBody , messageGotBodyCallbackWrapper , messageGotBodyClosure , mkMessageGotBodyCallback , noMessageGotBodyCallback , onMessageGotBody , -- ** GotChunk MessageGotChunkCallback , MessageGotChunkCallbackC , MessageGotChunkSignalInfo , afterMessageGotChunk , messageGotChunkCallbackWrapper , messageGotChunkClosure , mkMessageGotChunkCallback , noMessageGotChunkCallback , onMessageGotChunk , -- ** GotHeaders MessageGotHeadersCallback , MessageGotHeadersCallbackC , MessageGotHeadersSignalInfo , afterMessageGotHeaders , messageGotHeadersCallbackWrapper , messageGotHeadersClosure , mkMessageGotHeadersCallback , noMessageGotHeadersCallback , onMessageGotHeaders , -- ** GotInformational MessageGotInformationalCallback , MessageGotInformationalCallbackC , MessageGotInformationalSignalInfo , afterMessageGotInformational , messageGotInformationalCallbackWrapper , messageGotInformationalClosure , mkMessageGotInformationalCallback , noMessageGotInformationalCallback , onMessageGotInformational , -- ** NetworkEvent MessageNetworkEventCallback , MessageNetworkEventCallbackC , MessageNetworkEventSignalInfo , afterMessageNetworkEvent , messageNetworkEventCallbackWrapper , messageNetworkEventClosure , mkMessageNetworkEventCallback , noMessageNetworkEventCallback , onMessageNetworkEvent , -- ** Restarted MessageRestartedCallback , MessageRestartedCallbackC , MessageRestartedSignalInfo , afterMessageRestarted , messageRestartedCallbackWrapper , messageRestartedClosure , mkMessageRestartedCallback , noMessageRestartedCallback , onMessageRestarted , -- ** Starting MessageStartingCallback , MessageStartingCallbackC , MessageStartingSignalInfo , afterMessageStarting , messageStartingCallbackWrapper , messageStartingClosure , mkMessageStartingCallback , noMessageStartingCallback , onMessageStarting , -- ** WroteBody MessageWroteBodyCallback , MessageWroteBodyCallbackC , MessageWroteBodySignalInfo , afterMessageWroteBody , messageWroteBodyCallbackWrapper , messageWroteBodyClosure , mkMessageWroteBodyCallback , noMessageWroteBodyCallback , onMessageWroteBody , -- ** WroteBodyData MessageWroteBodyDataCallback , MessageWroteBodyDataCallbackC , MessageWroteBodyDataSignalInfo , afterMessageWroteBodyData , messageWroteBodyDataCallbackWrapper , messageWroteBodyDataClosure , mkMessageWroteBodyDataCallback , noMessageWroteBodyDataCallback , onMessageWroteBodyData , -- ** WroteChunk MessageWroteChunkCallback , MessageWroteChunkCallbackC , MessageWroteChunkSignalInfo , afterMessageWroteChunk , messageWroteChunkCallbackWrapper , messageWroteChunkClosure , mkMessageWroteChunkCallback , noMessageWroteChunkCallback , onMessageWroteChunk , -- ** WroteHeaders MessageWroteHeadersCallback , MessageWroteHeadersCallbackC , MessageWroteHeadersSignalInfo , afterMessageWroteHeaders , messageWroteHeadersCallbackWrapper , messageWroteHeadersClosure , mkMessageWroteHeadersCallback , noMessageWroteHeadersCallback , onMessageWroteHeaders , -- ** WroteInformational MessageWroteInformationalCallback , MessageWroteInformationalCallbackC , MessageWroteInformationalSignalInfo , afterMessageWroteInformational , messageWroteInformationalCallbackWrapper, messageWroteInformationalClosure , mkMessageWroteInformationalCallback , noMessageWroteInformationalCallback , onMessageWroteInformational , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.Soup.Types import GI.Soup.Callbacks import qualified GI.GLib as GLib import qualified GI.GObject as GObject import qualified GI.Gio as Gio newtype Message = Message (ForeignPtr Message) foreign import ccall "soup_message_get_type" c_soup_message_get_type :: IO GType type instance ParentTypes Message = MessageParentTypes type MessageParentTypes = '[GObject.Object] instance GObject Message where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_soup_message_get_type class GObject o => MessageK o instance (GObject o, IsDescendantOf Message o) => MessageK o toMessage :: MessageK o => o -> IO Message toMessage = unsafeCastTo Message noMessage :: Maybe Message noMessage = Nothing -- signal Message::content-sniffed type MessageContentSniffedCallback = T.Text -> Map.Map T.Text T.Text -> IO () noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback noMessageContentSniffedCallback = Nothing type MessageContentSniffedCallbackC = Ptr () -> -- object CString -> Ptr (GHashTable CString CString) -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC) messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped where wrapped = messageContentSniffedCallbackWrapper cb messageContentSniffedCallbackWrapper :: MessageContentSniffedCallback -> Ptr () -> CString -> Ptr (GHashTable CString CString) -> Ptr () -> IO () messageContentSniffedCallbackWrapper _cb _ type_ params _ = do type_' <- cstringToText type_ params' <- unpackGHashTable params let params'' = mapFirst cstringUnpackPtr params' params''' <- mapFirstA cstringToText params'' let params'''' = mapSecond cstringUnpackPtr params''' params''''' <- mapSecondA cstringToText params'''' let params'''''' = Map.fromList params''''' _cb type_' params'''''' onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter connectMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId connectMessageContentSniffed obj cb after = liftIO $ do cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb) connectSignalFunPtr obj "content-sniffed" cb' after -- signal Message::finished type MessageFinishedCallback = IO () noMessageFinishedCallback :: Maybe MessageFinishedCallback noMessageFinishedCallback = Nothing type MessageFinishedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC) messageFinishedClosure :: MessageFinishedCallback -> IO Closure messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped where wrapped = messageFinishedCallbackWrapper cb messageFinishedCallbackWrapper :: MessageFinishedCallback -> Ptr () -> Ptr () -> IO () messageFinishedCallbackWrapper _cb _ _ = do _cb onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter connectMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId connectMessageFinished obj cb after = liftIO $ do cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb) connectSignalFunPtr obj "finished" cb' after -- signal Message::got-body type MessageGotBodyCallback = IO () noMessageGotBodyCallback :: Maybe MessageGotBodyCallback noMessageGotBodyCallback = Nothing type MessageGotBodyCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC) messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped where wrapped = messageGotBodyCallbackWrapper cb messageGotBodyCallbackWrapper :: MessageGotBodyCallback -> Ptr () -> Ptr () -> IO () messageGotBodyCallbackWrapper _cb _ _ = do _cb onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter connectMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId connectMessageGotBody obj cb after = liftIO $ do cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb) connectSignalFunPtr obj "got-body" cb' after -- signal Message::got-chunk type MessageGotChunkCallback = Buffer -> IO () noMessageGotChunkCallback :: Maybe MessageGotChunkCallback noMessageGotChunkCallback = Nothing type MessageGotChunkCallbackC = Ptr () -> -- object Ptr Buffer -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC) messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped where wrapped = messageGotChunkCallbackWrapper cb messageGotChunkCallbackWrapper :: MessageGotChunkCallback -> Ptr () -> Ptr Buffer -> Ptr () -> IO () messageGotChunkCallbackWrapper _cb _ chunk _ = do chunk' <- (newBoxed Buffer) chunk _cb chunk' onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter connectMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId connectMessageGotChunk obj cb after = liftIO $ do cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb) connectSignalFunPtr obj "got-chunk" cb' after -- signal Message::got-headers type MessageGotHeadersCallback = IO () noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback noMessageGotHeadersCallback = Nothing type MessageGotHeadersCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC) messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped where wrapped = messageGotHeadersCallbackWrapper cb messageGotHeadersCallbackWrapper :: MessageGotHeadersCallback -> Ptr () -> Ptr () -> IO () messageGotHeadersCallbackWrapper _cb _ _ = do _cb onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter connectMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId connectMessageGotHeaders obj cb after = liftIO $ do cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb) connectSignalFunPtr obj "got-headers" cb' after -- signal Message::got-informational type MessageGotInformationalCallback = IO () noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback noMessageGotInformationalCallback = Nothing type MessageGotInformationalCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC) messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped where wrapped = messageGotInformationalCallbackWrapper cb messageGotInformationalCallbackWrapper :: MessageGotInformationalCallback -> Ptr () -> Ptr () -> IO () messageGotInformationalCallbackWrapper _cb _ _ = do _cb onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter connectMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId connectMessageGotInformational obj cb after = liftIO $ do cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb) connectSignalFunPtr obj "got-informational" cb' after -- signal Message::network-event type MessageNetworkEventCallback = Gio.SocketClientEvent -> Gio.IOStream -> IO () noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback noMessageNetworkEventCallback = Nothing type MessageNetworkEventCallbackC = Ptr () -> -- object CUInt -> Ptr Gio.IOStream -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC) messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped where wrapped = messageNetworkEventCallbackWrapper cb messageNetworkEventCallbackWrapper :: MessageNetworkEventCallback -> Ptr () -> CUInt -> Ptr Gio.IOStream -> Ptr () -> IO () messageNetworkEventCallbackWrapper _cb _ event connection _ = do let event' = (toEnum . fromIntegral) event connection' <- (newObject Gio.IOStream) connection _cb event' connection' onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter connectMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId connectMessageNetworkEvent obj cb after = liftIO $ do cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb) connectSignalFunPtr obj "network-event" cb' after -- signal Message::restarted type MessageRestartedCallback = IO () noMessageRestartedCallback :: Maybe MessageRestartedCallback noMessageRestartedCallback = Nothing type MessageRestartedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC) messageRestartedClosure :: MessageRestartedCallback -> IO Closure messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped where wrapped = messageRestartedCallbackWrapper cb messageRestartedCallbackWrapper :: MessageRestartedCallback -> Ptr () -> Ptr () -> IO () messageRestartedCallbackWrapper _cb _ _ = do _cb onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter connectMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId connectMessageRestarted obj cb after = liftIO $ do cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb) connectSignalFunPtr obj "restarted" cb' after -- signal Message::starting type MessageStartingCallback = IO () noMessageStartingCallback :: Maybe MessageStartingCallback noMessageStartingCallback = Nothing type MessageStartingCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC) messageStartingClosure :: MessageStartingCallback -> IO Closure messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped where wrapped = messageStartingCallbackWrapper cb messageStartingCallbackWrapper :: MessageStartingCallback -> Ptr () -> Ptr () -> IO () messageStartingCallbackWrapper _cb _ _ = do _cb onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter connectMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId connectMessageStarting obj cb after = liftIO $ do cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb) connectSignalFunPtr obj "starting" cb' after -- signal Message::wrote-body type MessageWroteBodyCallback = IO () noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback noMessageWroteBodyCallback = Nothing type MessageWroteBodyCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC) messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped where wrapped = messageWroteBodyCallbackWrapper cb messageWroteBodyCallbackWrapper :: MessageWroteBodyCallback -> Ptr () -> Ptr () -> IO () messageWroteBodyCallbackWrapper _cb _ _ = do _cb onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter connectMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId connectMessageWroteBody obj cb after = liftIO $ do cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb) connectSignalFunPtr obj "wrote-body" cb' after -- signal Message::wrote-body-data type MessageWroteBodyDataCallback = Buffer -> IO () noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback noMessageWroteBodyDataCallback = Nothing type MessageWroteBodyDataCallbackC = Ptr () -> -- object Ptr Buffer -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC) messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped where wrapped = messageWroteBodyDataCallbackWrapper cb messageWroteBodyDataCallbackWrapper :: MessageWroteBodyDataCallback -> Ptr () -> Ptr Buffer -> Ptr () -> IO () messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do chunk' <- (newBoxed Buffer) chunk _cb chunk' onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter connectMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId connectMessageWroteBodyData obj cb after = liftIO $ do cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb) connectSignalFunPtr obj "wrote-body-data" cb' after -- signal Message::wrote-chunk type MessageWroteChunkCallback = IO () noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback noMessageWroteChunkCallback = Nothing type MessageWroteChunkCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC) messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped where wrapped = messageWroteChunkCallbackWrapper cb messageWroteChunkCallbackWrapper :: MessageWroteChunkCallback -> Ptr () -> Ptr () -> IO () messageWroteChunkCallbackWrapper _cb _ _ = do _cb onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter connectMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId connectMessageWroteChunk obj cb after = liftIO $ do cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb) connectSignalFunPtr obj "wrote-chunk" cb' after -- signal Message::wrote-headers type MessageWroteHeadersCallback = IO () noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback noMessageWroteHeadersCallback = Nothing type MessageWroteHeadersCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC) messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped where wrapped = messageWroteHeadersCallbackWrapper cb messageWroteHeadersCallbackWrapper :: MessageWroteHeadersCallback -> Ptr () -> Ptr () -> IO () messageWroteHeadersCallbackWrapper _cb _ _ = do _cb onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter connectMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId connectMessageWroteHeaders obj cb after = liftIO $ do cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb) connectSignalFunPtr obj "wrote-headers" cb' after -- signal Message::wrote-informational type MessageWroteInformationalCallback = IO () noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback noMessageWroteInformationalCallback = Nothing type MessageWroteInformationalCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC) messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped where wrapped = messageWroteInformationalCallbackWrapper cb messageWroteInformationalCallbackWrapper :: MessageWroteInformationalCallback -> Ptr () -> Ptr () -> IO () messageWroteInformationalCallbackWrapper _cb _ _ = do _cb onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter connectMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId connectMessageWroteInformational obj cb after = liftIO $ do cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb) connectSignalFunPtr obj "wrote-informational" cb' after -- VVV Prop "first-party" -- Type: TInterface "Soup" "URI" -- Flags: [PropertyReadable,PropertyWritable] getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m () setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val constructMessageFirstParty :: URI -> IO ([Char], GValue) constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val data MessageFirstPartyPropertyInfo instance AttrInfo MessageFirstPartyPropertyInfo where type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK type AttrGetType MessageFirstPartyPropertyInfo = URI type AttrLabel MessageFirstPartyPropertyInfo = "Message::first-party" attrGet _ = getMessageFirstParty attrSet _ = setMessageFirstParty attrConstruct _ = constructMessageFirstParty -- VVV Prop "flags" -- Type: TInterface "Soup" "MessageFlags" -- Flags: [PropertyReadable,PropertyWritable] getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags] getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags" setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m () setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue) constructMessageFlags val = constructObjectPropertyFlags "flags" val data MessageFlagsPropertyInfo instance AttrInfo MessageFlagsPropertyInfo where type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags] type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK type AttrGetType MessageFlagsPropertyInfo = [MessageFlags] type AttrLabel MessageFlagsPropertyInfo = "Message::flags" attrGet _ = getMessageFlags attrSet _ = setMessageFlags attrConstruct _ = constructMessageFlags -- VVV Prop "http-version" -- Type: TInterface "Soup" "HTTPVersion" -- Flags: [PropertyReadable,PropertyWritable] getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version" setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m () setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue) constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val data MessageHttpVersionPropertyInfo instance AttrInfo MessageHttpVersionPropertyInfo where type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion type AttrLabel MessageHttpVersionPropertyInfo = "Message::http-version" attrGet _ = getMessageHttpVersion attrSet _ = setMessageHttpVersion attrConstruct _ = constructMessageHttpVersion -- VVV Prop "method" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text getMessageMethod obj = liftIO $ getObjectPropertyString obj "method" setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m () setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val constructMessageMethod :: T.Text -> IO ([Char], GValue) constructMessageMethod val = constructObjectPropertyString "method" val data MessageMethodPropertyInfo instance AttrInfo MessageMethodPropertyInfo where type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK type AttrGetType MessageMethodPropertyInfo = T.Text type AttrLabel MessageMethodPropertyInfo = "Message::method" attrGet _ = getMessageMethod attrSet _ = setMessageMethod attrConstruct _ = constructMessageMethod -- VVV Prop "priority" -- Type: TInterface "Soup" "MessagePriority" -- Flags: [PropertyReadable,PropertyWritable] getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority" setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m () setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val constructMessagePriority :: MessagePriority -> IO ([Char], GValue) constructMessagePriority val = constructObjectPropertyEnum "priority" val data MessagePriorityPropertyInfo instance AttrInfo MessagePriorityPropertyInfo where type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK type AttrGetType MessagePriorityPropertyInfo = MessagePriority type AttrLabel MessagePriorityPropertyInfo = "Message::priority" attrGet _ = getMessagePriority attrSet _ = setMessagePriority attrConstruct _ = constructMessagePriority -- VVV Prop "reason-phrase" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase" setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m () setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue) constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val data MessageReasonPhrasePropertyInfo instance AttrInfo MessageReasonPhrasePropertyInfo where type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK type AttrGetType MessageReasonPhrasePropertyInfo = T.Text type AttrLabel MessageReasonPhrasePropertyInfo = "Message::reason-phrase" attrGet _ = getMessageReasonPhrase attrSet _ = setMessageReasonPhrase attrConstruct _ = constructMessageReasonPhrase -- VVV Prop "request-body" -- Type: TInterface "Soup" "MessageBody" -- Flags: [PropertyReadable] getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody data MessageRequestBodyPropertyInfo instance AttrInfo MessageRequestBodyPropertyInfo where type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) () type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK type AttrGetType MessageRequestBodyPropertyInfo = MessageBody type AttrLabel MessageRequestBodyPropertyInfo = "Message::request-body" attrGet _ = getMessageRequestBody attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "request-body-data" -- Type: TInterface "GLib" "Bytes" -- Flags: [PropertyReadable] getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes data MessageRequestBodyDataPropertyInfo instance AttrInfo MessageRequestBodyDataPropertyInfo where type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) () type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes type AttrLabel MessageRequestBodyDataPropertyInfo = "Message::request-body-data" attrGet _ = getMessageRequestBodyData attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "request-headers" -- Type: TInterface "Soup" "MessageHeaders" -- Flags: [PropertyReadable] getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders data MessageRequestHeadersPropertyInfo instance AttrInfo MessageRequestHeadersPropertyInfo where type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) () type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders type AttrLabel MessageRequestHeadersPropertyInfo = "Message::request-headers" attrGet _ = getMessageRequestHeaders attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "response-body" -- Type: TInterface "Soup" "MessageBody" -- Flags: [PropertyReadable] getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody data MessageResponseBodyPropertyInfo instance AttrInfo MessageResponseBodyPropertyInfo where type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) () type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK type AttrGetType MessageResponseBodyPropertyInfo = MessageBody type AttrLabel MessageResponseBodyPropertyInfo = "Message::response-body" attrGet _ = getMessageResponseBody attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "response-body-data" -- Type: TInterface "GLib" "Bytes" -- Flags: [PropertyReadable] getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes data MessageResponseBodyDataPropertyInfo instance AttrInfo MessageResponseBodyDataPropertyInfo where type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) () type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes type AttrLabel MessageResponseBodyDataPropertyInfo = "Message::response-body-data" attrGet _ = getMessageResponseBodyData attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "response-headers" -- Type: TInterface "Soup" "MessageHeaders" -- Flags: [PropertyReadable] getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders data MessageResponseHeadersPropertyInfo instance AttrInfo MessageResponseHeadersPropertyInfo where type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) () type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders type AttrLabel MessageResponseHeadersPropertyInfo = "Message::response-headers" attrGet _ = getMessageResponseHeaders attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "server-side" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side" constructMessageServerSide :: Bool -> IO ([Char], GValue) constructMessageServerSide val = constructObjectPropertyBool "server-side" val data MessageServerSidePropertyInfo instance AttrInfo MessageServerSidePropertyInfo where type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK type AttrGetType MessageServerSidePropertyInfo = Bool type AttrLabel MessageServerSidePropertyInfo = "Message::server-side" attrGet _ = getMessageServerSide attrSet _ = undefined attrConstruct _ = constructMessageServerSide -- VVV Prop "status-code" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32 getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code" setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m () setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val constructMessageStatusCode :: Word32 -> IO ([Char], GValue) constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val data MessageStatusCodePropertyInfo instance AttrInfo MessageStatusCodePropertyInfo where type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32 type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK type AttrGetType MessageStatusCodePropertyInfo = Word32 type AttrLabel MessageStatusCodePropertyInfo = "Message::status-code" attrGet _ = getMessageStatusCode attrSet _ = setMessageStatusCode attrConstruct _ = constructMessageStatusCode -- VVV Prop "tls-certificate" -- Type: TInterface "Gio" "TlsCertificate" -- Flags: [PropertyReadable,PropertyWritable] getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m () setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val data MessageTlsCertificatePropertyInfo instance AttrInfo MessageTlsCertificatePropertyInfo where type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate type AttrLabel MessageTlsCertificatePropertyInfo = "Message::tls-certificate" attrGet _ = getMessageTlsCertificate attrSet _ = setMessageTlsCertificate attrConstruct _ = constructMessageTlsCertificate -- VVV Prop "tls-errors" -- Type: TInterface "Gio" "TlsCertificateFlags" -- Flags: [PropertyReadable,PropertyWritable] getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags] getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors" setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m () setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue) constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val data MessageTlsErrorsPropertyInfo instance AttrInfo MessageTlsErrorsPropertyInfo where type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags] type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags] type AttrLabel MessageTlsErrorsPropertyInfo = "Message::tls-errors" attrGet _ = getMessageTlsErrors attrSet _ = setMessageTlsErrors attrConstruct _ = constructMessageTlsErrors -- VVV Prop "uri" -- Type: TInterface "Soup" "URI" -- Flags: [PropertyReadable,PropertyWritable] getMessageUri :: (MonadIO m, MessageK o) => o -> m URI getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m () setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val constructMessageUri :: URI -> IO ([Char], GValue) constructMessageUri val = constructObjectPropertyBoxed "uri" val data MessageUriPropertyInfo instance AttrInfo MessageUriPropertyInfo where type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK type AttrGetType MessageUriPropertyInfo = URI type AttrLabel MessageUriPropertyInfo = "Message::uri" attrGet _ = getMessageUri attrSet _ = setMessageUri attrConstruct _ = constructMessageUri type instance AttributeList Message = MessageAttributeList type MessageAttributeList = ('[ '("first-party", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("http-version", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reason-phrase", MessageReasonPhrasePropertyInfo), '("request-body", MessageRequestBodyPropertyInfo), '("request-body-data", MessageRequestBodyDataPropertyInfo), '("request-headers", MessageRequestHeadersPropertyInfo), '("response-body", MessageResponseBodyPropertyInfo), '("response-body-data", MessageResponseBodyDataPropertyInfo), '("response-headers", MessageResponseHeadersPropertyInfo), '("server-side", MessageServerSidePropertyInfo), '("status-code", MessageStatusCodePropertyInfo), '("tls-certificate", MessageTlsCertificatePropertyInfo), '("tls-errors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)]) data MessageContentSniffedSignalInfo instance SignalInfo MessageContentSniffedSignalInfo where type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback connectSignal _ = connectMessageContentSniffed data MessageFinishedSignalInfo instance SignalInfo MessageFinishedSignalInfo where type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback connectSignal _ = connectMessageFinished data MessageGotBodySignalInfo instance SignalInfo MessageGotBodySignalInfo where type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback connectSignal _ = connectMessageGotBody data MessageGotChunkSignalInfo instance SignalInfo MessageGotChunkSignalInfo where type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback connectSignal _ = connectMessageGotChunk data MessageGotHeadersSignalInfo instance SignalInfo MessageGotHeadersSignalInfo where type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback connectSignal _ = connectMessageGotHeaders data MessageGotInformationalSignalInfo instance SignalInfo MessageGotInformationalSignalInfo where type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback connectSignal _ = connectMessageGotInformational data MessageNetworkEventSignalInfo instance SignalInfo MessageNetworkEventSignalInfo where type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback connectSignal _ = connectMessageNetworkEvent data MessageRestartedSignalInfo instance SignalInfo MessageRestartedSignalInfo where type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback connectSignal _ = connectMessageRestarted data MessageStartingSignalInfo instance SignalInfo MessageStartingSignalInfo where type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback connectSignal _ = connectMessageStarting data MessageWroteBodySignalInfo instance SignalInfo MessageWroteBodySignalInfo where type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback connectSignal _ = connectMessageWroteBody data MessageWroteBodyDataSignalInfo instance SignalInfo MessageWroteBodyDataSignalInfo where type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback connectSignal _ = connectMessageWroteBodyData data MessageWroteChunkSignalInfo instance SignalInfo MessageWroteChunkSignalInfo where type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback connectSignal _ = connectMessageWroteChunk data MessageWroteHeadersSignalInfo instance SignalInfo MessageWroteHeadersSignalInfo where type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback connectSignal _ = connectMessageWroteHeaders data MessageWroteInformationalSignalInfo instance SignalInfo MessageWroteInformationalSignalInfo where type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback connectSignal _ = connectMessageWroteInformational type instance SignalList Message = MessageSignalList type MessageSignalList = ('[ '("content-sniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("got-body", MessageGotBodySignalInfo), '("got-chunk", MessageGotChunkSignalInfo), '("got-headers", MessageGotHeadersSignalInfo), '("got-informational", MessageGotInformationalSignalInfo), '("network-event", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wrote-body", MessageWroteBodySignalInfo), '("wrote-body-data", MessageWroteBodyDataSignalInfo), '("wrote-chunk", MessageWroteChunkSignalInfo), '("wrote-headers", MessageWroteHeadersSignalInfo), '("wrote-informational", MessageWroteInformationalSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Message::new -- method type : Constructor -- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "Message" -- throws : False -- Skip return : False foreign import ccall "soup_message_new" soup_message_new :: CString -> -- method : TBasicType TUTF8 CString -> -- uri_string : TBasicType TUTF8 IO (Ptr Message) messageNew :: (MonadIO m) => T.Text -> -- method T.Text -> -- uri_string m Message messageNew method uri_string = liftIO $ do method' <- textToCString method uri_string' <- textToCString uri_string result <- soup_message_new method' uri_string' checkUnexpectedReturnNULL "soup_message_new" result result' <- (wrapObject Message) result freeMem method' freeMem uri_string' return result' -- method Message::new_from_uri -- method type : Constructor -- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "Message" -- throws : False -- Skip return : False foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: CString -> -- method : TBasicType TUTF8 Ptr URI -> -- uri : TInterface "Soup" "URI" IO (Ptr Message) messageNewFromUri :: (MonadIO m) => T.Text -> -- method URI -> -- uri m Message messageNewFromUri method uri = liftIO $ do method' <- textToCString method let uri' = unsafeManagedPtrGetPtr uri result <- soup_message_new_from_uri method' uri' checkUnexpectedReturnNULL "soup_message_new_from_uri" result result' <- (wrapObject Message) result touchManagedPtr uri freeMem method' return result' -- method Message::content_sniffed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_content_sniffed" soup_message_content_sniffed :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CString -> -- content_type : TBasicType TUTF8 Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- params : TGHash (TBasicType TVoid) (TBasicType TVoid) IO () messageContentSniffed :: (MonadIO m, MessageK a) => a -> -- _obj T.Text -> -- content_type Map.Map (Ptr ()) (Ptr ()) -> -- params m () messageContentSniffed _obj content_type params = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj content_type' <- textToCString content_type let params' = Map.toList params let params'' = mapFirst ptrPackPtr params' let params''' = mapSecond ptrPackPtr params'' params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params''' soup_message_content_sniffed _obj' content_type' params'''' touchManagedPtr _obj freeMem content_type' unrefGHashTable params'''' return () -- method Message::disable_feature -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_disable_feature" soup_message_disable_feature :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CGType -> -- feature_type : TBasicType TGType IO () messageDisableFeature :: (MonadIO m, MessageK a) => a -> -- _obj GType -> -- feature_type m () messageDisableFeature _obj feature_type = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let feature_type' = gtypeToCGType feature_type soup_message_disable_feature _obj' feature_type' touchManagedPtr _obj return () -- method Message::finished -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_finished" soup_message_finished :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageFinished :: (MonadIO m, MessageK a) => a -> -- _obj m () messageFinished _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_finished _obj' touchManagedPtr _obj return () -- method Message::get_address -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "Address" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_address" soup_message_get_address :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO (Ptr Address) messageGetAddress :: (MonadIO m, MessageK a) => a -> -- _obj m Address messageGetAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_address _obj' checkUnexpectedReturnNULL "soup_message_get_address" result result' <- (newObject Address) result touchManagedPtr _obj return result' -- method Message::get_first_party -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "URI" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO (Ptr URI) messageGetFirstParty :: (MonadIO m, MessageK a) => a -> -- _obj m URI messageGetFirstParty _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_first_party _obj' checkUnexpectedReturnNULL "soup_message_get_first_party" result result' <- (newBoxed URI) result touchManagedPtr _obj return result' -- method Message::get_flags -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "MessageFlags" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_flags" soup_message_get_flags :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO CUInt messageGetFlags :: (MonadIO m, MessageK a) => a -> -- _obj m [MessageFlags] messageGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_flags _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Message::get_http_version -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "HTTPVersion" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO CUInt messageGetHttpVersion :: (MonadIO m, MessageK a) => a -> -- _obj m HTTPVersion messageGetHttpVersion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_http_version _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Message::get_https_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "soup_message_get_https_status" soup_message_get_https_status :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" IO CInt messageGetHttpsStatus :: (MonadIO m, MessageK a) => a -> -- _obj m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags]) messageGetHttpsStatus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) errors <- allocMem :: IO (Ptr CUInt) result <- soup_message_get_https_status _obj' certificate errors let result' = (/= 0) result certificate' <- peek certificate certificate'' <- (newObject Gio.TlsCertificate) certificate' errors' <- peek errors let errors'' = wordToGFlags errors' touchManagedPtr _obj freeMem certificate freeMem errors return (result', certificate'', errors'') -- method Message::get_priority -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "MessagePriority" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_priority" soup_message_get_priority :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO CUInt messageGetPriority :: (MonadIO m, MessageK a) => a -> -- _obj m MessagePriority messageGetPriority _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_priority _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Message::get_soup_request -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "Request" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO (Ptr Request) messageGetSoupRequest :: (MonadIO m, MessageK a) => a -> -- _obj m Request messageGetSoupRequest _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_soup_request _obj' checkUnexpectedReturnNULL "soup_message_get_soup_request" result result' <- (newObject Request) result touchManagedPtr _obj return result' -- method Message::get_uri -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Soup" "URI" -- throws : False -- Skip return : False foreign import ccall "soup_message_get_uri" soup_message_get_uri :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO (Ptr URI) messageGetUri :: (MonadIO m, MessageK a) => a -> -- _obj m URI messageGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_get_uri _obj' checkUnexpectedReturnNULL "soup_message_get_uri" result result' <- (newBoxed URI) result touchManagedPtr _obj return result' -- method Message::got_body -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_got_body" soup_message_got_body :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageGotBody :: (MonadIO m, MessageK a) => a -> -- _obj m () messageGotBody _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_got_body _obj' touchManagedPtr _obj return () -- method Message::got_chunk -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_got_chunk" soup_message_got_chunk :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" IO () messageGotChunk :: (MonadIO m, MessageK a) => a -> -- _obj Buffer -> -- chunk m () messageGotChunk _obj chunk = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let chunk' = unsafeManagedPtrGetPtr chunk soup_message_got_chunk _obj' chunk' touchManagedPtr _obj touchManagedPtr chunk return () -- method Message::got_headers -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_got_headers" soup_message_got_headers :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageGotHeaders :: (MonadIO m, MessageK a) => a -> -- _obj m () messageGotHeaders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_got_headers _obj' touchManagedPtr _obj return () -- method Message::got_informational -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_got_informational" soup_message_got_informational :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageGotInformational :: (MonadIO m, MessageK a) => a -> -- _obj m () messageGotInformational _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_got_informational _obj' touchManagedPtr _obj return () -- method Message::is_keepalive -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "soup_message_is_keepalive" soup_message_is_keepalive :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO CInt messageIsKeepalive :: (MonadIO m, MessageK a) => a -> -- _obj m Bool messageIsKeepalive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- soup_message_is_keepalive _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Message::restarted -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_restarted" soup_message_restarted :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageRestarted :: (MonadIO m, MessageK a) => a -> -- _obj m () messageRestarted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_restarted _obj' touchManagedPtr _obj return () -- method Message::set_chunk_allocator -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: Ptr Message -> -- _obj : TInterface "Soup" "Message" FunPtr ChunkAllocatorC -> -- allocator : TInterface "Soup" "ChunkAllocator" Ptr () -> -- user_data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" IO () {-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-} messageSetChunkAllocator :: (MonadIO m, MessageK a) => a -> -- _obj ChunkAllocator -> -- allocator m () messageSetChunkAllocator _obj allocator = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator) let user_data = castFunPtrToPtr allocator' let destroy_notify = safeFreeFunPtrPtr soup_message_set_chunk_allocator _obj' allocator' user_data destroy_notify touchManagedPtr _obj return () -- method Message::set_first_party -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_first_party" soup_message_set_first_party :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Ptr URI -> -- first_party : TInterface "Soup" "URI" IO () messageSetFirstParty :: (MonadIO m, MessageK a) => a -> -- _obj URI -> -- first_party m () messageSetFirstParty _obj first_party = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let first_party' = unsafeManagedPtrGetPtr first_party soup_message_set_first_party _obj' first_party' touchManagedPtr _obj touchManagedPtr first_party return () -- method Message::set_flags -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_flags" soup_message_set_flags :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CUInt -> -- flags : TInterface "Soup" "MessageFlags" IO () messageSetFlags :: (MonadIO m, MessageK a) => a -> -- _obj [MessageFlags] -> -- flags m () messageSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags soup_message_set_flags _obj' flags' touchManagedPtr _obj return () -- method Message::set_http_version -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_http_version" soup_message_set_http_version :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CUInt -> -- version : TInterface "Soup" "HTTPVersion" IO () messageSetHttpVersion :: (MonadIO m, MessageK a) => a -> -- _obj HTTPVersion -> -- version m () messageSetHttpVersion _obj version = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let version' = (fromIntegral . fromEnum) version soup_message_set_http_version _obj' version' touchManagedPtr _obj return () -- method Message::set_priority -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_priority" soup_message_set_priority :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CUInt -> -- priority : TInterface "Soup" "MessagePriority" IO () messageSetPriority :: (MonadIO m, MessageK a) => a -> -- _obj MessagePriority -> -- priority m () messageSetPriority _obj priority = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let priority' = (fromIntegral . fromEnum) priority soup_message_set_priority _obj' priority' touchManagedPtr _obj return () -- method Message::set_redirect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_redirect" soup_message_set_redirect :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Word32 -> -- status_code : TBasicType TUInt32 CString -> -- redirect_uri : TBasicType TUTF8 IO () messageSetRedirect :: (MonadIO m, MessageK a) => a -> -- _obj Word32 -> -- status_code T.Text -> -- redirect_uri m () messageSetRedirect _obj status_code redirect_uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj redirect_uri' <- textToCString redirect_uri soup_message_set_redirect _obj' status_code redirect_uri' touchManagedPtr _obj freeMem redirect_uri' return () -- method Message::set_request -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_request" soup_message_set_request :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CString -> -- content_type : TBasicType TUTF8 CUInt -> -- req_use : TInterface "Soup" "MemoryUse" Ptr Word8 -> -- req_body : TCArray False (-1) 4 (TBasicType TUInt8) Word64 -> -- req_length : TBasicType TUInt64 IO () messageSetRequest :: (MonadIO m, MessageK a) => a -> -- _obj Maybe (T.Text) -> -- content_type MemoryUse -> -- req_use Maybe (ByteString) -> -- req_body m () messageSetRequest _obj content_type req_use req_body = liftIO $ do let req_length = case req_body of Nothing -> 0 Just jReq_body -> fromIntegral $ B.length jReq_body let _obj' = unsafeManagedPtrCastPtr _obj maybeContent_type <- case content_type of Nothing -> return nullPtr Just jContent_type -> do jContent_type' <- textToCString jContent_type return jContent_type' let req_use' = (fromIntegral . fromEnum) req_use maybeReq_body <- case req_body of Nothing -> return nullPtr Just jReq_body -> do jReq_body' <- packByteString jReq_body return jReq_body' soup_message_set_request _obj' maybeContent_type req_use' maybeReq_body req_length touchManagedPtr _obj freeMem maybeContent_type freeMem maybeReq_body return () -- method Message::set_response -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_response" soup_message_set_response :: Ptr Message -> -- _obj : TInterface "Soup" "Message" CString -> -- content_type : TBasicType TUTF8 CUInt -> -- resp_use : TInterface "Soup" "MemoryUse" Ptr Word8 -> -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8) Word64 -> -- resp_length : TBasicType TUInt64 IO () messageSetResponse :: (MonadIO m, MessageK a) => a -> -- _obj Maybe (T.Text) -> -- content_type MemoryUse -> -- resp_use Maybe (ByteString) -> -- resp_body m () messageSetResponse _obj content_type resp_use resp_body = liftIO $ do let resp_length = case resp_body of Nothing -> 0 Just jResp_body -> fromIntegral $ B.length jResp_body let _obj' = unsafeManagedPtrCastPtr _obj maybeContent_type <- case content_type of Nothing -> return nullPtr Just jContent_type -> do jContent_type' <- textToCString jContent_type return jContent_type' let resp_use' = (fromIntegral . fromEnum) resp_use maybeResp_body <- case resp_body of Nothing -> return nullPtr Just jResp_body -> do jResp_body' <- packByteString jResp_body return jResp_body' soup_message_set_response _obj' maybeContent_type resp_use' maybeResp_body resp_length touchManagedPtr _obj freeMem maybeContent_type freeMem maybeResp_body return () -- method Message::set_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_status" soup_message_set_status :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Word32 -> -- status_code : TBasicType TUInt32 IO () messageSetStatus :: (MonadIO m, MessageK a) => a -> -- _obj Word32 -> -- status_code m () messageSetStatus _obj status_code = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_set_status _obj' status_code touchManagedPtr _obj return () -- method Message::set_status_full -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_status_full" soup_message_set_status_full :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Word32 -> -- status_code : TBasicType TUInt32 CString -> -- reason_phrase : TBasicType TUTF8 IO () messageSetStatusFull :: (MonadIO m, MessageK a) => a -> -- _obj Word32 -> -- status_code T.Text -> -- reason_phrase m () messageSetStatusFull _obj status_code reason_phrase = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj reason_phrase' <- textToCString reason_phrase soup_message_set_status_full _obj' status_code reason_phrase' touchManagedPtr _obj freeMem reason_phrase' return () -- method Message::set_uri -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_set_uri" soup_message_set_uri :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Ptr URI -> -- uri : TInterface "Soup" "URI" IO () messageSetUri :: (MonadIO m, MessageK a) => a -> -- _obj URI -> -- uri m () messageSetUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let uri' = unsafeManagedPtrGetPtr uri soup_message_set_uri _obj' uri' touchManagedPtr _obj touchManagedPtr uri return () -- method Message::starting -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_starting" soup_message_starting :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageStarting :: (MonadIO m, MessageK a) => a -> -- _obj m () messageStarting _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_starting _obj' touchManagedPtr _obj return () -- method Message::wrote_body -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_wrote_body" soup_message_wrote_body :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageWroteBody :: (MonadIO m, MessageK a) => a -> -- _obj m () messageWroteBody _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_wrote_body _obj' touchManagedPtr _obj return () -- method Message::wrote_body_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_wrote_body_data" soup_message_wrote_body_data :: Ptr Message -> -- _obj : TInterface "Soup" "Message" Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" IO () messageWroteBodyData :: (MonadIO m, MessageK a) => a -> -- _obj Buffer -> -- chunk m () messageWroteBodyData _obj chunk = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let chunk' = unsafeManagedPtrGetPtr chunk soup_message_wrote_body_data _obj' chunk' touchManagedPtr _obj touchManagedPtr chunk return () -- method Message::wrote_chunk -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_wrote_chunk" soup_message_wrote_chunk :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageWroteChunk :: (MonadIO m, MessageK a) => a -> -- _obj m () messageWroteChunk _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_wrote_chunk _obj' touchManagedPtr _obj return () -- method Message::wrote_headers -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_wrote_headers" soup_message_wrote_headers :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageWroteHeaders :: (MonadIO m, MessageK a) => a -> -- _obj m () messageWroteHeaders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_wrote_headers _obj' touchManagedPtr _obj return () -- method Message::wrote_informational -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "soup_message_wrote_informational" soup_message_wrote_informational :: Ptr Message -> -- _obj : TInterface "Soup" "Message" IO () messageWroteInformational :: (MonadIO m, MessageK a) => a -> -- _obj m () messageWroteInformational _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj soup_message_wrote_informational _obj' touchManagedPtr _obj return ()