mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 18:29:36 +03:00
22 lines
424 B
Haskell
22 lines
424 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 RepHtml
|
|
getJournalEditR = do
|
|
vd <- getViewData
|
|
defaultLayout $ do
|
|
setTitle "hledger-web journal edit form"
|
|
toWidget $ editform vd
|
|
|
|
postJournalEditR :: Handler RepHtml
|
|
postJournalEditR = handlePost
|