Yesod，Hamlet，按条件生成标记属性

Question

根据条件生成HTML标记属性的更好方法是什么？我在模块中有一个外部函数，它可以给我一些价值(例如Bool)。基于此，我需要或不需要向标记中添加一个类。这个元素有子元素。

<tr *class should be here*>
  <td>
  ...

Answer 1

由于哈姆雷特允许在插值中应用函数，所以您可以简单地使用该函数。示例演示：

{-# LANGUAGE QuasiQuotes #-}

import Text.Hamlet (shamlet)
import Text.Blaze.Html.Renderer.String (renderHtml)

myClass :: Bool -> String
myClass _ = "dummyClass"

main :: IO ()
main = putStrLn $ renderHtml [shamlet|
 <tr .#{myClass True}>
   <td> dummy text |]

在ghci：

λ> main
<tr class="dummyClass"><td> dummy text </td>
</tr>