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
Original issue reported on code.google.com by
stephen....@gmail.com
on 1 Mar 2011 at 1:21