haskell - 您如何使用 loadTemplates 为新的 Heist API 更新代码？

Question

此代码在 0.10.0 更改之前与 Heist 一起使用

main = do
      Right ts <- loadTemplates "templates" $
          bindSplices mySplices defaultHeistState
      etc..

现在我得到了错误

testdb.hs:59:33: Not in scope: `defaultHeistState'

我知道 loadTemplates 的类型签名已更改为

loadTemplates :: FilePath -> EitherT [String] IO TemplateRepoSource

但是我无法弄清楚如何调整我的旧代码以使其正常工作。

Answer 1

好的，我可以使用它，但是我愿意接受更优雅的方式来做这件事

load baseDir splices = do
    tmap <- runEitherT  $ do
        templates <- loadTemplates baseDir
        let hc = HeistConfig mySplices  [] [] [] templates
        initHeist hc
    either (error . concat) return tmap

main = do
      ts <- load "templates" $ bindSplices mySplices 
      renderWithArgs [("test", T.pack "hello world")]  ts "index" >>= 
        B.putStr . maybe "Page not found" (toByteString . fst)