Updated for GHC 9.8.1 and TH 2.22

blamario · Oct 19, 2023 · ac5fc4b · ac5fc4b
1 parent b94e738
commit ac5fc4b
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/deep-transformations/deep-transformations.cabal b/deep-transformations/deep-transformations.cabal
@@ -45,7 +45,7 @@ library
   ghc-options:         -Wall
   build-depends:        base >= 4.11 && < 5, rank2classes >= 1.4.1 && < 1.6,
                         transformers >= 0.5 && < 0.7,
-                        template-haskell >= 2.11 && < 2.21, generic-lens >= 1.2 && < 2.3
+                        template-haskell >= 2.11 && < 2.22, generic-lens >= 1.2 && < 2.3
   default-language:     Haskell2010
 
 test-suite doctests

diff --git a/rank2classes/rank2classes.cabal b/rank2classes/rank2classes.cabal
@@ -44,7 +44,7 @@ library
                        data-functor-logistic < 0.1
 
   if flag(use-template-haskell)
-    build-depends: template-haskell >= 2.11 && < 2.21
+    build-depends: template-haskell >= 2.11 && < 2.22
     exposed-modules: Rank2.TH
 
 test-suite doctests

diff --git a/rank2classes/src/Rank2/TH.hs b/rank2classes/src/Rank2/TH.hs
@@ -128,7 +128,7 @@ reifyConstructors cls ty = do
    lastVar <- reifyTVKindSynonyms (last tyVars)
 
 #if MIN_VERSION_template_haskell(2,17,0)
-   let (KindedTV tyVar () (AppT (AppT ArrowT _) resultKind)) = lastVar
+   let (KindedTV tyVar _ (AppT (AppT ArrowT _) resultKind)) = lastVar
        instanceType           = conT cls `TH.appT` foldl apply (conT tyConName) (init tyVars)
        apply t (PlainTV name _)    = TH.appT t (varT name)
        apply t (KindedTV name _ _) = TH.appT t (varT name)