diff --git a/diagnose.cabal b/diagnose.cabal index 38531f8..66d7d03 100644 --- a/diagnose.cabal +++ b/diagnose.cabal @@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.35.0. +-- This file has been generated from package.yaml by hpack version 0.35.2. -- -- see: https://github.com/sol/hpack name: diagnose -version: 2.5.0 +version: 2.5.1 synopsis: Beautiful error reporting done easily description: This package provides a simple way of getting beautiful compiler/interpreter errors using a very simple interface for the programmer. diff --git a/package.yaml b/package.yaml index 09b7ad8..8993e1c 100644 --- a/package.yaml +++ b/package.yaml @@ -1,5 +1,5 @@ name: diagnose -version: 2.4.0 +version: 2.5.1 github: "mesabloo/diagnose" license: BSD3 author: "Ghilain Bergeron" diff --git a/src/Error/Diagnose/Compat/Megaparsec.hs b/src/Error/Diagnose/Compat/Megaparsec.hs index 40b25d5..e6ad345 100644 --- a/src/Error/Diagnose/Compat/Megaparsec.hs +++ b/src/Error/Diagnose/Compat/Megaparsec.hs @@ -47,7 +47,7 @@ diagnosticFromBundle :: MP.ParseErrorBundle s e -> Diagnostic msg diagnosticFromBundle isError code msg (fromMaybe [] -> trivialHints) MP.ParseErrorBundle {..} = - foldl addReport def (toLabeledPosition <$> bundleErrors) + foldl addReport mempty (toLabeledPosition <$> bundleErrors) where toLabeledPosition :: MP.ParseError s e -> Report msg toLabeledPosition error = diff --git a/src/Error/Diagnose/Compat/Parsec.hs b/src/Error/Diagnose/Compat/Parsec.hs index a861047..d4812da 100644 --- a/src/Error/Diagnose/Compat/Parsec.hs +++ b/src/Error/Diagnose/Compat/Parsec.hs @@ -48,7 +48,7 @@ diagnosticFromParseError isError code msg (fromMaybe [] -> defaultHints) error = let pos = fromSourcePos $ PE.errorPos error markers = toMarkers pos $ PE.errorMessages error report = (if isError error then Err code msg else Warn code msg) markers (defaultHints <> hints (undefined :: Void)) - in addReport def report + in addReport mempty report where fromSourcePos :: PP.SourcePos -> Position fromSourcePos pos =