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

Main: turn some do code into let ... in

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

10
web/src/Main.hs
View File

@ -61,19 +61,19 @@ main = do
:: S.ActionT IO [Post.Post] :: S.ActionT IO [Post.Post]
case posts of case posts of
[] -> do [] ->
S.setStatus Status.status404 S.setStatus Status.status404 >>
let message = ("no data for page number " ++ (show id_)) let message = ("no data for page number " ++ (show id_))
page = ErrorView.render message page = ErrorView.render message
title = ("Can't find page " ++ (show id_)) title = ("Can't find page " ++ (show id_))
S.html $ wrapMarkupStringTitle title page in S.html $ wrapMarkupStringTitle title page
_ -> do _ ->
let title = "Thread page " ++ (show id_) let title = "Thread page " ++ (show id_)
page = Thread.render id_ posts userMap page = Thread.render id_ posts userMap
S.html $ wrapMarkupStringTitle title page in S.html $ wrapMarkupStringTitle title page