diff options
author | 2008-12-07 10:02:04 -0500 | |
---|---|---|
committer | 2008-12-07 10:02:04 -0500 | |
commit | 6da109f29357054c27022d363819edd5da94206c (patch) | |
tree | 4ff84680b2fec4fa671754ce8c5d082269968da4 /src/monoize.sml | |
parent | 80bbc587e8c3e897cb30f0723187950254c6632b (diff) |
Finish documenting queries; remove a stray [unit] argument
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 28ea5946..cd20e366 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1530,8 +1530,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = (L.EFfi ("Basis", "sql_count"), _), _), _), _), _), - _) => ((L'.EAbs ("_", (L'.TRecord [], loc), (L'.TFfi ("Basis", "string"), loc), - (L'.EPrim (Prim.String "COUNT(*)"), loc)), loc), + _) => ((L'.EPrim (Prim.String "COUNT(*)"), loc), fm) | L.ECApp ( |