slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

payees: get basic command working

Browse Source
This commit is contained in:
Simon Michael 2019-07-10 11:12:58 +01:00
parent 6b61d1e0f1
commit f49a76e051
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hledger/Hledger/Cli/Commands/Payees.hs
View File

@ -20,8 +20,6 @@ module Hledger.Cli.Commands.Payees (
#if !(MIN_VERSION_base(4,11,0)) #if !(MIN_VERSION_base(4,11,0))
import Data.Monoid import Data.Monoid
#endif #endif
import Data.List
import qualified Data.Text as T
import qualified Data.Text.IO as T import qualified Data.Text.IO as T
import System.Console.CmdArgs.Explicit as C import System.Console.CmdArgs.Explicit as C
@ -41,7 +39,10 @@ payeesmode = hledgerCommandMode
-- | The payees command. -- | The payees command.
payees :: CliOpts -> Journal -> IO () payees :: CliOpts -> Journal -> IO ()
payees CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do payees CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
let notes = notes_ ropts d <- getCurrentDay
payees = [] let shownotes = boolopt "notes" rawopts
q = queryFromOpts d ropts
ts = entriesReport ropts q j
payees = map (if shownotes then tdescription else transactionPayee) ts
mapM_ (T.putStrLn . render) payees mapM_ T.putStrLn payees