Question

我正在努力将POST响应（multipart）分开，应该使用什么来将发送到Yesod服务器的一些文件的内容放入数据库中（经过一些进一步处理之后）。我目前的代码：

import qualified Data.ByteString.Lazy as LZ
import qualified Data.ByteString.Lazy.Char8 as LC
...
processLines :: String -> [String] -> String
processLines delim (l:rest) = do
    case l of
        delim -> ""
        _     -> l ++ "\n" ++ processLines delim rest

processFile :: [String] -> String
processFile (delim:some:other:line:txt) = processLines delim txt

postImpexR :: SystemsId -> Handler RepPlain
postImpexR sysid = do
    wr <- waiRequest
    bss <- lift $ requestBody wr $$ consume
    let file = LZ.fromChunks bss
    return $ RepPlain $ toContent $ processFile $ map LC.unpack $ LC.lines file

编辑：管理来修复一个问题，似乎我正在理解处理程序。这里的类型有什么问题？有没有更优雅的方式来完成这个？

Answer 1

如果您正在寻找那些内置于Yesod的多部分支持，则无需采用手动解析。请考虑使用fileField或lookupFile。

将POST请求分解为Yesod中的部分

1 个答案: