No Unicode in Parser.y
authorVladislav Zavialov <vlad.z.4096@gmail.com>
Fri, 15 Jun 2018 17:45:03 +0000 (13:45 -0400)
committerBen Gamari <ben@smart-cactus.org>
Fri, 15 Jun 2018 17:45:04 +0000 (13:45 -0400)
Unicode characters in Parser.y cause build failures
on systems where the locale does not support Unicode.

See https://mail.haskell.org/pipermail/ghc-devs/2018-June/015874.html

Test Plan: ./validate

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, mpickering, carter

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

compiler/parser/Parser.y

index c1ee8a4..d4caf76 100644 (file)
@@ -3368,7 +3368,7 @@ special_id
 special_sym :: { Located FastString }
 special_sym : '!'       {% ams (sL1 $1 (fsLit "!")) [mj AnnBang $1] }
             | '.'       { sL1 $1 (fsLit ".") }
-            | '*'       { sL1 $1 (fsLit (if isUnicode $1 then "" else "*")) }
+            | '*'       { sL1 $1 (fsLit (if isUnicode $1 then "\x2605" else "*")) }
 
 -----------------------------------------------------------------------------
 -- Data constructors