From 509b87267205a605c50ff9027892d7749fdc13ad Mon Sep 17 00:00:00 2001 From: Daniel Firth Date: Sun, 8 Oct 2023 11:55:12 +0000 Subject: [PATCH] Support template-haskell-2.21.0.0 (#482) --- src/Polysemy/Internal/TH/Common.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Polysemy/Internal/TH/Common.hs b/src/Polysemy/Internal/TH/Common.hs index 674ceec9..8d165700 100644 --- 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"]