From a410abc82ca8fa2befff13bfdb1aef500a818ebd Mon Sep 17 00:00:00 2001
From: DavidM-D <dmillardurrant@gmail.com>
Date: Fri, 3 May 2019 08:33:56 +0200
Subject: [PATCH] Restored filepaths to their error messages (#862)

---
 src/Development/IDE/Types/Diagnostics.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Development/IDE/Types/Diagnostics.hs b/src/Development/IDE/Types/Diagnostics.hs
index 1ba9c7a6..1f5539a0 100644
--- a/src/Development/IDE/Types/Diagnostics.hs
+++ b/src/Development/IDE/Types/Diagnostics.hs
@@ -187,10 +187,10 @@ prettyDiagnostics :: [LSP.Diagnostic] -> Doc SyntaxClass
 prettyDiagnostics = vcat . map prettyDiagnostic
 
 prettyDiagnostic :: LSP.Diagnostic -> Doc SyntaxClass
-prettyDiagnostic LSP.Diagnostic{..} =
+prettyDiagnostic d@LSP.Diagnostic{..} =
     vcat
-        [slabel_ "Range:   "
-            $ prettyRange _range
+        [ slabel_ "File:    " $ pretty $ view dFilePath d
+        , slabel_ "Range:   " $ prettyRange _range
         , slabel_ "Source:  " $ pretty _source
         , slabel_ "Severity:" $ pretty $ show sev
         , slabel_ "Message: "