From 0932f8d0a699d270069816bbf1a367df68c2aeb5 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 29 May 2011 14:29:26 -0400 Subject: getHeader and setHeader --- tests/headers.ur | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 tests/headers.ur (limited to 'tests/headers.ur') diff --git a/tests/headers.ur b/tests/headers.ur new file mode 100644 index 00000000..afb1565f --- /dev/null +++ b/tests/headers.ur @@ -0,0 +1,11 @@ +fun action () = + setHeader (blessResponseHeader "Location") "http://www.google.com/"; + return + +fun main () = + ag <- getHeader (blessRequestHeader "User-Agent"); + return + User agent: {[ag]} + + -- cgit v1.2.3