@@ -10,7 +10,6 @@ module Development.IDE.Types.Diagnostics (
1010 DiagnosticStore,
1111 List(..),
1212 ideErrorText,
13− ideErrorPretty,
1413 showDiagnostics,
1514 showDiagnosticsColored,
1615 ) where
@@ -18,7 +17,6 @@ module Development.IDE.Types.Diagnostics (
1817import Data.Maybe as Maybe
1918import qualified Data.Text as T
2019import Data.Text.Prettyprint.Doc
21−import qualified Text.PrettyPrint.Annotated.HughesPJClass as Pretty
2220import qualified Language.Haskell.LSP.Types as LSP
2321import Language.Haskell.LSP.Types as LSP (
2422 DiagnosticSeverity(..)
@@ -43,9 +41,6 @@ ideErrorText fp msg = (fp, LSP.Diagnostic {
4341 _relatedInformation = Nothing
4442 })
4543
46−ideErrorPretty :: Pretty.Pretty e => NormalizedFilePath -> e -> FileDiagnostic
47−ideErrorPretty fp = ideErrorText fp . T.pack . Pretty.prettyShow
48−
4944
5045-- | Human readable diagnostics for a specific file.
5146--