Yesod：パラメータ化されたルートを構築する方法

Question

実行時にハムレットテンプレート内のルートにパラメータを渡そうとしています。

buildFeedRow :: Item [Attribute Text] -> GWidget a a() 
    buildFeedRow item = do 
    let f = unpackItem item 
     u :: Text = url f 
    [whamlet| 
    <tr> 
     <td> 
     <a href="#{url f}">#{url f} 
     <td>#{nextCrawlTime f} 
     <td>#{crawlDelay f} 
     <td> 
     <a href="@{DeleteFeedR u}">Delete 
     <td>Edit |] 

タイプエラーで失敗します。

Couldn't match type `Route a' with `ConsoleRoute' 
Expected type: ConsoleRoute -> [(Text, Text)] -> Text 
Actual type: Route a -> [(Text, Text)] -> Text 
Expected type: GHandler 
       a a (ConsoleRoute -> [(Text, Text)] -> Text) 
    Actual type: GGHandler 
       a 
       a 
       (Data.Enumerator.Iteratee Data.ByteString.Internal.ByteString IO) 
       (Route a -> [(Text, Text)] -> Text) 
In the first argument of `lift', namely `getUrlRenderParams' 
In the first argument of `(>>=)', namely `lift getUrlRenderParams' 

私の質問は、どのようにハムレットテンプレートのルートにパラメータを渡すのですか。

Answer 1

あなたのウィジェットのタイプシグネチャがあまりにも一般的かもしれないと思います。あなたがルートを使っているので、それは私がこのコードのビットに何か問題が表示されていないタイプ

buildFeedRow :: Item [Attribute Text] -> GWidget YourFoundation YourFoundation()