[commit: ghc] master: Fix build on non-unicode locale (6a02f28)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6a02f280e074278acceb6e9331bb00dccfe02f08/ghc

>---------------------------------------------------------------

commit 6a02f280e074278acceb6e9331bb00dccfe02f08
Author: Reid Barton <rwbarton at gmail.com>
Date:   Fri Aug 23 19:27:20 2013 -0400

    Fix build on non-unicode locale
    
    happy reads .y files with the system encoding, so keep Parser.y.pp ASCII.
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


>---------------------------------------------------------------

6a02f280e074278acceb6e9331bb00dccfe02f08
 compiler/parser/Parser.y.pp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 9d08706..489b5af 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -2249,8 +2249,8 @@ hintExplicitForall span = do
     forall      <- extension explicitForallEnabled
     rulePrag    <- extension inRulePrag
     unless (forall || rulePrag) $ parseErrorSDoc span $ vcat
-      [ text "Illegal symbol '∀' in type"
+      [ text "Illegal symbol '\x2200' in type" -- U+2200 FOR ALL
       , text "Perhaps you intended -XRankNTypes or similar flag"
-      , text "to enable explicit-forall syntax: ∀ <tvs>. <type>"
+      , text "to enable explicit-forall syntax: \x2200 <tvs>. <type>"
       ]
 }