diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-17 12:25:34 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-17 12:25:34 -0400 |
| commit | ec734c14f2569e58e462097d5953a26f9fa84f69 (patch) | |
| tree | 01175fcf8d29d98dc9ca279350fd43f4f6d242ee /src/postgres.sml | |
| parent | c01c7e97334a180b55b11a1bba93cf046628948d (diff) | |
Testing nested queries
Diffstat (limited to 'src/postgres.sml')
| -rw-r--r-- | src/postgres.sml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/postgres.sml b/src/postgres.sml index e1ef0514..163bc0b8 100644 --- a/src/postgres.sml +++ b/src/postgres.sml @@ -494,7 +494,7 @@ fun init {dbstring, prepared = ss, tables, views, sequences} = newline, string "}"] -fun p_getcol {wontLeakStrings, col = i, typ = t} = +fun p_getcol {loc, wontLeakStrings, col = i, typ = t} = let fun p_unsql t e eLen = case t of @@ -550,7 +550,9 @@ fun p_getcol {wontLeakStrings, col = i, typ = t} = space, string "tmp;", newline, - string "uw_error(ctx, FATAL, \"Unexpectedly NULL field #", + string "uw_error(ctx, FATAL, \"", + string (ErrorMsg.spanToString loc), + string ": Unexpectedly NULL field #", string (Int.toString i), string "\");", newline, |