From f49a76e05104de7e9c7d64993db1d5cdec052880 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 10 Jul 2019 11:12:58 +0100
Subject: [PATCH] payees: get basic command working

---
 hledger/Hledger/Cli/Commands/Payees.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Payees.hs b/hledger/Hledger/Cli/Commands/Payees.hs
index 293d166e7..846692862 100644
--- a/hledger/Hledger/Cli/Commands/Payees.hs
+++ b/hledger/Hledger/Cli/Commands/Payees.hs
@@ -20,8 +20,6 @@ module Hledger.Cli.Commands.Payees (
 #if !(MIN_VERSION_base(4,11,0))
 import Data.Monoid
 #endif
-import Data.List
-import qualified Data.Text as T
 import qualified Data.Text.IO as T
 import System.Console.CmdArgs.Explicit as C
 
@@ -41,7 +39,10 @@ payeesmode = hledgerCommandMode
 -- | The payees command.
 payees :: CliOpts -> Journal -> IO ()
 payees CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
-  let notes  = notes_ ropts
-      payees = []
+  d <- getCurrentDay
+  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