Mercurial > urweb

comparison src/cjr_print.sml @ 736:796e42c93c48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cookie signatures for RPCs
author Adam Chlipala <adamc@hcoop.net>
date Thu, 23 Apr 2009 16:13:02 -0400
parents 5ccb67665d05
children d049d31a1966
comparison
equal deleted inserted replaced
735:5ccb67665d05 736:796e42c93c48
2495 newline, 2495 newline,
2496 string "uw_set_url_prefix(ctx, \"", 2496 string "uw_set_url_prefix(ctx, \"",
2497 string (!Monoize.urlPrefix), 2497 string (!Monoize.urlPrefix),
2498 string "\");", 2498 string "\");",
2499 newline]), 2499 newline]),
2500 string "uw_set_needs_sig(ctx, ",
2501 string (if couldWrite ek then
2502 "1"
2503 else
2504 "0"),
2505 string ");",
2506 newline,
2500 string "uw_login(ctx);", 2507 string "uw_login(ctx);",
2501 newline, 2508 newline,
2502 box [string "{", 2509 box [string "{",
2503 newline, 2510 newline,
2504 box (ListUtil.mapi (fn (i, t) => box [p_typ env t, 2511 box (ListUtil.mapi (fn (i, t) => box [p_typ env t,