diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-20 13:22:44 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-20 13:22:44 -0500 |
| commit | 5c17ca9d7f867c45144600ec7e6e7af0134191d7 (patch) | |
| tree | 021c30b2de4116401239e0dd59f0844a99e92e07 /src/sqlite.sml | |
| parent | 5f3771069b5e4c7e99b1c1bbe98de2e8e7b96161 (diff) | |
Use proper string time format for SQLite
Diffstat (limited to 'src/sqlite.sml')
| -rw-r--r-- | src/sqlite.sml | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/sqlite.sml b/src/sqlite.sml index c87bd509..e668f53a 100644 --- a/src/sqlite.sml +++ b/src/sqlite.sml @@ -402,6 +402,8 @@ fun init {dbstring, prepared = ss, tables, views, sequences} = newline] end +val fmt = "\"%Y-%m-%d %H:%M:%S\"" + fun p_getcol {loc, wontLeakStrings, col = i, typ = t} = let fun p_unsql t = @@ -415,7 +417,11 @@ fun p_getcol {loc, wontLeakStrings, col = i, typ = t} = box [string "uw_strdup(ctx, (uw_Basis_string)sqlite3_column_text(stmt, ", string (Int.toString i), string "))"] | Char => box [string "sqlite3_column_text(stmt, ", string (Int.toString i), string ")[0]"] | Bool => box [string "(uw_Basis_bool)sqlite3_column_int(stmt, ", string (Int.toString i), string ")"] - | Time => box [string "uw_Basis_stringToTime_error(ctx, (uw_Basis_string)sqlite3_column_text(stmt, ", string (Int.toString i), string "))"] + | Time => box [string "uw_Basis_stringToTimef_error(ctx, ", + string fmt, + string ", (uw_Basis_string)sqlite3_column_text(stmt, ", + string (Int.toString i), + string "))"] | Blob => box [string "({", newline, string "char *data = (char *)sqlite3_column_blob(stmt, ", @@ -591,7 +597,9 @@ fun p_inputs loc = string ")"] | Time => box [string "sqlite3_bind_text(stmt, ", string (Int.toString (i + 1)), - string ", uw_Basis_attrifyTime(ctx, ", + string ", uw_Basis_timeToStringf(ctx, ", + string fmt, + string ", ", arg, string "), -1, SQLITE_TRANSIENT)"] | Blob => box [string "sqlite3_bind_blob(stmt, ", |