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))