使用为Heist模板添加OnLoad挂钩

Question

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

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的函数，应该处理这个问题。它将在下一个黑客版本中发布。在此之前，您可以从github获得它。