Remove space when pretty printing SrcLoc

Fixes haskell-suite#307
Jhana1 · Jul 28, 2016 · 5ea0187 · 5ea0187
1 parent 49f78b8
commit 5ea0187
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/CHANGELOG b/CHANGELOG
@@ -1,3 +1,5 @@
+* Remove space when pretty printing `SrcLoc`. (#307)
+
 1.18.1 --> 1.18.2
 ===================
 

diff --git a/src/Language/Haskell/Exts/Pretty.hs b/src/Language/Haskell/Exts/Pretty.hs
@@ -1312,7 +1312,7 @@ instance  Pretty (Asst l) where
 -- Pretty print a source location, useful for printing out error messages
 instance Pretty SrcLoc where
   pretty srcLoc =
-    return $ P.hsep [ colonFollow (P.text $ srcFilename srcLoc)
+    return $ P.hcat [ colonFollow (P.text $ srcFilename srcLoc)
                     , colonFollow (P.int  $ srcLine     srcLoc)
                     , P.int $ srcColumn srcLoc
                     ]