diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs index fcf595a01..1a088315b 100644 --- a/hledger-web/Hledger/Web/Handlers.hs +++ b/hledger-web/Hledger/Web/Handlers.hs @@ -516,7 +516,7 @@ handleAdd = do Right t -> do let t' = txnTieKnot t -- XXX move into balanceTransaction liftIO $ do ensureJournalFile journalpath - appendToJournalFile journalpath $ showTransaction t' + appendToJournalFileOrStdout journalpath $ showTransaction t' -- setMessage $ toHtml $ (printf "Added transaction:\n%s" (show t') :: String) setMessage [$hamlet|Added transaction:
#{chomp $ show t'}
|] redirectParams RedirectTemporary RegisterR [("add","1")]