Support GHC 9.12

Author: alexfmpe

haskell-src-meta/examples/HsHere.hs

@@ -20,7 +20,6 @@ module HsHere
 
 import qualified Control.Monad.Fail           as Fail
 import           Data.Generics                (Data)
-import           Data.Typeable                (Typeable)
 import           Language.Haskell.Meta        (parseExp, parsePat)
 import           Language.Haskell.Meta.Utils  (cleanNames)
 import           Language.Haskell.TH.Lib      hiding (parensP)
@@ -42,7 +41,7 @@ data Here
   = CodeH Exp
   | TextH String
   | ManyH [Here]
-  deriving (Eq,Show,Data,Typeable)
+  deriving (Eq,Show,Data)
 
 -- | Example:
 --

haskell-src-meta/examples/SKI.hs

@@ -20,7 +20,6 @@ module SKI
 
 import qualified Control.Monad.Fail           as Fail
 import           Data.Generics                (Data)
-import           Data.Typeable                (Typeable)
 import           Language.Haskell.Meta        (parseExp, parsePat)
 import           Language.Haskell.Meta.Utils  (cleanNames, ppDoc, unsafeRunQ)
 import           Language.Haskell.TH.Lib      hiding (parensP)
@@ -40,7 +39,7 @@ quoteDecNotImplemented = fail . ("dec quoter not implemented: " ++ )
 
 
 data SKI = S | K | I | E Exp | SKI :$ SKI
-  deriving (Eq,Data,Typeable)
+  deriving (Eq,Data)
 
 run :: String -> [SKI]
 run = fmap eval . fst . parse

haskell-src-meta/haskell-src-meta.cabal

@@ -22,7 +22,7 @@ library
                    haskell-src-exts >= 1.21 && < 1.24,
                    pretty >= 1.0 && < 1.2,
                    syb >= 0.1 && < 0.8,
-                   template-haskell >= 2.12 && < 2.23,
+                   template-haskell >= 2.12 && < 2.24,
                    th-orphans >= 0.12 && < 0.14
 
   hs-source-dirs:  src

haskell-src-meta/src/Language/Haskell/Meta/Extensions.hs

@@ -374,6 +374,14 @@ fromExtension e = case e of
   TH.ListTuplePuns                     -> Nothing
 #endif
 
+-- 2.23.0 ---------------------------------------
+
+#if MIN_VERSION_template_haskell(2,23,0)
+  TH.MultilineStrings                  -> Nothing
+  TH.NamedDefaults                     -> Nothing
+  TH.OrPatterns                        -> Nothing
+#endif
+
   -- NB: when adding a case here, you may also need to update `toExtension`