git.iko.soy/ghcide
on master help sign in
Restored filepaths to their error messages (#862)
a410abcDavidM-D
src/Development/IDE/Types/Diagnostics.hs+3−3
compare with master
unifiedsplit
@@ -187,10 +187,10 @@ prettyDiagnostics :: [LSP.Diagnostic] -> Doc SyntaxClass
187prettyDiagnostics = vcat . map prettyDiagnostic
187prettyDiagnostics = vcat . map prettyDiagnostic
188
188
189prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass
189prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass
190−prettyDiagnostic LSP.Diagnostic{..} =
190+prettyDiagnostic d@LSP.Diagnostic{..} =
191 vcat
191 vcat
192− [slabel_ "Range: "
192+ [ slabel_ "File: " $ pretty $ view dFilePath d
193− $ prettyRange _range
193+ , slabel_ "Range: " $ prettyRange _range
194 , slabel_ "Source: " $ pretty _source
194 , slabel_ "Source: " $ pretty _source
195 , slabel_ "Severity:" $ pretty $ show sev
195 , slabel_ "Severity:" $ pretty $ show sev
196 , slabel_ "Message: "
196 , slabel_ "Message: "