Mercurial > urweb

annotate tests/reqheader.ur @ 2258:b1ba35ce2613

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug where pure caching didn't treat FFI applications as effectful.
author Ziv Scully <ziv@mit.edu>
date Sun, 27 Sep 2015 17:02:14 -0400
parents 360cbc202756
children
rev   line source
adamc@456 1 fun main () : transaction page =
adamc@457 2 ua <- requestHeader "User-Agent";
adamc@456 3 case ua of
adamc@456 4 None => return <xml>Not found</xml>
adamc@457 5 | Some s => return <xml>User-Agent: {[s]}</xml>