diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-16 15:54:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-16 15:54:35 -0400 |
| commit | d644fa449e464c80f47d8e13379a438852e2bce8 (patch) | |
| tree | 9d33fe703a729a1a6e1317fea053f4a3a646cf52 /src/monoize.sml | |
| parent | 35c541227803f71be30c4a28998b9c4700a277a8 (diff) | |
COUNT(col)
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 5f616c05..8c050719 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -236,7 +236,7 @@ fun monoType env = (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CApp ((L.CApp ((L.CFfi ("Basis", "sql_binary"), _), _), _), _), _), _) => (L'.TFfi ("Basis", "string"), loc) - | L.CApp ((L.CFfi ("Basis", "sql_aggregate"), _), _) => + | L.CApp ((L.CApp ((L.CFfi ("Basis", "sql_aggregate"), _), _), _), _) => (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CFfi ("Basis", "sql_summable"), _), _) => (L'.TRecord [], loc) @@ -2371,7 +2371,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) = (L.ECApp ( (L.ECApp ( (L.ECApp ( - (L.EFfi ("Basis", "sql_aggregate"), _), + (L.ECApp ( + (L.EFfi ("Basis", "sql_aggregate"), _), + _), _), _), _), _), _), _), _), @@ -2401,6 +2403,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = fm) end + | L.ECApp ((L.EFfi ("Basis", "sql_count_col"), _), _) => + ((L'.EPrim (Prim.String "COUNT"), loc), + fm) + | L.EFfi ("Basis", "sql_summable_int") => ((L'.ERecord [], loc), fm) | L.EFfi ("Basis", "sql_summable_float") => ((L'.ERecord [], loc), fm) | L.ECApp ((L.EFfi ("Basis", "sql_avg"), _), _) => |