diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,10 +1,16 @@
 # Changelog for ghc-lib-parser-ex
 
-## 0.20210801 released 2021-08-01
+## 0.20210901 released 2021-09-01
+- Update to `ghc-lib-parser-0.20210901`
+
+## 8.10.0.23 released 2021-08-28
+- Update to `ghc-lib-parser-8.10.7.20210828`
+
+## 8.10.0.22 released 2021-08-14
+- Update to `ghc-lib-parser-0.20210814`
 - Added to `GhclibParserEx.GHC.Hs.Expr`:
   - `isMonadComp`
   - `isListComp`
-- Update to `ghc-lib-0.20210801`
 
 ## 0.20210701 released 2021-07-01
 - Update to `ghc-lib-0.20210701`
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:        0.20210801
+version:        0.20210901
 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
@@ -118,7 +118,14 @@
 isParComp = \case ParStmt{} -> True; _ -> False
 
 -- TODO: Seems `HsStmtContext (HsDoRn p)` on master right now.
-#if defined (GHCLIB_API_HEAD) || defined(GHCLIB_API_902) || defined (GHCLIB_API_900)
+#if defined (GHCLIB_API_HEAD)
+isMDo :: HsDoFlavour -> Bool
+isMDo = \case MDoExpr _ -> True; _ -> False
+isMonadComp :: HsDoFlavour -> Bool
+isMonadComp = \case MonadComp -> True; _ -> False
+isListComp :: HsDoFlavour -> Bool
+isListComp = \case ListComp -> True; _ -> False
+#elif defined(GHCLIB_API_902) || defined (GHCLIB_API_900)
 isMDo :: HsStmtContext GhcRn -> Bool
 isMDo = \case MDoExpr _ -> True; _ -> False
 isMonadComp :: HsStmtContext GhcRn -> Bool
@@ -192,7 +199,11 @@
 isUnboxed = \case Unboxed -> True; _ -> False
 
 isWholeFrac :: HsExpr GhcPs -> Bool
-#if defined (GHCLIB_API_HEAD) || defined(GHCLIB_API_902)
+
+#if defined (GHCLIB_API_HEAD)
+isWholeFrac (HsLit _ (HsRat _ fl@FL{} _)) = denominator (rationalFromFractionalLit fl) == 1
+isWholeFrac (HsOverLit _ (OverLit _ (HsFractional fl@FL {}) )) = denominator (rationalFromFractionalLit fl) == 1
+#elif defined(GHCLIB_API_902)
 isWholeFrac (HsLit _ (HsRat _ fl@FL{} _)) = denominator (rationalFromFractionalLit fl) == 1
 isWholeFrac (HsOverLit _ (OverLit _ (HsFractional fl@FL {}) _)) = denominator (rationalFromFractionalLit fl) == 1
 #else