slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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)) #if !(MIN_VERSION_base(4,11,0))
import Data.Monoid import Data.Monoid
#endif #endif
import Data.Function
import Data.List
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
@ -43,6 +45,6 @@ payees CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
let shownotes = boolopt "notes" rawopts let shownotes = boolopt "notes" rawopts
q = queryFromOpts d ropts q = queryFromOpts d ropts
ts = entriesReport ropts q j 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 mapM_ T.putStrLn payees