diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,10 @@
 
 **Errata** uses [PVP Versioning](https://pvp.haskell.org).
 
+## 0.4.0.1
+
+* Updated for GHC 9.4 and 9.6.
+
 ## 0.4.0.0
 
 * Added styling individual pointers with `PointerStyle` (e.g. characters, highlighting).
diff --git a/errata.cabal b/errata.cabal
--- a/errata.cabal
+++ b/errata.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name:          errata
-version:       0.4.0.0
+version:       0.4.0.1
 synopsis:      Source code error pretty printing
 description:
     An extremely customizable error pretty printer that can handle many kinds of error formatting.
@@ -20,11 +20,13 @@
     README.md
     CHANGELOG.md
 tested-with:
-    GHC == 9.2.1
-  , GHC == 9.0.2
-  , GHC == 8.10.7
+    GHC == 8.6.5
   , GHC == 8.8.4
-  , GHC == 8.6.5
+  , GHC == 8.10.7
+  , GHC == 9.0.2
+  , GHC == 9.2.8
+  , GHC == 9.4.5
+  , GHC == 9.6.2
 
 source-repository head
   type:     git
@@ -36,7 +38,7 @@
 
 common common-options
   build-depends:
-      base >= 4.12 && < 4.17
+      base >= 4.12 && < 4.19
     , containers >= 0.6 && < 0.7
     , text >= 1.2.3 && < 2.1
   ghc-options:
diff --git a/src/Errata/Types.hs b/src/Errata/Types.hs
--- a/src/Errata/Types.hs
+++ b/src/Errata/Types.hs
@@ -199,35 +199,35 @@
     }
 
 instance Show Style where
-  show (Style {..}) = concat
-    [ "Style {"
-    , "styleLocation = ", show $ styleLocation ("file", 1, 1)
-    , ", styleNumber = ", show $ styleNumber 3
-    , ", styleLine = ", show $ styleLine [(basicPointer, (1, 5))] "text"
-    , ", styleEllipsis = ", show styleEllipsis
-    , ", styleLinePrefix = ", show styleLinePrefix
-    , ", styleVertical = ", show styleVertical
-    , ", styleHorizontal = ", show styleHorizontal
-    , ", styleDownRight = ", show styleDownRight
-    , ", styleUpRight = ", show styleUpRight
-    , ", styleUpDownRight = ", show styleUpDownRight
-    , ", styleTabWidth = ", show styleTabWidth
-    , ", styleExtraLinesAfter = ", show styleExtraLinesAfter
-    , ", styleExtraLinesBefore = ", show styleExtraLinesBefore
-    , ", stylePaddingTop = ", show stylePaddingTop
-    , ", stylePaddingBottom = ", show stylePaddingBottom
-    , ", styleEnableDecorations = ", show styleEnableDecorations
-    , ", styleEnableLinePrefix = ", show styleEnableLinePrefix
-    , "}"
-    ]
-    where
-      basicPointer = PointerStyle
-        { styleHighlight = id
-        , styleUnderline = "^"
-        , styleHook = "|"
-        , styleConnector = "|"
-        , styleEnableHook = True
-        }
+    show (Style {..}) = concat
+        [ "Style {"
+        , "styleLocation = ", show $ styleLocation ("file", 1, 1)
+        , ", styleNumber = ", show $ styleNumber 3
+        , ", styleLine = ", show $ styleLine [(basicPointer, (1, 5))] "text"
+        , ", styleEllipsis = ", show styleEllipsis
+        , ", styleLinePrefix = ", show styleLinePrefix
+        , ", styleVertical = ", show styleVertical
+        , ", styleHorizontal = ", show styleHorizontal
+        , ", styleDownRight = ", show styleDownRight
+        , ", styleUpRight = ", show styleUpRight
+        , ", styleUpDownRight = ", show styleUpDownRight
+        , ", styleTabWidth = ", show styleTabWidth
+        , ", styleExtraLinesAfter = ", show styleExtraLinesAfter
+        , ", styleExtraLinesBefore = ", show styleExtraLinesBefore
+        , ", stylePaddingTop = ", show stylePaddingTop
+        , ", stylePaddingBottom = ", show stylePaddingBottom
+        , ", styleEnableDecorations = ", show styleEnableDecorations
+        , ", styleEnableLinePrefix = ", show styleEnableLinePrefix
+        , "}"
+        ]
+        where
+            basicPointer = PointerStyle
+                { styleHighlight = id
+                , styleUnderline = "^"
+                , styleHook = "|"
+                , styleConnector = "|"
+                , styleEnableHook = True
+                }
 
 -- | Stylization options for an individual pointer, e.g. characters to use.
 data PointerStyle = PointerStyle
@@ -257,12 +257,12 @@
   }
 
 instance Show PointerStyle where
-  show (PointerStyle {..}) = concat
-    [ "PointerStyle {"
-    , "styleHighlight = ", show $ styleHighlight "text"
-    , ", styleUnderline = ", show styleUnderline
-    , ", styleHook = ", show styleHook
-    , ", styleConnector = ", show styleConnector
-    , ", styleEnableHook = ", show styleEnableHook
-    , "}"
-    ]
+    show (PointerStyle {..}) = concat
+        [ "PointerStyle {"
+        , "styleHighlight = ", show $ styleHighlight "text"
+        , ", styleUnderline = ", show styleUnderline
+        , ", styleHook = ", show styleHook
+        , ", styleConnector = ", show styleConnector
+        , ", styleEnableHook = ", show styleEnableHook
+        , "}"
+        ]