Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
196225f0
Commit
196225f0
authored
Nov 25, 2009
by
Ian Lynagh
Browse files
Bug fix for alternative layout rule
parent
609e7ddf
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/parser/Lexer.x
View file @
196225f0
...
@@ -2050,7 +2050,7 @@ alternativeLayoutRuleToken t
...
@@ -2050,7 +2050,7 @@ alternativeLayoutRuleToken t
do setALRContext ls
do setALRContext ls
setPendingImplicitTokens [t]
setPendingImplicitTokens [t]
return (L thisLoc ITccurly)
return (L thisLoc ITccurly)
(ITin, _ : ls, _) ->
(ITin,
ALRLayout _
_ : ls, _) ->
do setALRContext ls
do setALRContext ls
setNextToken t
setNextToken t
return (L thisLoc ITccurly)
return (L thisLoc ITccurly)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment