Update Timeline.hs

2017-06-29 18:01:54 +02:00 · 2017-06-29 18:01:54 +02:00 · eaf19baed8
commit eaf19baed8
parent 1186577d92
1 changed files with 6 additions and 4 deletions
--- a/Timeline.hs
+++ b/Timeline.hs
@ -26,10 +26,12 @@ postTimelineR :: Handler Html
 postTimelineR = do
    getTimelineR

-
-postForm :: Maybe PostId -> UserId -> Form Post
-postForm p u = renderDivs $ Post
+-- TODO: Eventuell müssen Sie hier oder in config/models die Reihenfolge der Post-Argumente anpassen. 
+postForm :: UserId -> Form Post
+postForm u = renderDivs $ Post
+                              -- UserId
                         <$> pure u
+                              -- Textfeld mit Default-Wert "Post content"
                         <*> areq textField "Post" (Just "Post content")
-                         <*> pure p
+                              -- Systemzeit
                         <*> lift (liftIO getCurrentTime)