Mercurial > urweb

diff src/prepare.sml @ 1075:0657e5adc938

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to task syntax
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 10:19:05 -0500
parents b2311dfb3158
children 7a31e0cf25e9
line wrap: on
line diff
--- a/src/prepare.sml	Sun Dec 13 14:34:18 2009 -0500
+++ b/src/prepare.sml	Tue Dec 15 10:19:05 2009 -0500
@@ -325,11 +325,11 @@
       | DJavaScript _ => (d, st)
       | DCookie _ => (d, st)
       | DStyle _ => (d, st)
-      | DInitializer e =>
+      | DTask (tk, e) =>
         let
             val (e, st) = prepExp (e, st)
         in
-            ((DInitializer e, loc), st)
+            ((DTask (tk, e), loc), st)
         end
 
 fun prepare (ds, ps) =