Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1074:d89f98f0b4bb 1075:0657e5adc938
323 | DDatabase _ => (d, st) 323 | DDatabase _ => (d, st)
324 | DPreparedStatements _ => (d, st) 324 | DPreparedStatements _ => (d, st)
325 | DJavaScript _ => (d, st) 325 | DJavaScript _ => (d, st)
326 | DCookie _ => (d, st) 326 | DCookie _ => (d, st)
327 | DStyle _ => (d, st) 327 | DStyle _ => (d, st)
328 | DInitializer e => 328 | DTask (tk, e) =>
329 let 329 let
330 val (e, st) = prepExp (e, st) 330 val (e, st) = prepExp (e, st)
331 in 331 in
332 ((DInitializer e, loc), st) 332 ((DTask (tk, e), loc), st)
333 end 333 end
334 334
335 fun prepare (ds, ps) = 335 fun prepare (ds, ps) =
336 let 336 let
337 val (ds, st) = ListUtil.foldlMap prepDecl St.empty ds 337 val (ds, st) = ListUtil.foldlMap prepDecl St.empty ds