[allow 'non-decreasing indentation'
John Meacham <john@repetae.net>**20080326092755] hunk ./FrontEnd/HsParser.y 320
-      | PRAGMARULES layout_on rules close PRAGMAEND
-              { HsPragmaRules $ map (\x -> x { hsRuleIsMeta = $1 }) (reverse $3) }
+      | PRAGMARULES rulelist PRAGMAEND
+              { HsPragmaRules $ map (\x -> x { hsRuleIsMeta = $1 }) (reverse $2) }
hunk ./FrontEnd/HsParser.y 335
+rulelist :: { [HsRule] }
+      : '{' rules '}' { $2 }
+      | layout_on rules close { $2 }
hunk ./FrontEnd/HsParser.y 914
-layout_on  :: { () }  :       {% getSrcLoc `thenP` \sl ->
+layout_on  :: { () }  : optsemi  {% getSrcLoc `thenP` \sl ->
hunk ./FrontEnd/ParseMonad.hs 148
-	pushContext (Layout (max (indent+1) (srcLocColumn loc)))
+	pushContext (Layout (max (indent) (srcLocColumn loc)))