diff --git a/Timeline.hs b/Timeline.hs index b189990..0ef6d6b 100644 --- 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