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

Update UserTimeline.hs

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

4
UserTimeline.hs
View File

@ -11,9 +11,9 @@ import Import
getUserTimelineR :: UserId -> Handler Html
getUserTimelineR uid = do
mayUser <- runDB $ get uid
posts <- runDB $ selectList [PostUserId ==. uid] [Desc PostCreated]
posts <- runDB $ selectList [PostAuthor ==. uid] [Desc PostCreated]
let userName :: Text
userName = maybe "UnkownUser" userIdent mayUser
defaultLayout $ do
setTitle . toHtml $ show uid <> "'s Timeline"
$(widgetFile "userTimeline")
$(widgetFile "userTimeline")