From 84168a777e28ab53917bc3ed448cc90e6b00a4ed Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 12 Apr 2009 12:31:54 -0400
Subject: Stop tracking CSS classes in XML types

---
 src/source_print.sml | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/source_print.sml')

diff --git a/src/source_print.sml b/src/source_print.sml
index bc933d57..58867f64 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -640,13 +640,9 @@ fun p_decl ((d, _) : decl) =
                                string ":",
                                space,
                                p_con c]
-      | DStyle (x, c) => box [string "style",
-                              space,
-                              string x,
-                              space,
-                              string ":",
-                              space,
-                              p_con c]
+      | DStyle x => box [string "style",
+                         space,
+                         string x]
 
 and p_str (str, _) =
     case str of
-- 
cgit v1.2.3