diff options
author | 2009-07-12 13:16:05 -0400 | |
---|---|---|
committer | 2009-07-12 13:16:05 -0400 | |
commit | 20b1f5880b6553c42f2a71fd5ad38b865faed6b6 (patch) | |
tree | c6e217e7e4e071638bb0a153e40c69d4e5f87a9b /src/cjr_print.sml | |
parent | 214f1f451fc04f7d8b5999a0f33a6794d47241f8 (diff) |
MySQL query gets up to C linking
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 7d1120b4..fcfa402e 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1652,7 +1652,7 @@ fun p_exp' par env (e, loc) = #query (Settings.currentDbms ()) {loc = loc, - numCols = length outputs, + cols = map (fn (_, t) => sql_type_in env t) outputs, doCols = doCols}] | SOME (id, query) => box [p_list_sepi newline @@ -1675,7 +1675,7 @@ fun p_exp' par env (e, loc) = id = id, query = query, inputs = map #2 inputs, - numCols = length outputs, + cols = map (fn (_, t) => sql_type_in env t) outputs, doCols = doCols}], newline, @@ -2797,7 +2797,8 @@ fun p_sql env (ds, _) = box [string "uw_", string (CharVector.map Char.toLower x), space, - p_sqltype env (t, ErrorMsg.dummySpan)]) xts, + string (#p_sql_type (Settings.currentDbms ()) + (sql_type_in env t))]) xts, case (pk, csts) of ("", []) => box [] | _ => string ",", |