summaryrefslogtreecommitdiff
path: root/src/cjr_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 16:51:45 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 16:51:45 -0500
commit16c1bacfe1116391bb7b9a459e7ad53930f2719b (patch)
tree68a3b385a020c89ab76b4a3bbebd9207c8123dd4 /src/cjr_print.sml
parent4ec6c9e24ebb58cd62b6f9d69447fae314aac82d (diff)
Fix demo regression
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml7
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"