diff --git a/Timeline.hs b/Timeline.hs index 9bc99da..b189990 100644 --- 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)