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拨打renderHtml，为什么不Text.Hamlet来自{{1}}？

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

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

1 个答案: