diff options
author | John Leo <leo@halfaya.org> | 2016-12-13 14:57:15 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-13 15:38:33 -0500 |
commit | 7031704332db55de1fc3c46a8f450bad933997e0 (patch) | |
tree | da3d099939e1951c5286a7804dc42a8685b28d19 /compiler/utils/Outputable.hs | |
parent | aa123f445338c2980fcee87a09c01d14a83bf409 (diff) | |
download | haskell-7031704332db55de1fc3c46a8f450bad933997e0.tar.gz |
print * in unicode correctly (fixes #12550)
Test Plan: validate
Reviewers: simonpj, austin, bgamari, goldfire
Reviewed By: bgamari, goldfire
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2829
Diffstat (limited to 'compiler/utils/Outputable.hs')
-rw-r--r-- | compiler/utils/Outputable.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.hs b/compiler/utils/Outputable.hs index 32d1b5dac9..371856f5ea 100644 --- a/compiler/utils/Outputable.hs +++ b/compiler/utils/Outputable.hs @@ -29,7 +29,7 @@ module Outputable ( semi, comma, colon, dcolon, space, equals, dot, vbar, arrow, larrow, darrow, arrowt, larrowt, arrowtt, larrowtt, lparen, rparen, lbrack, rbrack, lbrace, rbrace, underscore, - blankLine, forAllLit, + blankLine, forAllLit, kindStar, (<>), (<+>), hcat, hsep, ($$), ($+$), vcat, sep, cat, @@ -590,6 +590,9 @@ rbrace = docToSDoc $ Pretty.rbrace forAllLit :: SDoc forAllLit = unicodeSyntax (char '∀') (text "forall") +kindStar :: SDoc +kindStar = unicodeSyntax (char '★') (char '*') + unicodeSyntax :: SDoc -> SDoc -> SDoc unicodeSyntax unicode plain = sdocWithDynFlags $ \dflags -> if useUnicode dflags && useUnicodeSyntax dflags |