Put quotes round a Name in an error message
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 7 Apr 2015 13:06:11 +0000 (14:06 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 7 Apr 2015 14:10:39 +0000 (15:10 +0100)
Cosmetic consistency only

compiler/typecheck/TcRnDriver.hs
testsuite/tests/driver/sigof04/sigof04.stderr
testsuite/tests/rename/should_fail/rnfail047.stderr
testsuite/tests/rename/should_fail/rnfail055.stderr
testsuite/tests/simplCore/should_compile/T3717.stderr
testsuite/tests/typecheck/should_fail/tcfail222.stderr

index 9d3a1fa..170445b 100644 (file)
@@ -1043,10 +1043,10 @@ emptyRnEnv2 = mkRnEnv2 emptyInScopeSet
 ----------------
 missingBootThing :: Bool -> Name -> String -> SDoc
 missingBootThing is_boot name what
-  = ppr name <+> ptext (sLit "is exported by the") <+>
-              (if is_boot then ptext (sLit "hs-boot") else ptext (sLit "hsig"))
-              <+> ptext (sLit "file, but not")
-              <+> text what <+> ptext (sLit "the module")
+  = quotes (ppr name) <+> ptext (sLit "is exported by the")
+    <+> (if is_boot then ptext (sLit "hs-boot") else ptext (sLit "hsig"))
+    <+> ptext (sLit "file, but not")
+    <+> text what <+> ptext (sLit "the module")
 
 bootMisMatch :: Bool -> SDoc -> TyThing -> TyThing -> SDoc
 bootMisMatch is_boot extra_info real_thing boot_thing
index acb0467..4be1bfd 100644 (file)
@@ -1,3 +1,3 @@
-
-<no location info>:
-    insert is exported by the hsig file, but not exported by the module
+\r
+<no location info>:\r
+    ‘insert’ is exported by the hsig file, but not exported by the module\r
index 380bbd9..f62870e 100644 (file)
@@ -1,3 +1,3 @@
-
-RnFail047_A.hs-boot:5:1:
-    RnFail047_A.y is exported by the hs-boot file, but not exported by the module
+\r
+RnFail047_A.hs-boot:5:1:\r
+    ‘RnFail047_A.y’ is exported by the hs-boot file, but not exported by the module\r
index 1c002ac..05cec42 100644 (file)
@@ -44,10 +44,10 @@ RnFail055.hs-boot:14:1:
     The datatype contexts do not match
 
 RnFail055.hs-boot:16:11:
-    T3 is exported by the hs-boot file, but not exported by the module
+    ‘T3’ is exported by the hs-boot file, but not exported by the module
 
 RnFail055.hs-boot:17:12:
-    T3' is exported by the hs-boot file, but not exported by the module
+    ‘T3'’ is exported by the hs-boot file, but not exported by the module
 
 RnFail055.hs-boot:21:1:
     Type constructor ‘T5’ has conflicting definitions in the module
@@ -76,7 +76,7 @@ RnFail055.hs-boot:25:1:
     The constructors do not match: The types for ‘T7’ differ
 
 RnFail055.hs-boot:27:22:
-    RnFail055.m1 is exported by the hs-boot file, but not exported by the module
+    ‘RnFail055.m1’ is exported by the hs-boot file, but not exported by the module
 
 RnFail055.hs-boot:28:1:
     Class ‘C2’ has conflicting definitions in the module
index a437bb8..d466e32 100644 (file)
@@ -3,13 +3,12 @@
 Result size of Tidy Core = {terms: 22, types: 10, coercions: 0}
 
 Rec {
-T3717.$wfoo [InlPrag=[0], Occ=LoopBreaker]
-  :: GHC.Prim.Int# -> GHC.Prim.Int#
+$wfoo [InlPrag=[0], Occ=LoopBreaker] :: Int# -> Int#
 [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
-T3717.$wfoo =
-  \ (ww :: GHC.Prim.Int#) ->
+$wfoo =
+  \ (ww :: Int#) ->
     case ww of ds {
-      __DEFAULT -> T3717.$wfoo (GHC.Prim.-# ds 1#);
+      __DEFAULT -> $wfoo (-# ds 1#);
       0# -> 0#
     }
 end Rec }
@@ -23,13 +22,13 @@ foo [InlPrag=INLINE[0]] :: Int -> Int
          WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: Int) ->
-                 case w of _ [Occ=Dead] { GHC.Types.I# ww1 [Occ=Once] ->
-                 case T3717.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 }
+                 case w of _ [Occ=Dead] { I# ww1 [Occ=Once] ->
+                 case $wfoo ww1 of ww2 { __DEFAULT -> I# ww2 }
                  }}]
 foo =
   \ (w :: Int) ->
-    case w of _ [Occ=Dead] { GHC.Types.I# ww1 ->
-    case T3717.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 }
+    case w of _ [Occ=Dead] { I# ww1 ->
+    case $wfoo ww1 of ww2 { __DEFAULT -> I# ww2 }
     }
 
 
index 86242b1..1293b78 100644 (file)
@@ -1,4 +1,4 @@
-[1 of 1] Compiling ShouldFail[sig of Data.STRef] ( tcfail222.hsig, nothing )
-
-<no location info>:
-    newSTRef is exported by the hsig file, but not exported by the module
+[1 of 1] Compiling ShouldFail[sig of Data.STRef] ( tcfail222.hsig, nothing )\r
+\r
+<no location info>:\r
+    ‘newSTRef’ is exported by the hsig file, but not exported by the module\r