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