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

Main: Simplify this a bit more

This commit is contained in:
Christine Dodrill 2015-07-29 22:35:11 -07:00
parent 6bb5d0db06
commit 0fa42c588c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
web/src/Main.hs
View File

@ -52,9 +52,11 @@ main = do
[] -> do [] -> do
S.setStatus Status.status404 S.setStatus Status.status404
let page = ErrorView.render ("no data for page number " ++ (show id_)) let message = ("no data for page number " ++ (show id_))
page = ErrorView.render message
title = ("Can't find page " ++ (show id_))
S.html $ wrapMarkupStringTitle ("Can't find page " ++ (show id_)) page S.html $ wrapMarkupStringTitle title page
_ -> do _ -> do
let title = "Thread page " ++ (show id_) let title = "Thread page " ++ (show id_)