diff --git a/UserTimeline.hs b/UserTimeline.hs
index 1868dd4..5a4628f 100644
--- a/UserTimeline.hs
+++ b/UserTimeline.hs
@@ -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")
\ No newline at end of file
+        $(widgetFile "userTimeline")