X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fhistory.lsp;h=fdf12198c59c74622889e89f8977fe3070db3a25;hb=36d9d2fd887f26b87c5d20527fcb741540a2aae1;hp=2192ac5be7f4e2db67756004c8efd9f54a3b575a;hpb=30dfa8ed48bceb1df62c4accf5b7a680d1b20634;p=rrq%2Fhourglass.git

diff --git a/manager/history.lsp b/manager/history.lsp
index 2192ac5..fdf1219 100644
--- a/manager/history.lsp
+++ b/manager/history.lsp
@@ -44,6 +44,7 @@
 
 (setf MAP (map (fn (x) (list (x 0) (mkmap (1 x)))) MAP))
 
+(println "Status 200 OK\nContent-Type: text/html\n\n")
 (println (expand-file "tmpl/history-page.html"))
 (exit 0)
 (load