cadey
/
time-wasting-thread-memorial
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Main: Make this a bit more vertical

This commit is contained in:
Christine Dodrill 2015-07-28 23:56:26 -07:00
parent 4430d6c4f9
commit 24fbc444ba
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
web/src/Main.hs
View File

@ -44,10 +44,12 @@ main = do
S.get "user" $ S.get "user" $
S.html $ toStrict (renderMarkup (Materialize.base "The first poster" (User.render user))) S.html $ toStrict (renderMarkup (Materialize.base "The first poster" (User.render user)))
S.get ("page" <//> S.var) $ \(id :: Int) -> do 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] 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) let title = "Thread page " ++ (show id_)
page = Thread.render id posts userMap page = Thread.render id_ posts userMap
S.html $ toStrict (renderMarkup (Materialize.base (Text.pack title) page)) S.html $ toStrict (renderMarkup (Materialize.base (Text.pack title) page))