From 75f009dade6ebe5b57d74bf2a2c30a31c5e413ce Mon Sep 17 00:00:00 2001 From: Christine Dodrill Date: Thu, 30 Jul 2015 09:22:05 -0700 Subject: [PATCH] Main: turn some do code into let ... in --- web/src/Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/web/src/Main.hs b/web/src/Main.hs index d20ee5a..9564587 100644 --- a/web/src/Main.hs +++ b/web/src/Main.hs @@ -61,19 +61,19 @@ main = do :: S.ActionT IO [Post.Post] case posts of - [] -> do - S.setStatus Status.status404 + [] -> + S.setStatus Status.status404 >> let message = ("no data for page number " ++ (show id_)) page = ErrorView.render message 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_) page = Thread.render id_ posts userMap - S.html $ wrapMarkupStringTitle title page + in S.html $ wrapMarkupStringTitle title page