simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-26 03:42:25 +03:00
Code Issues Projects Releases Wiki Activity

payees: Output sorted results as in other similar commands

Browse Source
This commit is contained in:
Caleb Maclennan 2019-07-10 13:44:35 +03:00 committed by Simon Michael
parent f49a76e051
commit 5d42578137
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,6 +20,8 @@ module Hledger.Cli.Commands.Payees (
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid
#endif
import Data.Function
import Data.List
import qualified Data.Text.IO as T
import System.Console.CmdArgs.Explicit as C
@ -43,6 +45,6 @@ payees CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
let shownotes = boolopt "notes" rawopts
q = queryFromOpts d ropts
ts = entriesReport ropts q j
payees = map (if shownotes then tdescription else transactionPayee) ts
payees = nub $ sort $ map (if shownotes then tdescription else transactionPayee) ts
mapM_ T.putStrLn payees