在Yesod总是`$ newline never`

Question

哈姆雷特中的

$newline never允许我们缩小HTML代码。如果我们在父窗口小部件中设置它，它会对它生效，但不会在子窗口小部件上生效。因此，当我们想要缩小整个代码时，我们必须将$newline never设置为所有小部件。这不好。

你不知道更好的解决方案吗？感谢。

Answer 1

您可以在NoNewlines中定义自己的哈姆雷特准引号，默认为HamletSettings，如下所示（未经测试）代码段：

import Text.Hamlet

myHamlet :: QuasiQuoter
myHamlet = hamletWithSettings hamletRules defaultHamletSettings{ hamletNewlines = NoNewlines}

然后只需将其用作[myHamlet| ... |]。