Mercurial > urweb
diff src/mono_shake.sml @ 718:f152f215a02c
style declarations
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 12 Apr 2009 10:08:11 -0400 |
parents | a3ddf05fb3e3 |
children | 4c5796512edc |
line wrap: on
line diff
--- a/src/mono_shake.sml Thu Apr 09 16:36:50 2009 -0400 +++ b/src/mono_shake.sml Sun Apr 12 10:08:11 2009 -0400 @@ -58,7 +58,8 @@ | ((DTable _, _), acc) => acc | ((DSequence _, _), acc) => acc | ((DDatabase _, _), acc) => acc - | ((DJavaScript _, _), acc) => acc) + | ((DJavaScript _, _), acc) => acc + | ((DStyle _, _), acc) => acc) (IM.empty, IM.empty) file fun typ (c, s) = @@ -115,7 +116,8 @@ | (DTable _, _) => true | (DSequence _, _) => true | (DDatabase _, _) => true - | (DJavaScript _, _) => true) file + | (DJavaScript _, _) => true + | (DStyle _, _) => true) file end end