FFPiH/uebung2017-9
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Timeline.hs

Browse Source
This commit is contained in:
BergesJ 2017-06-29 18:01:54 +02:00 committed by GitHub
parent 1186577d92
commit eaf19baed8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Timeline.hs
View File

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