Question

我正在努力通过xml-conduit将响应从http-conduit转换为XML文档。

doPost函数接受XML文档并将其发布到服务器。服务器以XML文档响应。

doPost queryDoc = do
    runResourceT $ do

        manager <- liftIO $ newManager def
        req <- liftIO $ parseUrl hostname

        let req2 = req
                { method = H.methodPost
                , requestHeaders = [(CI.mk $ fromString "Content-Type", fromString "text/xml" :: Ascii) :: Header] 
                , redirectCount = 0
                , checkStatus = \_ _ -> Nothing
                , requestBody =  RequestBodyLBS $ (renderLBS def queryDoc)
                }

        res <- http req2 manager
        return $ res

以下作品并返回'200'：

let pingdoc = Document (Prologue [] Nothing []) (Element "SYSTEM" [] []) []
Response status headers body <- doPost pingdoc
return (H.statusCode status)

但是，当我尝试使用xml-conduit解析Response主体时，我遇到了问题：

Response status headers body <- doPost xmldoc
let xmlRes' = parseLBS def body

产生的编译错误是：

Couldn't match expected type `L.ByteString'
            with actual type `Source m0 ByteString'
In the second argument of `parseLBS', namely `body'
In the expression: parseLBS def body
In an equation for `xmlRes'': xmlRes' = parseLBS def body

我尝试使用$ =和$$将来自http-conduit的Source连接到xml-conduit，但我没有取得任何成功。

有没有人有任何提示指出我正确的方向？提前谢谢。

尼尔

Answer 1

您可以使用httpLbs而不是http，以便它返回一个懒惰的ByteString而不是Source - parseLBS函数被命名，因为它是需要什么：a L azy B yte S tring。但是，正如您所提到的，最好使用两者直接基于的管道接口。为此，您应从runResourceT中删除doPost行，并使用以下内容获取XML文档：

xmlRes' <- runResourceT $ do
    Response status headers body <- doPost xmldoc
    body $$ sinkDoc def

这使用xml-conduit的sinkDoc函数，将来自http-conduit的Source连接到xml-conduit中的Sink。

连接后，必须使用runResourceT运行完整的管道，以确保及时释放所有分配的资源。原始代码存在的问题是它在ResourceT内部过早地运行doPost;您通常应该在需要实际结果时使用runResourceT，因为管道必须完全在单个ResourceT的范围内运行。

顺便说一下，res <- http req2 manager; return $ res可以简化为http req2 manager。

将http-conduit连接到xml-conduit

1 个答案: