From 28b52fcca56b239028f31acd748f37fb4185d25b Mon Sep 17 00:00:00 2001 From: Stephen Morgan Date: Fri, 25 Mar 2022 16:16:33 +1100 Subject: [PATCH] fix: bin: Remove old function in hledger-print-location. --- bin/hledger-print-location.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/hledger-print-location.hs b/bin/hledger-print-location.hs index e5b083963..56bd390e9 100755 --- a/bin/hledger-print-location.hs +++ b/bin/hledger-print-location.hs @@ -43,7 +43,7 @@ main = do addLocationTag :: Transaction -> Transaction addLocationTag t = t{tcomment = tcomment t `commentAddTagNextLine` loctag} where - loctag = ("location", T.pack . showSourcePosPair $ tsourcepos t) + loctag = ("location", T.pack . sourcePosPairPretty $ tsourcepos t) -- Like showSourcePosPair in Hledger.Data.Transaction, but show just the starting line number. showSourcePosPairLine :: (SourcePos, SourcePos) -> String