diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,11 @@
 # Changelog for ghc-lib-parser-ex
 
+## 9.2.1.1 released
+- Update to `ghc-lib-parser-9.2.4.20220527`
+
+## 0.20220701 released
+- Update to `ghc-lib-parser-0.20220701`
+
 ## 9.2.1.0 released
 - The Cabal flag `auto` now defaults to `False`:
   - When `auto` has the value `False`:
diff --git a/ghc-lib-parser-ex.cabal b/ghc-lib-parser-ex.cabal
--- a/ghc-lib-parser-ex.cabal
+++ b/ghc-lib-parser-ex.cabal
@@ -1,6 +1,6 @@
 cabal-version:  1.18
 name:           ghc-lib-parser-ex
-version:        9.2.1.0
+version:        9.2.1.1
 description:    Please see the README on GitHub at <https://github.com/shayne-fletcher/ghc-lib-parser-ex#readme>
 homepage:       https://github.com/shayne-fletcher/ghc-lib-parser-ex#readme
 bug-reports:    https://github.com/shayne-fletcher/ghc-lib-parser-ex/issues
diff --git a/src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs b/src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs
--- a/src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs
+++ b/src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs
@@ -60,7 +60,11 @@
 isAnyApp x = isApp x || isOpApp x
 isLexeme = \case (L _ HsVar{}) -> True; (L _ HsOverLit{}) -> True; (L _ HsLit{}) -> True; _ -> False
 isLambda = \case (L _ HsLam{}) -> True; _ -> False
+#if defined (GHCLIB_API_HEAD)
+isQuasiQuoteExpr = \case (L _ (HsUntypedSplice _ HsQuasiQuote{})) -> True; _ -> False
+#else
 isQuasiQuoteExpr = \case (L _ (HsSpliceE _ HsQuasiQuote{})) -> True; _ -> False
+#endif
 isQuasiQuote = isQuasiQuoteExpr -- Backwards compat.
 isDotApp = \case (L _ (OpApp _ _ op _)) -> isDot op; _ -> False
 isTypeApp = \case (L _ HsAppType{}) -> True; _ -> False
@@ -84,9 +88,14 @@
 isLCase = \case (L _ HsLamCase{}) -> True; _ -> False
 isOverLabel = \case (L _ HsOverLabel{}) -> True; _ -> False
 
+#if defined (GHCLIB_API_HEAD)
+isQuasiQuoteSplice :: HsUntypedSplice GhcPs -> Bool
+#else
 isQuasiQuoteSplice :: HsSplice GhcPs -> Bool
+#endif
 isQuasiQuoteSplice = \case HsQuasiQuote{} -> True; _ -> False
 
+
 #if defined (GHCLIB_API_HEAD) || defined (GHCLIB_API_904) || defined(GHCLIB_API_902) || defined (GHCLIB_API_901)
 isStrictMatch :: HsMatchContext GhcPs -> Bool
 #else
@@ -165,7 +174,14 @@
   _ -> False
 
 isSpliceDecl :: HsExpr GhcPs -> Bool
+#if defined (GHCLIB_API_HEAD)
+isSpliceDecl = \case
+  HsTypedSplice{} -> True
+  HsUntypedSplice{} -> True
+  _ -> False
+#else
 isSpliceDecl = \case HsSpliceE{} -> True; _ -> False
+#endif
 
 isMultiIf :: HsExpr GhcPs -> Bool
 isMultiIf = \case HsMultiIf{} -> True; _ -> False