From 1607362ff628b9a1476679fbf9146b66ce92a3ee Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 27 Feb 2010 14:57:57 -0500
Subject: Basic analysis of tag and CSS class usage

---
 src/compiler.sml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/compiler.sml')

diff --git a/src/compiler.sml b/src/compiler.sml
index 99c730f1..c74a0915 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -1001,6 +1001,13 @@ val effectize = {
 
 val toEffectize = transform effectize "effectize" o toMarshalcheck
 
+val css = {
+    func = Css.summarize,
+    print = fn _ => Print.box []
+}
+
+val toCss = transform css "css" o toShake5
+
 val monoize = {
     func = Monoize.monoize CoreEnv.empty,
     print = MonoPrint.p_file MonoEnv.empty
-- 
cgit v1.2.3