haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2024-12-17 23:22:04 +03:00
Code Issues Projects Releases Wiki Activity

Restored filepaths to their error messages (#862)

Browse Source
This commit is contained in:
DavidM-D 2019-05-03 08:33:56 +02:00 committed by Moritz Kiefer
parent 8483aed07c
commit a410abc82c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Development/IDE/Types/Diagnostics.hs
View File

@ -187,10 +187,10 @@ prettyDiagnostics :: [LSP.Diagnostic] -> Doc SyntaxClass
prettyDiagnostics = vcat . map prettyDiagnostic prettyDiagnostics = vcat . map prettyDiagnostic
prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass
prettyDiagnostic LSP.Diagnostic{..} = prettyDiagnostic d@LSP.Diagnostic{..} =
vcat vcat
[slabel_ "Range: " [ slabel_ "File: " $ pretty $ view dFilePath d
$ prettyRange _range , slabel_ "Range: " $ prettyRange _range
, slabel_ "Source: " $ pretty _source , slabel_ "Source: " $ pretty _source
, slabel_ "Severity:" $ pretty $ show sev , slabel_ "Severity:" $ pretty $ show sev
, slabel_ "Message: " , slabel_ "Message: "