From 24fbc444ba046851a8a43a8fbdc551a90e98fb83 Mon Sep 17 00:00:00 2001 From: Christine Dodrill Date: Tue, 28 Jul 2015 23:56:26 -0700 Subject: [PATCH] Main: Make this a bit more vertical --- web/src/Main.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/web/src/Main.hs b/web/src/Main.hs index a9bb637..503f456 100644 --- a/web/src/Main.hs +++ b/web/src/Main.hs @@ -44,10 +44,12 @@ main = do S.get "user" $ S.html $ toStrict (renderMarkup (Materialize.base "The first poster" (User.render user))) - S.get ("page" S.var) $ \(id :: Int) -> do - posts <- liftIO $ Db.query conn "SELECT * FROM Posts WHERE page=?" (Db.Only (id :: Int)) :: S.ActionT IO [Post.Post] + S.get ("page" S.var) $ \(id_ :: Int) -> do + posts <- liftIO $ + Db.query conn "SELECT * FROM Posts WHERE page=?" (Db.Only (id_ :: Int)) + :: S.ActionT IO [Post.Post] - let title = "Thread page " ++ (show id) - page = Thread.render id posts userMap + let title = "Thread page " ++ (show id_) + page = Thread.render id_ posts userMap S.html $ toStrict (renderMarkup (Materialize.base (Text.pack title) page))