From 5d4257813776c0c3b9cfe99d51b55938124ca80c Mon Sep 17 00:00:00 2001 From: Caleb Maclennan Date: Wed, 10 Jul 2019 13:44:35 +0300 Subject: [PATCH] payees: Output sorted results as in other similar commands --- hledger/Hledger/Cli/Commands/Payees.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Commands/Payees.hs b/hledger/Hledger/Cli/Commands/Payees.hs index 846692862..55efb8dc0 100644 --- a/hledger/Hledger/Cli/Commands/Payees.hs +++ b/hledger/Hledger/Cli/Commands/Payees.hs @@ -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