[fix parsing of RULES to match what ghc does
John Meacham <john@repetae.net>**20100729112521
 Ignore-this: 53e10a3ba7426c0994f3d03ee92c3eda
] hunk ./lib/jhc/Jhc/Num.hs 81
-  "realToFrac/toRational"     realToFrac = toRational
-  "realToFrac/fromRational"   realToFrac = fromRational
-  "realToFrac/toDouble"       realToFrac = toDouble
-  "realToFrac/fromDouble"     realToFrac = fromDouble
- #-}
+"realToFrac/toRational"     realToFrac = toRational
+"realToFrac/fromRational"   realToFrac = fromRational
+"realToFrac/toDouble"       realToFrac = toDouble
+"realToFrac/fromDouble"     realToFrac = fromDouble
+#-}
hunk ./lib/jhc/Jhc/Num.hs 88
-  "fromIntegral/Int"          fromIntegral = (id :: Int -> Int)
-  "fromIntegral/Integer"      fromIntegral = (id :: Integer -> Integer)
-  "fromIntegral/toInt"        fromIntegral = toInt
-  "fromIntegral/fromInt"      fromIntegral = fromInt
-  "fromIntegral/toInteger"    fromIntegral = toInteger
-  "fromIntegral/fromInteger"  fromIntegral = fromInteger
- #-}
+"fromIntegral/Int"          fromIntegral = (id :: Int -> Int)
+"fromIntegral/Integer"      fromIntegral = (id :: Integer -> Integer)
+"fromIntegral/toInt"        fromIntegral = toInt
+"fromIntegral/fromInt"      fromIntegral = fromInt
+"fromIntegral/toInteger"    fromIntegral = toInteger
+"fromIntegral/fromInteger"  fromIntegral = fromInteger
+#-}
hunk ./src/FrontEnd/HsParser.y 334
-      | PRAGMARULES rulelist PRAGMAEND
+      | PRAGMARULES rules PRAGMAEND
hunk ./src/FrontEnd/HsParser.y 351
-      : rules optsemi rule  { $3 : $1 }
-      | rule optsemi           { [$1] }
-
-rulelist :: { [HsRule] }
-      : '{' rules '}' { $2 }
-      | layout_on rules close { $2 }
+      : rules ';'rule         { $3 : $1 }
+      | rules ';'             { $1 }
+      | rule                  { [$1] }
+      | {- empty -}           { [] }