Mercurial > urweb

view tests/reqheader.ur @ 713:baaae037e7f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Retry failed record summary unifications at the end, in hopes that more has been learned
author Adam Chlipala <adamc@hcoop.net>
date Thu, 09 Apr 2009 14:59:29 -0400
parents 360cbc202756
children
line wrap: on
line source
fun main () : transaction page =
    ua <- requestHeader "User-Agent";
    case ua of
        None => return <xml>Not found</xml>
      | Some s => return <xml>User-Agent: {[s]}</xml>