使用 Yesod 高效上传大文件答案

【问题标题】：Efficient large file upload with Yesod使用 Yesod 高效上传大文件
【发布时间】：2012-06-08 10:55:43
【问题描述】：

我想用我的 Yesod 应用程序实现大文件上传。现在我有：

module Handler.File where

import Import

import System.Random
import System.FilePath
import Control.Monad
import qualified Data.ByteString.Lazy as LBS
import qualified Data.Text.Encoding

-- upload

uploadDirectory :: FilePath -- FIXME: make this configurable
uploadDirectory = "incoming"

randomFileName :: IO FilePath
randomFileName = do
  fname'base <- replicateM 20 (randomRIO ('a','z'))
  let fname = uploadDirectory </> fname'base <.> "bin"
  return fname

fileUploadForm :: Form (FileInfo, Textarea)
fileUploadForm = renderDivs $ (,)
    <$> fileAFormReq "Choose a file"
    <*> areq textareaField "What's on the file?" Nothing

getFileNewR :: Handler RepHtml
getFileNewR = do
  (formWidget, formEnctype) <- generateFormPost fileUploadForm
  defaultLayout $ do
       setTitle "Upload new file."
       $(widgetFile "file-new")

postFileNewR :: Handler RepHtml
postFileNewR = do
  user <- requireAuth
  ((result, formWidget), formEnctype) <- runFormPost fileUploadForm
  case result of
    FormSuccess (fi,info) -> do
                 fn <- liftIO randomFileName
                 liftIO (LBS.writeFile fn (fileContent fi))
                 let newFile = File (entityKey user) fn info (fileName fi) (fileContentType fi)
                 fid <- runDB $ insert newFile
                 redirect (FileViewR fid)
    _ -> return ()

  defaultLayout $ do
       setTitle "Upload new file."
       $(widgetFile "file-new")

除了少数问题之外，大部分都很好：

文件的最大大小约为 2 兆字节。我有一个修复，但这样做是正确的方法吗？我的修复是在我的应用程序的 Yesod 实例中覆盖 maximumContentLength 方法的默认实现，如下所示：

maximumContentLength _ (Just (FileNewR _)) = 2 * 1024 * 1024 * 1024 -- 2 GB 最大内容长度 _ _ = 2 * 1024 * 1024 -- 2 兆字节
使用的内存量等于文件的大小。这确实是次优的。我想使用来自http://hackage.haskell.org/packages/archive/wai-extra/1.2.0.4/doc/html/Network-Wai-Parse.html 的 tempFileBackEnd，但我不知道如何将其实际连接到我的请求中并使其与表单逻辑（隐藏的 _token 字段等）一起使用。
上传是“单次”的：有任何示例说明如何使用基于 Flash/Html5 的上传程序，向用户显示进度？

【问题讨论】：

标签： haskell yesod

【解决方案1】：

您的解决方案是正确的。 maximumContentLength 设置的目的是允许您为需要较大上传的特定路由覆盖此值。
这是 yesod-core 中当前文件处理设置的一个缺点。它目前被硬编码为使用内存文件上传。我们过去在邮件列表中讨论过这是次优的。我刚刚为此创建了一个Github issue，该修复程序将包含在 Yesod 1.1 中（虽然没有发布时间表）。
抱歉，我没有这方面的例子。

【讨论】：