From 48b0d8a39554093633b6db85ef2308ac0c72733b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 13 Nov 2016 08:29:04 -0800 Subject: [PATCH] lib: ledger reader debug logging, cleanup --- hledger-lib/Hledger/Read/LedgerReader.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/hledger-lib/Hledger/Read/LedgerReader.hs b/hledger-lib/Hledger/Read/LedgerReader.hs index 26ee3b434..0560f73f9 100644 --- a/hledger-lib/Hledger/Read/LedgerReader.hs +++ b/hledger-lib/Hledger/Read/LedgerReader.hs @@ -41,7 +41,7 @@ import qualified Filesystem.Path.CurrentOS as F import Hledger.Data import Hledger.Read.Common --- import Hledger.Utils +import Hledger.Utils import Ledger.Parser.Text import Text.Trifecta.Result (Result(..)) @@ -73,17 +73,15 @@ parse _mrulespath assrt path txt = do case r of Failure ei -> throwError $ show ei Success res -> do - -- liftIO $ putStrLn $ show res + -- dbg7IO "raw entities" res pj <- liftIO $ foldM journalAddRawEntityInSitu nulljournal res - -- journalFinalise :: ClockTime -> FilePath -> Text -> Bool -> ParsedJournal -> Either String Journal t <- liftIO getClockTime - either throwError return $ - journalFinalise t path txt assrt pj + either throwError return $ journalFinalise t path txt assrt pj journalAddRawEntityInSitu :: ParsedJournal -> RawEntityInSitu -> IO ParsedJournal journalAddRawEntityInSitu j - RawEntityInSitu{rawEntity=RawTransactionEntity (RawTransaction{ + RawEntityInSitu{rawEntity=RawTransactionEntity (rt@RawTransaction{ rawTxnDate = date -- :: !String , rawTxnDateAux = mdate2 -- :: Maybe String , rawTxnState = _mstatus -- :: Maybe Char @@ -107,6 +105,8 @@ journalAddRawEntityInSitu , tpostings = ps -- :: [Posting], -- ^ this transaction's postings -- tpreceding_comment_lines -- :: Text -- ^ any comment lines immediately preceding this transaction } + dbg7IO "raw transaction" rt + dbg7IO "cooked transaction" t return $ addTransaction t j journalAddRawEntityInSitu j _ = return j