summaryrefslogtreecommitdiff
path: root/src/mono_shake.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-28 15:04:37 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-28 15:04:37 -0400
commit81138f15749d9fcd2b6056d4c4cd8c0edc5fce4b (patch)
treee4e2246dc15a7cbbf067401a21197b6fd17ea95b /src/mono_shake.sml
parent488033c82277ffe87f8fbd32ccd52298e0883743 (diff)
A view query works
Diffstat (limited to 'src/mono_shake.sml')
-rw-r--r--src/mono_shake.sml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/mono_shake.sml b/src/mono_shake.sml
index 0060d036..4764feb7 100644
--- a/src/mono_shake.sml
+++ b/src/mono_shake.sml
@@ -57,6 +57,7 @@ fun shake file =
| ((DExport _, _), acc) => acc
| ((DTable _, _), acc) => acc
| ((DSequence _, _), acc) => acc
+ | ((DView _, _), acc) => acc
| ((DDatabase _, _), acc) => acc
| ((DJavaScript _, _), acc) => acc
| ((DCookie _, _), acc) => acc
@@ -116,6 +117,7 @@ fun shake file =
| (DExport _, _) => true
| (DTable _, _) => true
| (DSequence _, _) => true
+ | (DView _, _) => true
| (DDatabase _, _) => true
| (DJavaScript _, _) => true
| (DCookie _, _) => true