summaryrefslogtreecommitdiff
path: root/tests/reqheader.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/reqheader.ur')
-rw-r--r--tests/reqheader.ur5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/reqheader.ur b/tests/reqheader.ur
new file mode 100644
index 00000000..8b69cc3a
--- /dev/null
+++ b/tests/reqheader.ur
@@ -0,0 +1,5 @@
+fun main () : transaction page =
+ ua <- requestHeader "UserAgent";
+ case ua of
+ None => return <xml>Not found</xml>
+ | Some s => return <xml>UserAgent: {[s]}</xml>