summaryrefslogtreecommitdiff
path: root/src/cjr_print.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
commit84168a777e28ab53917bc3ed448cc90e6b00a4ed (patch)
tree9df501486d7beb6949a4743263fc15e53cf1c8e4 /src/cjr_print.sml
parent0f0d418e2290cdf5e6e392f65579756b37661be9 (diff)
Stop tracking CSS classes in XML types
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml18
1 files changed, 7 insertions, 11 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index cabfc77f..46282410 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -2146,17 +2146,13 @@ fun p_decl env (dAll as (d, _) : decl) =
| DJavaScript s => box [string "static char jslib[] = \"",
string (String.toString s),
string "\";"]
- | DStyle (s, xs) => box [string "/*",
- space,
- string "style",
- space,
- string s,
- space,
- string ":",
- space,
- p_list string xs,
- space,
- string "*/"]
+ | DStyle s => box [string "/*",
+ space,
+ string "style",
+ space,
+ string s,
+ space,
+ string "*/"]
datatype 'a search =
Found of 'a