@@ -187,10 +187,10 @@ prettyDiagnostics :: [LSP.Diagnostic] -> Doc SyntaxClass
187187prettyDiagnostics = vcat . map prettyDiagnostic
188188
189189prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass
190−prettyDiagnostic LSP.Diagnostic{..} =
190+prettyDiagnostic d@LSP.Diagnostic{..} =
191191 vcat
192− [slabel_ "Range: "
193− $ prettyRange _range
192+ [ slabel_ "File: " $ pretty $ view dFilePath d
193+ , slabel_ "Range: " $ prettyRange _range
194194 , slabel_ "Source: " $ pretty _source
195195 , slabel_ "Severity:" $ pretty $ show sev
196196 , slabel_ "Message: "