diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-25 14:04:38 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-25 14:04:38 -0400 |
| commit | 6c83085b52f4c2d6cd9a8d35f1957acdc5e8b55b (patch) | |
| tree | 73ca1c4b83a6f9cc857b4a92438a576e3f7b40fc /src/prepare.sml | |
| parent | 3ad3130a7006e0a0fb4029d3acd46a4344c4f70a (diff) | |
Prepared statements with blobs
Diffstat (limited to 'src/prepare.sml')
| -rw-r--r-- | src/prepare.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml index e1777b11..52308540 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -47,6 +47,8 @@ fun prepString (e, ss, n) = 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]) => |