From afe669a2ba67c13ab30dad7b6393f3580e6a4d14 Mon Sep 17 00:00:00 2001
From: BergesJ <jan.berges@uni-bielefeld.de>
Date: Wed, 5 Jul 2017 00:13:57 +0300
Subject: [PATCH] Update UserTimeline.hs

---
 UserTimeline.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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")