Fix mkDec function in src/Data/Array/Accelerate/Pattern/TH.hs to work…

… with ghc version 9.8.1

The template-haskell library version 2.21.0.0 has now made TyVarBndr types
contain other types. This patch removes an error during compilation caused
by mkDec passing the wrong kind of TyVarBndr to mkDataD and mkNewTypeD.

accelerate.cabal

@@ -335,7 +335,7 @@ flag nofib
 
 library
   build-depends:
-          base                          >= 4.12 && < 4.19
+          base                          >= 4.12 && < 4.20
         , ansi-terminal                 >= 0.6.2
         , base-orphans                  >= 0.3
         , bytestring                    >= 0.10.2

src/Data/Array/Accelerate/Pattern/TH.hs

@@ -70,9 +70,16 @@ mkPattern nm = do
 mkDec :: Dec -> DecsQ
 mkDec dec =
   case dec of
-    DataD    _ nm tv _ cs _ -> mkDataD nm tv cs
-    NewtypeD _ nm tv _ c  _ -> mkNewtypeD nm tv c
+    DataD    _ nm tv _ cs _ -> mkDataD nm (fixTVList tv) cs
+    NewtypeD _ nm tv _ c  _ -> mkNewtypeD nm (fixTVList tv) c
     _                       -> fail "mkPatterns: expected the name of a newtype or datatype"
+
+fixTV :: TyVarBndr a -> TyVarBndr ()
+fixTV (PlainTV n _ ) = PlainTV n ()
+fixTV (KindedTV n _ k) = KindedTV n () k
+
+fixTVList :: [TyVarBndr a] -> [TyVarBndr ()]
+fixTVList list = map fixTV list
 
 mkNewtypeD :: Name -> [TyVarBndr ()] -> Con -> DecsQ
 mkNewtypeD tn tvs c = mkDataD tn tvs [c]