haskell yesod 文件上传输入文件未找到

haskell yesod file upload input file not found

处理程序:

getFuploadR=defaultLayout $ do
    [whamlet|
     <form method=post>
        <input type=file name=file>
        <button type="submit" class="btn btn-primary">Submit
    |]
postFuploadR=do
  imgnfo<-runInputPost $ ireq fileField "file"
  bytes <- runResourceT $ fileSource imgnfo $$ sinkLbs
  liftIO $ write2server bytes "1.jpg"

它编译ok.after select 上传和提交,我只得到:

无效参数

未找到输入:文件

您需要将表单本身的加密类型设置为 multipart/form-data