cadey
/
time-wasting-thread-memorial
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

404 handler should return 404

This commit is contained in:
Christine Dodrill 2015-07-30 09:23:00 -07:00
parent 75f009dade
commit 8587395399
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web/src/Main.hs
View File

@ -39,6 +39,8 @@ main = do
-- 404 handler -- 404 handler
S.hookAny S.GET $ \(paths :: [Text]) -> S.hookAny S.GET $ \(paths :: [Text]) ->
S.setStatus Status.status404 >>
let slash = Text.pack "/" let slash = Text.pack "/"
path = Text.append slash $ Text.intercalate slash paths path = Text.append slash $ Text.intercalate slash paths
message = "No such page at " ++ (Text.unpack path) message = "No such page at " ++ (Text.unpack path)