404 handler should return 404

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)