16 lines
289 B
Haskell
16 lines
289 B
Haskell
|
|
||
|
|
module Handler.New where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
getNewR :: Handler RepHtml
|
||
|
|
getNewR = do
|
||
|
|
defaultLayout $ do
|
||
|
|
$(widgetFile "new")
|
||
|
|
|
||
|
|
postNewR :: Handler RepHtml
|
||
|
|
postNewR = do
|
||
|
|
postedText <- runInputPost $ ireq textField "content"
|
||
|
|
defaultLayout $ do
|
||
|
|
$(widgetFile "posted")
|