29 lines
764 B
Haskell
29 lines
764 B
Haskell
{-|
|
|
|
|
A ledger-compatible @print@ command.
|
|
|
|
-}
|
|
|
|
module Commands.Print
|
|
where
|
|
import Prelude hiding (putStr)
|
|
import Ledger
|
|
import Options
|
|
import System.IO.UTF8
|
|
|
|
|
|
-- | Print ledger transactions in standard format.
|
|
print' :: [Opt] -> [String] -> Ledger -> IO ()
|
|
print' opts args = putStr . showLedgerTransactions opts args
|
|
|
|
showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
|
|
showLedgerTransactions opts args l = concatMap showLedgerTransactionUnelided txns
|
|
where
|
|
txns = sortBy (comparing ltdate) $
|
|
ledger_txns $
|
|
filterRawLedgerPostingsByDepth depth $
|
|
filterRawLedgerTransactionsByAccount apats $
|
|
rawledger l
|
|
depth = depthFromOpts opts
|
|
(apats,_) = parsePatternArgs args
|