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)