Commit ef6f0ea9db308c55bae322ce4b5e92196c460003 Parent: 8ee4d39530e3b2d2d939e75a7466c5ac8928297f Author: mcol <mcol@posteo.net> Date: 2021-11-24 19:12:56 +0000 Committer: mcol <mcol@posteo.net> Committed: 2021-11-24 19:12:56 +0000 use runGingerT directly
src/Templates.hs Modified
@@ -33,7 +33,7 @@ import Text.Ginger.GVal (GVal) import Text.Ginger.Html (Html, htmlSource) import Text.Ginger.Parse (SourcePos, parseGingerFile, peErrorMessage) -import Text.Ginger.Run (Run, easyRenderM) +import Text.Ginger.Run (Run, easyContext, runGingerT) import Config @@ -90,7 +90,7 @@ IO () generate output context template = do writeFile output "" -- Clear contents of file if it exists - void $ easyRenderM (writeTo output) context . templateGinger $ template + void $ runGingerT (easyContext (writeTo output) context) . templateGinger $ template ---------------------------------------------------------------------------------------- -- Private -----------------------------------------------------------------------------