Commit d305c6b6 authored by Ian Lynagh's avatar Ian Lynagh

Add a GHC layout extension to the alternative layout rule

parent 91d25cf9
......@@ -1985,6 +1985,14 @@ alternativeLayoutRuleToken t
newLine = (lastLoc == noSrcSpan)
|| (srcSpanStartLine thisLoc > srcSpanEndLine lastLoc)
case (unLoc t, context, mExpectingOCurly) of
-- This case handles a GHC extension to the original H98
-- layout rule...
(ITocurly, _, Just _) ->
do setAlrExpectingOCurly Nothing
setALRContext (ALRNoLayout (containsCommas ITocurly) : context)
return t
-- ...and makes this case unnecessary
{-
-- I think our implicit open-curly handling is slightly
-- different to John's, in how it interacts with newlines
-- and "in"
......@@ -1992,6 +2000,7 @@ alternativeLayoutRuleToken t
do setAlrExpectingOCurly Nothing
setNextToken t
lexTokenAlr
-}
(_, ALRLayout _ col : ls, Just expectingOCurly)
| (thisCol > col) ||
(thisCol == col &&
......
Markdown is supported
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