File: JournalEditR.hs

package info (click to toggle)
haskell-hledger-web 0.23.3-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,184 kB
  • ctags: 355
  • sloc: haskell: 1,190; makefile: 47
file content (21 lines) | stat: -rw-r--r-- 424 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
-- | /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