16 lines
350 B
Haskell
16 lines
350 B
Haskell
module Handler.Mirror where
|
|
|
|
import Import
|
|
import qualified Data.Text as T
|
|
|
|
getMirrorR :: Handler RepHtml
|
|
getMirrorR = do
|
|
defaultLayout $ do
|
|
$(widgetFile "mirror")
|
|
|
|
postMirrorR :: Handler RepHtml
|
|
postMirrorR = do
|
|
postedText <- runInputPost $ ireq textField "content"
|
|
defaultLayout $ do
|
|
$(widgetFile "posted")
|