diff options
author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-03 22:37:18 +0200 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2015-07-03 22:44:50 +0200 |
commit | 6b01d3ce6c681428e7a9865af85685c2a76ba657 (patch) | |
tree | 1c3a846b5bfb22e45077235e14ee807d643ce59a /compiler/utils/Util.hs | |
parent | 39d83f239d33b1d214bdb7f7b3ce94d76d3e1467 (diff) | |
download | haskell-6b01d3ce6c681428e7a9865af85685c2a76ba657.tar.gz |
parser: Allow Lm (MODIFIER LETTER) category in identifiers
Easy fix in the parser to stop regressions, due to Unicode 7.0 changing
the classification of some prior code points.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Test Plan: `tests/parser/should_compile/T10196.hs`
Reviewers: hvr, austin, bgamari
Reviewed By: austin, bgamari
Subscribers: thomie, bgamari
Differential Revision: https://phabricator.haskell.org/D969
GHC Trac Issues: #10196
Diffstat (limited to 'compiler/utils/Util.hs')
-rw-r--r-- | compiler/utils/Util.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index 732f2b8f6b..96cd7521e7 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -55,6 +55,7 @@ module Util ( isEqual, eqListBy, eqMaybeBy, thenCmp, cmpList, removeSpaces, + (<&&>), (<||>), -- * Edit distance fuzzyMatch, fuzzyLookup, @@ -665,6 +666,10 @@ removeSpaces = dropWhileEndLE isSpace . dropWhile isSpace (<&&>) = liftA2 (&&) infixr 3 <&&> -- same as (&&) +(<||>) :: Applicative f => f Bool -> f Bool -> f Bool +(<||>) = liftA2 (||) +infixr 2 <||> -- same as (||) + {- ************************************************************************ * * |