From f1ded22c97007048264f3b6fe21928aa86962d1b Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Sun, 20 Oct 2024 09:13:57 +0200
Subject: [PATCH] cli: Commands.Register: rename parameter base -> baseUrl

---
 hledger/Hledger/Cli/Commands/Register.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Register.hs b/hledger/Hledger/Cli/Commands/Register.hs
index 825316f8c..cac67b647 100644
--- a/hledger/Hledger/Cli/Commands/Register.hs
+++ b/hledger/Hledger/Cli/Commands/Register.hs
@@ -121,13 +121,13 @@ postingsReportAsCsv =
 
 postingsReportAsSpreadsheet ::
   AmountFormat -> Maybe Text -> [Text] ->
-  PostingsReport -> [[Spr.Cell Spr.NumLines T.Text]]
-postingsReportAsSpreadsheet fmt base query is =
+  PostingsReport -> [[Spr.Cell Spr.NumLines Text]]
+postingsReportAsSpreadsheet fmt baseUrl query is =
   Spr.addHeaderBorders
     (map Spr.headerCell
       ["txnidx","date","code","description","account","amount","total"])
   :
-  map (postingsReportItemAsRecord fmt base query) is
+  map (postingsReportItemAsRecord fmt baseUrl query) is
 
 {- ToDo:
 link txnidx to journal URL,
@@ -136,12 +136,12 @@ link txnidx to journal URL,
 postingsReportItemAsRecord ::
     (Spr.Lines border) =>
     AmountFormat -> Maybe Text -> [Text] ->
-    PostingsReportItem -> [Spr.Cell border T.Text]
-postingsReportItemAsRecord fmt base query (_, _, _, p, b) =
+    PostingsReportItem -> [Spr.Cell border Text]
+postingsReportItemAsRecord fmt baseUrl query (_, _, _, p, b) =
     [idx,
-     (dateCell base query (paccount p) date) {Spr.cellType = Spr.TypeDate},
+     (dateCell baseUrl query (paccount p) date) {Spr.cellType = Spr.TypeDate},
      cell code, cell desc,
-     setAccountAnchor base query (paccount p) $ cell acct,
+     setAccountAnchor baseUrl query (paccount p) $ cell acct,
      amountCell (pamount p),
      amountCell b]
   where