FFPiH/uebung2017-9
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Timeline.hs

Browse Source
This commit is contained in:
BergesJ 2017-07-05 00:13:31 +03:00 committed by GitHub
parent e8d80c7377
commit 5c523c4841
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Timeline.hs
View File

@ -12,7 +12,7 @@ import Import
getTimelineR :: Handler Html getTimelineR :: Handler Html
getTimelineR = do getTimelineR = do
(uid, user) <- requireAuthPair (uid, user) <- requireAuthPair
posts <- runDB $ selectList [PostUserId ==. uid] [Desc PostCreated] posts <- runDB $ selectList [PostAuthor ==. uid] [Desc PostCreated]
(postWidget, postEnctype) <- generateFormPost (postForm Nothing uid) (postWidget, postEnctype) <- generateFormPost (postForm Nothing uid)
let userName :: Text let userName :: Text
userName = userIdent user userName = userIdent user