Mercurial > urweb
diff src/prepare.sml @ 738:7fa4871e8272
Prepared statements with blobs
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 25 Apr 2009 14:04:38 -0400 |
| parents | 4c5796512edc |
| children | f7e2026dd5ae |
line wrap: on
line diff
--- a/src/prepare.sml Sat Apr 25 13:59:11 2009 -0400 +++ b/src/prepare.sml Sat Apr 25 14:04:38 2009 -0400 @@ -47,6 +47,8 @@ SOME ("$" ^ Int.toString (n + 1) ^ "::bool" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyTime", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1) + | EFfiApp ("Basis", "sqlifyBlob", [e]) => + SOME ("$" ^ Int.toString (n + 1) ^ "::bytea" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyChannel", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::int8" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyClient", [e]) =>