[fix bug when 'do' expressions used with infix expressions, add test case to regression
John Meacham <john@repetae.net>**20090901180831
 Ignore-this: 3feaf0ddff33116c54017f18d8fb372a
] addfile ./regress/tests/4_bugs/DoInfix.expected.stdout
hunk ./regress/tests/4_bugs/DoInfix.expected.stdout 1
+baz
addfile ./regress/tests/4_bugs/DoInfix.hs
hunk ./regress/tests/4_bugs/DoInfix.hs 1
+
+
+
+x <|> y = y
+
+main :: IO ()
+main = do{ putStrLn "foo";  putStrLn "bar" } <|> putStrLn "baz"
hunk ./src/FrontEnd/Desugar.hs 244
-doToExp newName f_bind f_bind_ f_fail ss = f ss where
+doToExp newName f_bind f_bind_ f_fail ss = hsParen `liftM` f ss where