Decompiler Bug, UnionCaseTest: zero arg unions sprinted with "()"

[GoogleCodeExporter]

UnionCaseTest expressions should not sprint "()" for zero arg unions:

> source <@ match None with | None -> true | _ -> false @>;;
val it : string =
  "let matchValue = None in (match matchValue with | None() -> true | _ -> false) && true"

should instead produce the following code:

let matchValue = None in (match matchValue with | None -> true | _ -> false) && 
true

Original issue reported on code.google.com by stephen....@gmail.com on 1 Mar 2011 at 1:21