diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-05-11 15:13:02 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-05-12 10:06:46 +0200 |
| commit | 09938f29cd615a3073f49f8b628650693e2f29e9 (patch) | |
| tree | 2ad7e2e0fa28699113dc5048d35d1b199b1db45d /compiler/parser | |
| parent | 410906b241f1ee5b338957acfc367f54e6d34fb1 (diff) | |
| download | haskell-09938f29cd615a3073f49f8b628650693e2f29e9.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Lexer.x | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 6ebd0877e7..2ce0ac6760 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -2524,7 +2524,7 @@ alternativeLayoutRuleToken t (_, ALRLayout _ col : _ls, Just expectingOCurly) | (thisCol > col) || (thisCol == col && - isNonDecreasingIntentation expectingOCurly) -> + isNonDecreasingIndentation expectingOCurly) -> do setAlrExpectingOCurly Nothing setALRContext (ALRLayout expectingOCurly thisCol : context) setNextToken t @@ -2668,9 +2668,9 @@ isALRclose ITccurly = True isALRclose ITcubxparen = True isALRclose _ = False -isNonDecreasingIntentation :: ALRLayout -> Bool -isNonDecreasingIntentation ALRLayoutDo = True -isNonDecreasingIntentation _ = False +isNonDecreasingIndentation :: ALRLayout -> Bool +isNonDecreasingIndentation ALRLayoutDo = True +isNonDecreasingIndentation _ = False containsCommas :: Token -> Bool containsCommas IToparen = True |