diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs index 3e08c0121..0419b69a3 100644 --- a/hledger-web/Hledger/Web/Handlers.hs +++ b/hledger-web/Hledger/Web/Handlers.hs @@ -211,9 +211,8 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =   entries   - edit -   - (edit) + + edit " $ lines $ postJournalR :: Handler RepPlain postJournalR = handlePost +postJournalEntriesR :: Handler RepPlain +postJournalEntriesR = handlePost + +postJournalEditR :: Handler RepPlain +postJournalEditR = handlePost + postRegisterR :: Handler RepPlain postRegisterR = handlePost -postJournalOnlyR :: Handler RepPlain -postJournalOnlyR = handlePost - -postRegisterOnlyR :: Handler RepPlain -postRegisterOnlyR = handlePost - -- | Handle a post from any of the edit forms. handlePost :: Handler RepPlain handlePost = do diff --git a/hledger-web/routes b/hledger-web/routes index b07a36f97..41c83f670 100644 --- a/hledger-web/routes +++ b/hledger-web/routes @@ -3,8 +3,8 @@ /robots.txt RobotsR GET / RootR GET /journal JournalR GET POST -/journal/entries JournalEntriesR GET -/journal/edit JournalEditR GET -/register RegisterR GET +/journal/entries JournalEntriesR GET POST +/journal/edit JournalEditR GET POST +/register RegisterR GET POST /accounts AccountsR GET /api/accounts AccountsJsonR GET