Support template-haskell-2.21.0.0

polysemy-research · Oct 8, 2023 · 81ab6e5 · 81ab6e5
1 parent ade2c85
commit 81ab6e5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Polysemy/Internal/TH/Common.hs b/src/Polysemy/Internal/TH/Common.hs
@@ -216,7 +216,9 @@ missingEffArgs name = fail $ show
       )
   where
     base = capturableBase name
-#if MIN_VERSION_template_haskell(2,17,0)
+#if MIN_VERSION_template_haskell(2,21,0)
+    args = flip PlainTV BndrInvis . mkName <$> ["m", "a"]
+#elif MIN_VERSION_template_haskell(2,17,0)
     args = flip PlainTV () . mkName <$> ["m", "a"]
 #else
     args = PlainTV . mkName <$> ["m", "a"]