将http-conduit连接到xml-conduit

时间:2012-02-12 00:30:48

标签: haskell conduit http-conduit

我正在努力通过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,但我没有取得任何成功。

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

尼尔

1 个答案:

答案 0 :(得分:6)

您可以使用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