b60da51386
replaced hamletToRepHtml with giveUrlRenderer updated type RepHtml to Html replaced settingsPort with setPort
22 lines
418 B
Haskell
22 lines
418 B
Haskell
-- | /journal/edit handlers.
|
|
|
|
module Handler.JournalEditR where
|
|
|
|
import Import
|
|
|
|
import Handler.Common
|
|
import Handler.Post
|
|
import Handler.Utils
|
|
|
|
|
|
-- | The journal editform, no sidebar.
|
|
getJournalEditR :: Handler Html
|
|
getJournalEditR = do
|
|
vd <- getViewData
|
|
defaultLayout $ do
|
|
setTitle "hledger-web journal edit form"
|
|
toWidget $ editform vd
|
|
|
|
postJournalEditR :: Handler Html
|
|
postJournalEditR = handlePost
|