Fix compatibility with template-haskell 2.17 for yesod

2021-06-30 18:07:24 +08:00 · 2021-06-30 18:07:24 +08:00 · 189487914d
commit 189487914d
parent 9edbc05827
1 changed files with 4 additions and 0 deletions
--- a/yesod/Yesod/Default/Util.hs
+++ b/yesod/Yesod/Default/Util.hs
@ -113,7 +113,11 @@ combine func file isReload tls = do
            , show file
            , ", but no templates were found."
            ]
+#if MIN_VERSION_template_haskell(2,17,0)
+        exps -> return $ DoE Nothing $ map NoBindS exps
+#else
        exps -> return $ DoE $ map NoBindS exps
+#endif
  where
    qmexps :: Q [Maybe Exp]
    qmexps = mapM go tls