19 lines
408 B
Haskell
19 lines
408 B
Haskell
{-|
|
|
|
|
A ledger-compatible @register@ command.
|
|
|
|
-}
|
|
|
|
module RegisterCommand
|
|
where
|
|
import Ledger
|
|
import Options
|
|
|
|
|
|
-- | Print a register report.
|
|
printregister :: [Opt] -> [String] -> Ledger -> IO ()
|
|
printregister opts args l = putStr $ showTransactionsWithBalances txns startingbalance
|
|
where
|
|
txns = sortBy (comparing date) $ ledgerTransactions l
|
|
startingbalance = nullamt{precision=lprecision l}
|