如何在单选按钮标签内插入 html（在 Yesod 中）

Question

我尝试将 html 渲染为 radiofieldList 的标签，但出现了以下错误。

Handler/Manager.hs:91:32:
No instance for (RenderMessage Scheduler (Handler RepHtml))
  arising from a use of `radioFieldList'
Possible fix:
  add an instance declaration for
  (RenderMessage Scheduler (Handler RepHtml))
In the first argument of `mreq', namely `(radioFieldList bPairs)'
In a stmt of a 'do' block:
  (jobRes, jobView) <- mreq
                         (radioFieldList bPairs) "Scheduled Jobs" Nothing
In the expression:
  do { let bPairs = buttonPairs kjPairs
           statusPairs
             = map (pack . show &&& id) $ ([minBound .. maxBound] :: [Status            ]);
       (jobRes, jobView) <- mreq
                              (radioFieldList bPairs) "Scheduled Jobs" Nothing;
       (noteRes, noteView) <- mreq textareaField " Notes " Nothing;
       (statusRes, statusView) <- mreq
                                    (selectFieldList statusPairs) " Status " Nothing;
       .... }

因此，考虑到下面的代码，为 (RenderMessage Scheduler (Handler RepHtml)) 创建一个实例是否有意义？

statusForm :: RForm CapturedData
statusForm kjPairs extra = do
let bPairs = buttonPairs kjPairs
    statusPairs = map (pack . show &&& id) $
                  ([minBound .. maxBound] :: [Status])
(jobRes ,jobView) <- mreq (radioFieldList bPairs) "Scheduled Jobs" Nothing
(noteRes, noteView) <- mreq textareaField " Notes " Nothing
(statusRes, statusView) <- mreq (selectFieldList statusPairs) " Status " Nothing    -- as of 0.9.4.x it is just best to explicitly type widgetFile
let widget = toWidget ($(widgetFile "status") :: Widget)
return (CapturedData <$> jobRes <*> statusRes  <*> noteRes
       , widget)

buttonPairs :: [KeyJobPair] -> [(Handler RepHtml,KeyJobPair)]
buttonPairs kjList = sort $ map buttonPairs' kjList
  where buttonPairs' :: KeyJobPair -> (Handler RepHtml,KeyJobPair)
    buttonPairs' (KeyJobPair ((Key key), JobData (Firmware product)
                                           (Version version)
                                           (StartDate sDate)
                                            status)) =
      let (Right jid) = fromPersistValue key :: Either Text Int64
      in (hamletToRepHtml [hamlet|<a href=@{RootR}(" Job Id " ++ (show jid))>|]
         ,KeyJobPair (Key key, JobData (Firmware product)
                                       (Version version)
                                       (StartDate sDate)
                                       status))

我想到，真正的答案是创建一个接受 的自定义字段>(HTML,a)，而不是所需的 (msg,a) radioFieldList 想要的。我希望只为 RenderMessage 创建一个实例就可以工作。

Answer 1

您可能不需要在那里调用 hamletToRepHtml，为什么不从 Text.Hamlet 调用 renderHtml 呢？

我没有在这台机器上安装 yesod （所以我无法验证），但这应该会为您指明正确的方向。我假设您不希望它成为一个小部件，并且您只想呈现它。