slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: after adding, just redisplay the journal

Browse Source
This commit is contained in:
Simon Michael 2014-07-12 15:18:39 -07:00
parent 009df13baf
commit 67c8ceb142
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-web/Handler/Post.hs
View File

@ -90,10 +90,9 @@ handleAdd = do
let t' = txnTieKnot t -- XXX move into balanceTransaction let t' = txnTieKnot t -- XXX move into balanceTransaction
liftIO $ do ensureJournalFileExists journalpath liftIO $ do ensureJournalFileExists journalpath
appendToJournalFileOrStdout journalpath $ showTransaction t' appendToJournalFileOrStdout journalpath $ showTransaction t'
-- setMessage $ toHtml $ (printf "Added transaction:\n%s" (show t') :: String) setMessage [shamlet|<span>Transaction added.|]
setMessage [shamlet|<span>Added transaction:<small><pre>#{chomp $ show t'}</pre></small>|]
redirect (JournalR, [("add","1")]) redirect (JournalR) -- , [("add","1")])
-- | Handle a post from the journal edit form. -- | Handle a post from the journal edit form.
handleEdit :: Handler Html handleEdit :: Handler Html