Yesod kullanarak sunucuya nasıl dosya yükleyebilirim

Question

Kullanıcıların sunucuma bir dosya yüklemesine izin veren bir form yazmaya çalışıyorum. Yesod, böyle bir işlev için fileAFormReq'i kullandığını ancak en son çalıştığı derleme hatalarıyla çalışmayı başaramadığını fark etti: "RenderMessage MySite t için örnek yok" Nasıl kullanılacağı konusunda herhangi bir örnek yok çok takdir edilecektir. sayesinde Uri

Answer 1

Güncelleme 13-Eylül-2012: yoktur

resmi bana bu example verdi fonksiyonu fileAFormReq üzerinde Googling here

---

yükleyerek dosya için yardım sayfasını korudu.

Sadece ilgili kısımlarla en az bir sürümünü yaptım.

{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell, MultiParamTypeClasses #-} 
import Yesod.Core 
import Yesod.Form 
import Yesod.Form.MassInput 
import Control.Applicative 
import Data.Text (Text, pack) 
import Network.Wai.Handler.Warp (run) 
import Data.Time (utctDay, getCurrentTime) 
import qualified Data.Text as T 
import Control.Monad.IO.Class (liftIO) 

mkYesod "HelloForms" [parseRoutes| 
/file FileR GET POST 
|] 

data HelloForms = HelloForms 

instance RenderMessage HelloForms FormMessage where 
    renderMessage _ _ = defaultFormMessage 

instance Yesod HelloForms where 
    approot _ = "" 


main = toWaiApp HelloForms >>= run 3000 

fileForm = renderTable $ pure (,) 
    <*> fileAFormReq "Required file" 
    <*> fileAFormOpt "Optional file" 

getFileR = do 
    ((res, form), enctype) <- runFormPost fileForm 
    defaultLayout [whamlet| 
<p>Result: #{show res} 
<form method=post enctype=#{enctype}> 
    <table> 
     ^{form} 
    <tr> 
     <td> 
      <input type=submit> 
|] 

postFileR = getFileR 

runhaskell bu ve sonra tarayıcınızda http://localhost:3000/file ziyaret edin.

Bu yardımcı olur umarım. :)

---

Düzenleme:

Ah bekle, ne eksik açıktır. Derleme hatası dediğiniz gibi, Vakfınız için bir RenderMessage örneğini kaçırıyorsunuz.

i18n için son çabaların form paketini biraz değiştirdiğini biliyorum. En son yesod sürümünü kullanıyorsanız, this adresini kontrol edin.

Yapıştırdığım kod, yesod-forms paketinin eski i18n olmayan (varsayılan ingilizce anlamına gelir) sürümünü kullanır.