Mercurial > urweb

view tests/reqheader.ur @ 2063:83bdb52962c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check realloc's return code to prevent segfault on out of memoty condition
author Sergey Mironov <grrwlf@gmail.com>
date Sat, 23 Aug 2014 11:59:34 +0000
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>