Mercurial > urweb

diff src/mono_shake.sml @ 1623:218e2a9a53d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Better error messages about non-SQL-izability of types
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Dec 2011 15:59:21 -0500
parents cbacd38d4ec2
children c1e3805e604e
line wrap: on
line diff
--- a/src/mono_shake.sml	Sat Dec 03 10:13:36 2011 -0500
+++ b/src/mono_shake.sml	Sat Dec 03 15:59:21 2011 -0500
@@ -115,6 +115,8 @@
                   | ((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