Mercurial > urweb

comparison src/cjrize.sml @ 2255:8428c534913a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new refactored urlification in Sqlcache.
author Ziv Scully <ziv@mit.edu>
date Mon, 21 Sep 2015 16:45:59 -0400
parents e843a04499d4
children
comparison
equal deleted inserted replaced
2254:44ae2254f8fb 2255:8428c534913a
429 end 429 end
430 430
431 | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation"; 431 | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation";
432 (dummye, sm)) 432 (dummye, sm))
433 433
434 | L.EQuery {exps, tables, state, query, body, initial, sqlcacheInfo} => 434 | L.EQuery {exps, tables, state, query, body, initial} =>
435 let 435 let
436 val (exps', sm) = ListUtil.foldlMap (fn ((x, t), sm) => 436 val (exps', sm) = ListUtil.foldlMap (fn ((x, t), sm) =>
437 let 437 let
438 val (t, sm) = cifyTyp (t, sm) 438 val (t, sm) = cifyTyp (t, sm)
439 in 439 in