From 6cf6009b199e03b67864649b9e2ea6a704094ccc Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 10 Aug 2013 23:50:07 +0200
Subject: Revert "Don't set web.ctx.status"

This reverts commit 18cf043be3175a0098dad1e24266c10b7f21922c.

All that flup really wants is for the strings to be of type `str'. Hy
strings are of type `unicode' by default.
---
 hypo.hy | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hypo.hy b/hypo.hy
index 9f3a7b0..b055869 100755
--- a/hypo.hy
+++ b/hypo.hy
@@ -54,6 +54,7 @@
     res))
 
 (defun no-such-file []
+  (setv web.ctx.status (str "404 Not Found"))
   "No such file.\n")
 
 (defun get-file [name]
@@ -125,6 +126,7 @@
                       "hash" (get h 1)
                       "filename" name
                       "type" (get-type (get (os.path.splitext name) 1))})
+            (setv web.ctx.status (str "201 Created"))
             (+ web.ctx.home "/" *prefix* (get h 0) "\n")))]])
 
 (when (= __name__ "__main__")
-- 
cgit v1.2.3-54-g00ecf