Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
321:cd4cabaf3e52 322:aa89b73d83e4
423 423
424 | EFfiApp ("Basis", "sqlifyInt", [e]) => [(e, Int)] 424 | EFfiApp ("Basis", "sqlifyInt", [e]) => [(e, Int)]
425 | EFfiApp ("Basis", "sqlifyFloat", [e]) => [(e, Float)] 425 | EFfiApp ("Basis", "sqlifyFloat", [e]) => [(e, Float)]
426 | EFfiApp ("Basis", "sqlifyString", [e]) => [(e, String)] 426 | EFfiApp ("Basis", "sqlifyString", [e]) => [(e, String)]
427 | EFfiApp ("Basis", "sqlifyBool", [e]) => [(e, Bool)] 427 | EFfiApp ("Basis", "sqlifyBool", [e]) => [(e, Bool)]
428 | ECase (e, _, _) => [(e, Bool)]
428 429
429 | _ => raise Fail "CjrPrint: getPargs" 430 | _ => raise Fail "CjrPrint: getPargs"
430 431
431 fun p_ensql t e = 432 fun p_ensql t e =
432 case t of 433 case t of