Commit 59300a71 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Tweak alternative layout rule

parent d8b99b7e
...@@ -2002,9 +2002,9 @@ alternativeLayoutRuleToken t ...@@ -2002,9 +2002,9 @@ alternativeLayoutRuleToken t
return (L thisLoc ITocurly) return (L thisLoc ITocurly)
| otherwise -> | otherwise ->
do setAlrExpectingOCurly Nothing do setAlrExpectingOCurly Nothing
setPendingImplicitTokens [L thisLoc ITccurly] setPendingImplicitTokens [L lastLoc ITccurly]
setNextToken t setNextToken t
return (L thisLoc ITocurly) return (L lastLoc ITocurly)
(_, _, Just expectingOCurly) -> (_, _, Just expectingOCurly) ->
do setAlrExpectingOCurly Nothing do setAlrExpectingOCurly Nothing
setALRContext (ALRLayout expectingOCurly thisCol : context) setALRContext (ALRLayout expectingOCurly thisCol : context)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment