Allow morpheus-graphql-code-gen-utils to build with GHC 9.8

morpheusgraphql · Apr 4, 2024 · dfe89c8 · dfe89c8
1 parent 144a98a
commit dfe89c8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/morpheus-graphql-code-gen-utils/src/Data/Morpheus/CodeGen/TH.hs b/morpheus-graphql-code-gen-utils/src/Data/Morpheus/CodeGen/TH.hs
@@ -200,7 +200,10 @@ typeInstanceDec typeFamily arg res = TySynInstD typeFamily (TySynEqn [arg] res)
 #endif
 
 {- ORMOLU_DISABLE -}
-#if MIN_VERSION_template_haskell(2,17,0)
+#if MIN_VERSION_template_haskell(2,21,0)
+toTypeVars :: [Name] -> [TyVarBndr BndrVis]
+toTypeVars = map (flip PlainTV BndrReq)
+#elif MIN_VERSION_template_haskell(2,17,0)
 toTypeVars :: [Name] -> [TyVarBndr ()]
 toTypeVars = map (flip PlainTV ())
 #else