使用Snap Web Framework為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的模板狀態。 或者，您可以直接在Heist中修改emptyTemplateState。

更新：我添加了一個heistInit'功能，應該解決這個問題。 它將在下一個hackage發布中。 在那之前，你可以從github獲得它。