diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 09:47:16 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 09:47:16 -0500 |
| commit | 4f82d607ed4549ecb4bea8ebfc93cfa1b1cec8d2 (patch) | |
| tree | a2eeed536be5e7cb6b43bf4bc8c8b48af01784a0 /tests/reqheader.ur | |
| parent | 1841f3b75ec441d16d289cb768526c374f16960a (diff) | |
Request header reading works
Diffstat (limited to 'tests/reqheader.ur')
| -rw-r--r-- | tests/reqheader.ur | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/reqheader.ur b/tests/reqheader.ur index 8b69cc3a..d659935c 100644 --- a/tests/reqheader.ur +++ b/tests/reqheader.ur @@ -1,5 +1,5 @@ fun main () : transaction page = - ua <- requestHeader "UserAgent"; + ua <- requestHeader "User-Agent"; case ua of None => return <xml>Not found</xml> - | Some s => return <xml>UserAgent: {[s]}</xml> + | Some s => return <xml>User-Agent: {[s]}</xml> |