diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.1.4.0
+
+ * Support GHC 9.10
+
 # 0.1.3.0
 
  * Support GHC 9.8
diff --git a/ghc-hs-meta.cabal b/ghc-hs-meta.cabal
--- a/ghc-hs-meta.cabal
+++ b/ghc-hs-meta.cabal
@@ -1,36 +1,51 @@
-cabal-version:  2.4
+cabal-version: 2.4
+name: ghc-hs-meta
+version: 0.1.4.0
+build-type: Simple
+author: Zachary Wood
+maintainer: amesgen@amesgen.de
+license: BSD-3-Clause
+license-files:
+  LICENSE
+  LICENSE-PyF
 
-name:           ghc-hs-meta
-version:        0.1.3.0
-build-type:     Simple
-author:         Zachary Wood
-maintainer:     amesgen@amesgen.de
-license:        BSD-3-Clause
-license-files:  LICENSE LICENSE-PyF
-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.7, GHC == 9.6.3, GHC == 9.8.1
+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.8
+  ghc ==9.6.5
+  ghc ==9.8.2
+  ghc ==9.10.1
 
-extra-source-files: CHANGELOG.md README.md
+extra-source-files:
+  CHANGELOG.md
+  README.md
 
 library
   exposed-modules:
-      Language.Haskell.Meta.Parse
-      Language.Haskell.Meta.Settings
-      Language.Haskell.Meta.Translate
+    Language.Haskell.Meta.Parse
+    Language.Haskell.Meta.Settings
+    Language.Haskell.Meta.Translate
+
   hs-source-dirs:
-      src
+    src
+
   default-extensions:
-      TemplateHaskell
-      LambdaCase
+    LambdaCase
+    TemplateHaskell
+
   ghc-options: -Wall
   build-depends:
-      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
+    base >=4.14 && <4.21,
+    bytestring >=0.10 && <0.13,
+    ghc >=8.10.7 && <9.11,
+    ghc-boot >=8.10.7 && <9.11,
+    template-haskell >=2.16.0 && <2.23,
+
   default-language: Haskell2010
 
 test-suite tests
@@ -38,18 +53,20 @@
   main-is: Main.hs
   default-language: Haskell2010
   default-extensions:
-      TemplateHaskell
+    TemplateHaskell
+
   hs-source-dirs:
     test
+
   build-depends:
-      base
-    , template-haskell
-    , ghc
-    , ghc-boot
-    , hspec
-    , bytestring
-    , ghc-hs-meta
+    base,
+    bytestring,
+    ghc,
+    ghc-boot,
+    ghc-hs-meta,
+    hspec,
+    template-haskell,
 
 source-repository head
-  type:     git
+  type: git
   location: https://github.com/zacwood9/ghc-hs-meta
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
@@ -157,7 +157,7 @@
   = TH.AppE (toExp d . unLoc $ e1) (toExp d . unLoc $ e2)
 
 #if MIN_VERSION_ghc(9,2,0)
-#if MIN_VERSION_ghc(9,6,0)
+#if MIN_VERSION_ghc(9,6,0) && !MIN_VERSION_ghc(9,10,0)
 toExp d (Expr.HsAppType _ e _ HsWC {hswc_body}) = TH.AppTypeE (toExp d . unLoc $ e) (toType . unLoc $ hswc_body)
 #else
 toExp d (Expr.HsAppType _ e HsWC {hswc_body}) = TH.AppTypeE (toExp d . unLoc $ e) (toType . unLoc $ hswc_body)
@@ -177,7 +177,9 @@
   = TH.AppE (TH.VarE 'negate) (toExp d . unLoc $ e)
 
 -- NOTE: for lambda, there is only one match
-#if MIN_VERSION_ghc(9,6,0)
+#if MIN_VERSION_ghc(9,10,0)
+toExp d (Expr.HsLam _ LamSingle (Expr.MG _ (unLoc -> (map unLoc -> [Expr.Match _ _ (map unLoc -> ps) (Expr.GRHSs _ [unLoc -> Expr.GRHS _ _ (unLoc -> e)] _)]))))
+#elif MIN_VERSION_ghc(9,6,0)
 toExp d (Expr.HsLam _ (Expr.MG _ (unLoc -> (map unLoc -> [Expr.Match _ _ (map unLoc -> ps) (Expr.GRHSs _ [unLoc -> Expr.GRHS _ _ (unLoc -> e)] _)]))))
 #else
 toExp d (Expr.HsLam _ (Expr.MG _ (unLoc -> (map unLoc -> [Expr.Match _ _ (map unLoc -> ps) (Expr.GRHSs _ [unLoc -> Expr.GRHS _ _ (unLoc -> e)] _)])) _))
@@ -220,7 +222,7 @@
 #endif
 
 -- toExp (Expr.List _ xs)                        = TH.ListE (fmap toExp xs)
-#if MIN_VERSION_ghc(9, 4, 0)
+#if MIN_VERSION_ghc(9, 4, 0) && !MIN_VERSION_ghc(9, 10, 0)
 toExp d (Expr.HsPar _ _ e _)
 #else
 toExp d (Expr.HsPar _ e)