diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-29 11:37:29 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-29 11:37:29 -0400 |
| commit | 6217967a353bc9d97ae45c2af495b653a47e2481 (patch) | |
| tree | bae33dd5ebd8393e6dd1b30f7d1a2b75241c9956 /src/prepare.sml | |
| parent | 213564f740d896c9a8bd86b5e2221d9434b126d3 (diff) | |
Redo channels, making them single-client
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 1f3f323a..258b9dcf 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -48,6 +48,8 @@ fun prepString (e, ss, n) = | EFfiApp ("Basis", "sqlifyTime", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyChannel", [e]) => + SOME ("$" ^ Int.toString (n + 1) ^ "::int8" :: ss, n + 1) + | EFfiApp ("Basis", "sqlifyClient", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::int4" :: ss, n + 1) | ECase (e, |