diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
| commit | 034761874175cd088c75820ee7f59d3a4ca0fa90 (patch) | |
| tree | e68fb2c7ffcd8dd34ff69f24a48de2ada1c06684 /src/cjr_print.sml | |
| parent | fa6034d3141983cecef030e539f9a333f10d466b (diff) | |
Demo working with MySQL
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 375cc4b8..3e4ccdd0 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1654,7 +1654,7 @@ fun p_exp' par env (e, loc) = {loc = loc, cols = map (fn (_, t) => sql_type_in env t) outputs, doCols = doCols}] - | SOME (id, query) => + | SOME {id, query, nested} => box [p_list_sepi newline (fn i => fn (e, t) => box [p_sql_type t, @@ -1676,7 +1676,8 @@ fun p_exp' par env (e, loc) = query = query, inputs = map #2 inputs, cols = map (fn (_, t) => sql_type_in env t) outputs, - doCols = doCols}], + doCols = doCols, + nested = nested}], newline, if wontLeakAnything then @@ -1703,7 +1704,7 @@ fun p_exp' par env (e, loc) = newline, newline, #dml (Settings.currentDbms ()) loc] - | SOME (id, dml') => + | SOME {id, dml = dml'} => let val inputs = getPargs dml in @@ -1748,7 +1749,7 @@ fun p_exp' par env (e, loc) = seqName = case #1 seq of EPrim (Prim.String s) => SOME s | _ => NONE} - | SOME (id, query) => #nextvalPrepared (Settings.currentDbms ()) {loc = loc, + | SOME {id, query} => #nextvalPrepared (Settings.currentDbms ()) {loc = loc, id = id, query = query}, newline, |