使用 Snap Web 框架为 Heist 模板添加 OnLoad 挂钩

Question

我希望使用 Heist 模板的钩子“http://snapframework.com/”rel="nofollow">快照。到目前为止，我的天真的方法是在我的应用程序初始化程序中使用以下代码：

app :: SnapletInit App App
app = makeSnaplet "app" "The main web application" Nothing $ do
    -- ...
    h <- nestSnaplet "heist" heist $ heistInit "resources/templates"
    -- ...
    modifyHeistTS . addOnLoadHook $ myTemplateHook

该代码当然不起作用，因为在从“资源/模板”加载模板之后添加了钩子

如何在加载初始模板之前是否要修改 Heist 模板状态，以便添加 OnLoad 挂钩？

Answer 1

很好的问题。看起来这是我在设计库时的疏忽。我会考虑如何最好地支持这一点并回复您。

如果您想要立即解决方法，请插入一些内容以将挂钩添加到传递到 loadTemplates 的模板状态 此处。或者，您可以直接在 Heist 中修改emptyTemplateState。

更新：我添加一个应该解决这个问题的heistInit'函数。它将出现在下一个 hackage 版本中。在此之前，您可以从 github 获取它。