errata 0.4.0.0 → 0.4.0.1

raw patch · 3 files changed

+50/−44 lines, 3 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• errata.cabal +8/−6
• src/Errata/Types.hs +38/−38

@@ -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).

@@ -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:

@@ -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+        , "}"+        ]