From 027f68ea322f9a52c3440a8d88be8d924b5c0395 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 09:47:16 -0500
Subject: Request header reading works

---
 tests/reqheader.ur | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/reqheader.ur')

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>
-- 
cgit v1.2.3