Update UserTimeline.hs

2017-07-05 00:13:57 +03:00 · 2017-07-05 00:13:57 +03:00 · afe669a2ba
commit afe669a2ba
parent 5c523c4841
1 changed files with 2 additions and 2 deletions
--- a/UserTimeline.hs
+++ b/UserTimeline.hs
@ -11,7 +11,7 @@ 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