From 67c8ceb142028a3ca8c2e0e89c13cabb93daaae2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 12 Jul 2014 15:18:39 -0700
Subject: [PATCH] web: after adding, just redisplay the journal

---
 hledger-web/Handler/Post.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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