Haskell 渲染窗口小部件

我按照指示去做

我创建了一个yesod项目，并使用

defaultLayout

呈现了一个小部件：

You've just posted
<p>#{postedText}#{T.reverse postedText}
<hr>
<p><a href=@{MirrorR}>Get back

您刚刚发布了
#{postedText}{T.reverse postedText}

回来

这里是默认布局。哈姆雷特：

$maybe msg <- mmsg
    <div #message>#{msg}
^{widget}
<footer>
    #{extraCopyright $ appExtra $ settings master}

$maybe msg当您编写：

<p><a ...>...

。。。

然后，Hamlet看到一个免费的
标记，并围绕以下内容创建一个匹配的
标记。下面的内容假定为有效的HTML。因此，呈现的是：

<p><a ...>...</p>



您想要写的是（注意缩进创建了一个新的空闲标记）：


...

…或：

<p><a ...>...</a>

。。。

您的浏览器将其呈现为两个链接，因为
元素未关闭（在这种情况下，浏览器进入怪癖模式并启用HTML1兼容性）：

链接1

链接2


免责声明：我没有访问YesSOD的权限，无法验证此行为；我只是根据问题中的观察结果假设是这样

<p><a ...>...</a>

<p><a href="foo">link1</p>
<p>link2</p>
<!-- implicit </a> at the end of the closest block level element -->