diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-12-03 15:59:21 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-12-03 15:59:21 -0500 |
| commit | 5a6ced2cb8eb45b392c72988a834323a61a147a1 (patch) | |
| tree | f6aeb73b5d2ae01ccd7b732ed8c991fc269665e9 /src/mono_shake.sml | |
| parent | 10dea359cb906fc9f87c64eb11e0d74c7fe99702 (diff) | |
Better error messages about non-SQL-izability of types
Diffstat (limited to 'src/mono_shake.sml')
| -rw-r--r-- | src/mono_shake.sml | 2 |
1 files changed, 2 insertions, 0 deletions
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 |