[fix the 'do' 'where' parsing bug
John Meacham <john@repetae.net>**20100728100113
 Ignore-this: d0ad91876b29f9b4594d4e2338bca04
] hunk ./src/FrontEnd/HsParser.y 868
-      : stmts1 semis exp              { reverse (HsQualifier $3 : $1) }
-      | exp                           { [HsQualifier $1] }
+      : stmt stmts1                   { $1:$2 }
+      | ';' stmts                     { $2 }
+      | {- empty -}                   { [] }
hunk ./src/FrontEnd/HsParser.y 873
-      : stmts1 semis qual             { $3 : $1 }
-      | qual                          { [$1] }
+      : ';' stmts                     { $2 }
+      |                               { [] }
+
+stmt :: { HsStmt }
+    : qual            { $1 }