aboutsummaryrefslogtreecommitdiffstats
path: root/hypo.hy
diff options
context:
space:
mode:
Diffstat (limited to 'hypo.hy')
-rwxr-xr-xhypo.hy2
1 files changed, 2 insertions, 0 deletions
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__")