Mercurial > urweb

diff src/mono_shake.sml @ 1265:e8d68fd8ed4b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Consider view declarations while shaking
author Adam Chlipala <adamc@hcoop.net>
date Thu, 27 May 2010 15:10:52 -0400
parents a2cd6664f57f
children 3d06e0f7a6f3
line wrap: on
line diff
--- a/src/mono_shake.sml	Thu May 27 10:56:52 2010 -0400
+++ b/src/mono_shake.sml	Thu May 27 15:10:52 2010 -0400
@@ -58,6 +58,7 @@
                   | ((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
+                  | ((DView (_, _, e), _), st) => usedVars st e
                   | ((DPolicy pol, _), st) =>
                     let
                         val e1 = case pol of