Mercurial > urweb

diff src/cjr_print.sml @ 322:aa89b73d83e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve detection of opportunities for prepared statements with bool parameters
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Sep 2008 12:22:06 -0400
parents 04ebfe929a98
children 5030e909fbf3
line wrap: on
line diff
--- a/src/cjr_print.sml	Thu Sep 11 12:12:22 2008 -0400
+++ b/src/cjr_print.sml	Thu Sep 11 12:22:06 2008 -0400
@@ -425,6 +425,7 @@
       | EFfiApp ("Basis", "sqlifyFloat", [e]) => [(e, Float)]
       | EFfiApp ("Basis", "sqlifyString", [e]) => [(e, String)]
       | EFfiApp ("Basis", "sqlifyBool", [e]) => [(e, Bool)]
+      | ECase (e, _, _) => [(e, Bool)]
 
       | _ => raise Fail "CjrPrint: getPargs"