Нарушение запроса POST на части в Yesod

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.