diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-01-28 20:10:32 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-01-28 20:10:32 -0500 |
| commit | 103736323470e52fa3b3a25448de5f0d1806fd50 (patch) | |
| tree | 59ee5c6dd73bf30d00b25475b5d6bde43b932a08 /src | |
| parent | de00bef82c2557709fe744c28f6c64eeac28d881 (diff) | |
Small tweaks
Diffstat (limited to 'src')
| -rw-r--r-- | src/monoize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index cc239632..21624ab6 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -230,7 +230,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"), _), t) => + | L.CApp ((L.CFfi ("Basis", "sql_aggregate"), _), _) => (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CFfi ("Basis", "sql_summable"), _), _) => (L'.TRecord [], loc) |