我正在努力通过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,但我没有取得任何成功。
有没有人有任何提示指出我正确的方向?提前谢谢。
尼尔
答案 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
。