From 103736323470e52fa3b3a25448de5f0d1806fd50 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 28 Jan 2010 20:10:32 -0500 Subject: Small tweaks --- src/monoize.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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) -- cgit v1.2.3