From d7bd7d38e8f785b7366495ce977379929e5eb913 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 09:21:34 -0500
Subject: Monoizing FFI transactions correctly

---
 tests/reqheader.ur | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/reqheader.ur

(limited to 'tests/reqheader.ur')

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