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

---
 Timeline.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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