Mercurial > urweb

comparison src/cjr_print.sml @ 1384:86d23010ea74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ignore unknown names in query string name-value pairs; allow any side effects by Extern URLs, without signature checking
author Adam Chlipala <adam@chlipala.net>
date Thu, 06 Jan 2011 12:49:14 -0500
parents bf58ca871c00
children 59c8a19bfb22
comparison
equal deleted inserted replaced
1383:0af6bd2dd149 1384:86d23010ea74
2586 fun couldWrite ek = 2586 fun couldWrite ek =
2587 case ek of 2587 case ek of
2588 Link => false 2588 Link => false
2589 | Action ef => ef = ReadCookieWrite 2589 | Action ef => ef = ReadCookieWrite
2590 | Rpc ef => ef = ReadCookieWrite 2590 | Rpc ef => ef = ReadCookieWrite
2591 | Extern ef => ef = ReadCookieWrite 2591 | Extern _ => false
2592 2592
2593 val s = 2593 val s =
2594 case Settings.getUrlPrefix () of 2594 case Settings.getUrlPrefix () of
2595 "" => s 2595 "" => s
2596 | "/" => s 2596 | "/" => s