Mercurial > urweb
diff src/css.sml @ 1199:c316ca3c9ec6
Pushing policies through
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 04 Apr 2010 12:29:34 -0400 |
parents | 52c6ac6a59f1 |
children | 78b36c50daf9 |
line wrap: on
line diff
--- a/src/css.sml Thu Apr 01 17:23:17 2010 -0400 +++ b/src/css.sml Sun Apr 04 12:29:34 2010 -0400 @@ -287,6 +287,7 @@ | DCookie _ => st | DStyle (_, n, s) => (IM.insert (globals, n, (SOME s, [])), classes) | DTask _ => st + | DPolicy _ => st end val (globals, classes) = foldl decl (IM.empty, IM.empty) file