From 189487914d894cd70d587b49e859ccc7a48c3c67 Mon Sep 17 00:00:00 2001
From: Felix Yan <felixonmars@archlinux.org>
Date: Wed, 30 Jun 2021 18:07:24 +0800
Subject: [PATCH] Fix compatibility with template-haskell 2.17 for yesod

---
 yesod/Yesod/Default/Util.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/yesod/Yesod/Default/Util.hs b/yesod/Yesod/Default/Util.hs
index e0d6ae1a..20514139 100644
--- 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