typecheck: Consistently use pretty quotes in error messages
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 27 Nov 2017 19:00:06 +0000 (14:00 -0500)
committerBen Gamari <ben@smart-cactus.org>
Tue, 28 Nov 2017 01:28:37 +0000 (20:28 -0500)
Subscribers: rwbarton, thomie, carter

Differential Revision: https://phabricator.haskell.org/D4241

compiler/typecheck/TcRnExports.hs
testsuite/tests/backpack/should_fail/bkpfail48.stderr
testsuite/tests/module/mod135.stderr
testsuite/tests/module/mod8.stderr
testsuite/tests/rename/should_fail/rnfail028.stderr
testsuite/tests/typecheck/should_fail/MissingExportList03.stderr

index e2b6a61..f892065 100644 (file)
@@ -31,7 +31,6 @@ import Outputable
 import ConLike
 import DataCon
 import PatSyn
-import FastString
 import Maybes
 import Util (capitalise)
 
@@ -657,17 +656,21 @@ dupModuleExport mod
 
 moduleNotImported :: ModuleName -> SDoc
 moduleNotImported mod
-  = text "The export item `module" <+> ppr mod <>
-    text "' is not imported"
+  = hsep [text "The export item",
+          quotes (text "module" <+> ppr mod),
+          text "is not imported"]
 
 nullModuleExport :: ModuleName -> SDoc
 nullModuleExport mod
-  = text "The export item `module" <+> ppr mod <> ptext (sLit "' exports nothing")
+  = hsep [text "The export item",
+          quotes (text "module" <+> ppr mod),
+          text "exports nothing"]
 
 missingModuleExportWarn :: ModuleName -> SDoc
 missingModuleExportWarn mod
-  = text "The export item `module" <+> ppr mod <>
-    ptext (sLit "' is missing an export list")
+  = hsep [text "The export item",
+          quotes (text "module" <+> ppr mod),
+          text "is missing an export list"]
 
 
 dodgyExportWarn :: Name -> SDoc
index 9c991d6..cb0740d 100644 (file)
@@ -4,7 +4,7 @@
   [1 of 1] Compiling A[sig]           ( p/A.hsig, nothing )
 
 bkpfail48.bkp:6:18: error:
-    • The export item `module Data.Bool' is not imported
+    • The export item ‘module Data.Bool’ is not imported
     • while merging the signatures from:
         • q[A=<A>]:A
         • ...and the local signature for A
index a08f93c..197bc93 100644 (file)
@@ -1,2 +1,3 @@
 
-mod135.hs:2:11: The export item `module Data.List' is not imported
+mod135.hs:2:11: error:
+    The export item ‘module Data.List’ is not imported
index cba84c8..d06d690 100644 (file)
@@ -1,2 +1,2 @@
 
-mod8.hs:2:10: The export item `module N' is not imported
+mod8.hs:2:10: error: The export item ‘module N’ is not imported
index f09cda3..848e39e 100644 (file)
@@ -1,2 +1,3 @@
 
-rnfail028.hs:2:21: The export item `module List' is not imported
+rnfail028.hs:2:21: error:
+    The export item ‘module List’ is not imported
index f4258de..897db53 100644 (file)
@@ -1,2 +1,3 @@
-MissingExportList03.hs:1:1: [-Wmissing-export-lists, -Werror=missing-export-lists]
-    The export item `module ShouldFail' is missing an export list
+
+MissingExportList03.hs:1:1: error: [-Wmissing-export-lists, -Werror=missing-export-lists]
+    The export item ‘module ShouldFail’ is missing an export list