diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-11 16:51:45 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-11 16:51:45 -0500 |
| commit | 16c1bacfe1116391bb7b9a459e7ad53930f2719b (patch) | |
| tree | 68a3b385a020c89ab76b4a3bbebd9207c8123dd4 /src/cjr_print.sml | |
| parent | 4ec6c9e24ebb58cd62b6f9d69447fae314aac82d (diff) | |
Fix demo regression
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index b1eb04b3..cb88ca84 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -476,7 +476,12 @@ fun getPargs (e, _) = | EFfiApp ("Basis", "sqlifyBoolN", [e]) => [(e, Nullable Bool)] | EFfiApp ("Basis", "sqlifyTimeN", [e]) => [(e, Nullable Time)] - | ECase (e, _, _) => [(e, Bool)] + | ECase (e, + [((PCon (_, PConFfi {mod = "Basis", con = "True", ...}, _), _), + (EPrim (Prim.String "TRUE"), _)), + ((PCon (_, PConFfi {mod = "Basis", con = "False", ...}, _), _), + (EPrim (Prim.String "FALSE"), _))], + _) => [(e, Bool)] | _ => raise Fail "CjrPrint: getPargs" |