From 858739539941f65bd5ecb3649b22c4d5d78a4c74 Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Thu, 30 Jul 2015 09:23:00 -0700
Subject: [PATCH] 404 handler should return 404

---
 web/src/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/web/src/Main.hs b/web/src/Main.hs
index 9564587..d03381c 100644
--- a/web/src/Main.hs
+++ b/web/src/Main.hs
@@ -39,6 +39,8 @@ main = do
 
         -- 404 handler
         S.hookAny S.GET $ \(paths :: [Text]) ->
+            S.setStatus Status.status404 >>
+
             let slash = Text.pack "/"
                 path = Text.append slash $ Text.intercalate slash paths
                 message = "No such page at " ++ (Text.unpack path)