summaryrefslogtreecommitdiff
path: root/src/shake.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-12 12:31:54 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-12 12:31:54 -0400
commit4cefbfc84784d48531587e1b2687348d6f6b3700 (patch)
tree9df501486d7beb6949a4743263fc15e53cf1c8e4 /src/shake.sml
parent6857918cbca4b1dda5bf378bcacb5dea4f5b5724 (diff)
Stop tracking CSS classes in XML types
Diffstat (limited to 'src/shake.sml')
-rw-r--r--src/shake.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/shake.sml b/src/shake.sml
index 9c95d6a3..787bfd2f 100644
--- a/src/shake.sml
+++ b/src/shake.sml
@@ -87,8 +87,8 @@ fun shake file =
| ((DDatabase _, _), acc) => acc
| ((DCookie (_, n, c, _), _), (cdef, edef)) =>
(cdef, IM.insert (edef, n, ([], c, dummye)))
- | ((DStyle (_, n, c, _), _), (cdef, edef)) =>
- (cdef, IM.insert (edef, n, ([], c, dummye))))
+ | ((DStyle (_, n, _), _), (cdef, edef)) =>
+ (cdef, IM.insert (edef, n, ([], dummyt, dummye))))
(IM.empty, IM.empty) file
fun kind (_, s) = s