diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,10 @@
 # Changelog for `annotated-exception`
 
+## 0.3.0.2
+
+- [#32](https://github.com/parsonsmatt/annotated-exception/pull/32)
+    - Fixed the tests for GHC 9.10
+
 ## 0.3.0.1
 
 - [#31](https://github.com/parsonsmatt/annotated-exception/pull/31)
diff --git a/annotated-exception.cabal b/annotated-exception.cabal
--- a/annotated-exception.cabal
+++ b/annotated-exception.cabal
@@ -1,11 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.36.0.
+-- This file has been generated from package.yaml by hpack version 0.37.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           annotated-exception
-version:        0.3.0.1
+version:        0.3.0.2
 synopsis:       Exceptions, with checkpoints and context.
 description:    Please see the README on Github at <https://github.com/parsonsmatt/annotated-exception#readme>
 category:       Control
diff --git a/test/Control/Exception/AnnotatedSpec.hs b/test/Control/Exception/AnnotatedSpec.hs
--- a/test/Control/Exception/AnnotatedSpec.hs
+++ b/test/Control/Exception/AnnotatedSpec.hs
@@ -37,6 +37,9 @@
 emptyAnnotation :: e -> AnnotatedException e
 emptyAnnotation = pure
 
+omitEmptyLines :: String -> [String]
+omitEmptyLines = filter (/= "") . lines
+
 spec :: Spec
 spec = do
     describe "toException" $ do
@@ -56,18 +59,18 @@
                         AnnotatedException ["hello", "goodbye"] (SomeException TestException)
 
     describe "displayException" $ do
+        it "is identical on SomeException" $ do
+            omitEmptyLines (displayException TestException)
+                `shouldBe` omitEmptyLines (displayException (SomeException TestException))
         it "is reasonably nice to look at" $ do
-            lines (displayException (AnnotatedException [] TestException))
+            omitEmptyLines (displayException (AnnotatedException [] TestException))
                 `shouldBe`
                     [ "! AnnotatedException !"
                     , "Underlying exception type: TestException"
-                    , ""
                     , "show:"
                     , "\tTestException"
-                    , ""
                     , "displayException:"
                     , "\tTestException"
-                    , ""
                     , "(no callstack available)"
                     ]
         it "is reasonably nice to look at" $ do
@@ -90,16 +93,14 @@
             let resultLines =
                     [ "! AnnotatedException !"
                     , "Underlying exception type: TestException"
-                    , ""
                     , "show:"
                     , "\tTestException"
-                    , ""
                     , "displayException:"
                     , "\tTestException"
                     , "Annotations:"
                     , "\t * Annotation @[Char] \"asdf\""
                     ]
-            take (length resultLines) (lines (displayException (exn :: AnnotatedException SomeException))) `shouldBe`
+            take (length resultLines) (omitEmptyLines (displayException (exn :: AnnotatedException SomeException))) `shouldBe`
                 resultLines
 
     describe "AnnotatedException can fromException a" $ do