diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.1.3.0
+
+ * Support GHC 9.8
+
 # 0.1.2.0
 
  * Support GHC 9.6
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 # ghc-hs-meta
 
 Generate Template Haskell expressions from Haskell source code using the GHC parser.
-This package runs on GHC versions 8.10, 9.0, 9.2, 9.4 and 9.6.
+This package runs on GHC versions 8.10, 9.0, 9.2, 9.4, 9.6 and 9.8.
 
 ## Usage
 
diff --git a/ghc-hs-meta.cabal b/ghc-hs-meta.cabal
--- a/ghc-hs-meta.cabal
+++ b/ghc-hs-meta.cabal
@@ -1,7 +1,7 @@
 cabal-version:  2.4
 
 name:           ghc-hs-meta
-version:        0.1.2.0
+version:        0.1.3.0
 build-type:     Simple
 author:         Zachary Wood
 maintainer:     amesgen@amesgen.de
@@ -10,7 +10,7 @@
 synopsis:       Translate Haskell source to Template Haskell expression
 description:    Translate from Haskell source code to Template Haskell expressions using the GHC parser
 category:       ghc,template-haskell
-tested-with:    GHC == 8.10.7, GHC == 9.0.2, GHC == 9.2.8, GHC == 9.4.5, GHC == 9.6.2
+tested-with:    GHC == 8.10.7, GHC == 9.0.2, GHC == 9.2.8, GHC == 9.4.7, GHC == 9.6.3, GHC == 9.8.1
 
 extra-source-files: CHANGELOG.md README.md
 
@@ -26,11 +26,11 @@
       LambdaCase
   ghc-options: -Wall
   build-depends:
-      base >= 4.14 && <4.19
-    , ghc >= 8.10.7 && < 9.7
-    , ghc-boot >= 8.10.7 && < 9.7
-    , template-haskell >= 2.16.0 && < 2.21
-    , bytestring >= 0.10 && < 0.12
+      base >= 4.14 && <4.20
+    , ghc >= 8.10.7 && < 9.9
+    , ghc-boot >= 8.10.7 && < 9.9
+    , template-haskell >= 2.16.0 && < 2.22
+    , bytestring >= 0.10 && < 0.13
   default-language: Haskell2010
 
 test-suite tests
diff --git a/src/Language/Haskell/Meta/Translate.hs b/src/Language/Haskell/Meta/Translate.hs
--- a/src/Language/Haskell/Meta/Translate.hs
+++ b/src/Language/Haskell/Meta/Translate.hs
@@ -91,7 +91,14 @@
 toLit (HsRat _ f _) = TH.FloatPrimL (fl_value f)
 toLit (HsFloatPrim _ f) = TH.FloatPrimL (fl_value f)
 toLit (HsDoublePrim _ f) = TH.DoublePrimL (fl_value f)
-
+#if MIN_VERSION_ghc(9,8,0)
+toLit HsInt8Prim{} = noTH "toLit" "HsInt8Prim"
+toLit HsInt16Prim{} = noTH "toLit" "HsInt16Prim"
+toLit HsInt32Prim{} = noTH "toLit" "HsInt32Prim"
+toLit HsWord8Prim{} = noTH "toLit" "HsWord8Prim"
+toLit HsWord16Prim{} = noTH "toLit" "HsWord16Prim"
+toLit HsWord32Prim{} = noTH "toLit" "HsWord32Prim"
+#endif
 #if !MIN_VERSION_ghc(9,0,0)
 toLit (XLit _) = noTH "toLit" "XLit"
 #endif