Update Timeline.hs

2017-07-05 00:13:31 +03:00
parent e8d80c7377
commit 5c523c4841
1 changed files with 1 additions and 1 deletions
--- a/Timeline.hs
+++ b/Timeline.hs
@@ -12,7 +12,7 @@ import Import
 getTimelineR :: Handler Html
 getTimelineR = do 
    (uid, user) <- requireAuthPair
-    posts <- runDB $ selectList [PostUserId ==. uid] [Desc PostCreated]
+    posts <- runDB $ selectList [PostAuthor ==. uid] [Desc PostCreated]
    (postWidget, postEnctype) <- generateFormPost (postForm Nothing uid)
    let userName :: Text
        userName = userIdent user