如何使用带有路由参数的小村庄模板?

How to use hamlet template with route parameter?

我正在开发一个基于 yesod-postgres 堆栈模板的 yesod 应用程序。我在 config/routes 中定义了一条路由,其格式为:

foo/edit/#Text EditFooR GET

在我的小村庄模板中,我想写

<form method=post action=@{EditFooR}#forms enctype=#{formEnctype}>
                    ^{formWidget}

                    <button type="submit">
                        Submit

在我的处理程序中,我想写:

getEditFooR :: T.Text -> Handler Html
getEditFooR name = do
    ....
    text <- findTextByName name

    (formWidget, formEnctype) <- generateFormPost (editFooForm text)
    defaultLayout $ do
        $(widgetFile "editFoo")

除了我需要向 @{EditFooR} 路由提供参数。这在哈姆雷特 file/Handler 中是如何完成的?

答案是 .hamlet 模板应具有以下格式:

<form method=post action=@{EditFooR fooName}#forms enctype=#{formEnctype}>
                ^{formWidget}

                <button type="submit">
                    Submit

Handler 的格式应为:

getEditFooR :: T.Text -> Handler Html
getEditFooR name = do
    ....
    text <- findTextByName name
    fooName <- "something or other"

   (formWidget, formEnctype) <- generateFormPost (editFooForm text)
       defaultLayout $ do
       $(widgetFile "editFoo")