From 0fa42c588c7dfb500c3795e4a967341dd855cceb Mon Sep 17 00:00:00 2001 From: Christine Dodrill Date: Wed, 29 Jul 2015 22:35:11 -0700 Subject: [PATCH] Main: Simplify this a bit more --- web/src/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/web/src/Main.hs b/web/src/Main.hs index 86087cb..342f396 100644 --- a/web/src/Main.hs +++ b/web/src/Main.hs @@ -52,9 +52,11 @@ main = do [] -> do 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 let title = "Thread page " ++ (show id_)