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 | 843fcc973f4cf7b149d4f57732fb66f812115320 (patch) | |
| tree | bae33dd5ebd8393e6dd1b30f7d1a2b75241c9956 /src/monoize.sml | |
| parent | 9f3c3a0215d3f23c8e51fa4824d21dfeaa08ede0 (diff) | |
Redo channels, making them single-client
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 03ce6311..5701cc0c 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1110,14 +1110,6 @@ fun monoExp (env, st, fm) (all as (e, loc)) = ((L'.EAbs ("_", (L'.TRecord [], loc), (L'.TFfi ("Basis", "channel"), loc), (L'.EFfiApp ("Basis", "new_channel", [(L'.ERecord [], loc)]), loc)), loc), fm) - | L.ECApp ((L.EFfi ("Basis", "subscribe"), _), t) => - ((L'.EAbs ("ch", (L'.TFfi ("Basis", "channel"), loc), - (L'.TFun ((L'.TRecord [], loc), (L'.TRecord [], loc)), loc), - (L'.EAbs ("_", (L'.TRecord [], loc), (L'.TRecord [], loc), - (L'.EFfiApp ("Basis", "subscribe", - [(L'.ERel 1, loc)]), - loc)), loc)), loc), - fm) | L.ECApp ((L.EFfi ("Basis", "send"), _), t) => let val t = monoType env t @@ -1431,6 +1423,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = ((L'.EAbs ("x", (L'.TFfi ("Basis", "channel"), loc), (L'.TFfi ("Basis", "string"), loc), (L'.EFfiApp ("Basis", "sqlifyChannel", [(L'.ERel 0, loc)]), loc)), loc), fm) + | L.EFfi ("Basis", "sql_client") => + ((L'.EAbs ("x", (L'.TFfi ("Basis", "client"), loc), (L'.TFfi ("Basis", "string"), loc), + (L'.EFfiApp ("Basis", "sqlifyClient", [(L'.ERel 0, loc)]), loc)), loc), + fm) | L.ECApp ((L.EFfi ("Basis", "sql_prim"), _), t) => let val t = monoType env t |