diff options
author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2018-06-15 13:45:03 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-06-15 13:45:04 -0400 |
commit | 78f5344e856d8b908209d93f685230ae617e53a2 (patch) | |
tree | 77a7b12c037b344547dbfcc8ad6750f11845b5c4 /compiler/parser | |
parent | e6498d67768eb4657b766f226a8b1ebad6e00a4f (diff) | |
download | haskell-78f5344e856d8b908209d93f685230ae617e53a2.tar.gz |
No Unicode in Parser.y
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
Diffstat (limited to 'compiler/parser')
-rw-r--r-- | compiler/parser/Parser.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index c1ee8a4855..d4caf76338 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -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 |