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

Question

我希望添加一些钩子，用于使用Snap 在 Web 应用程序中预处理 Heist 模板。到目前为止，我的天真的方法是在我的应用程序初始化程序中使用以下代码：

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 here 的模板状态。或者，您可以直接在 Heist 中修改 emptyTemplateState。

更新：我 added 一个 heistInit' 函数应该可以解决这个问题。它将在下一个 hackage 版本中。在此之前，您可以通过github 获得它。