From 5a6ced2cb8eb45b392c72988a834323a61a147a1 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 3 Dec 2011 15:59:21 -0500 Subject: Better error messages about non-SQL-izability of types --- src/mono_shake.sml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/mono_shake.sml') diff --git a/src/mono_shake.sml b/src/mono_shake.sml index f601e712..b6de9410 100644 --- a/src/mono_shake.sml +++ b/src/mono_shake.sml @@ -115,6 +115,8 @@ fun shake file = | ((DDatabase {expunge = n1, initialize = n2, ...}, _), (page_cs, page_es)) => (page_cs, IS.addList (page_es, [n1, n2])) | ((DTask (e1, e2), _), st) => usedVars (usedVars st e2) e1 + | ((DTable (_, xts, e1, e2), _), st) => usedVars (usedVars (usedVars st e1) e2) + (ERecord (map (fn (x, t) => (x, (ERecord [], #2 e1), t)) xts), #2 e1) | ((DView (_, _, e), _), st) => usedVars st e | ((DPolicy pol, _), st) => let -- cgit v1.2.3