slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: bin: Remove old function in hledger-print-location.

Browse Source
This commit is contained in:
Stephen Morgan 2022-03-25 16:16:33 +11:00 committed by Simon Michael
parent 1aff74f702
commit 28b52fcca5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/hledger-print-location.hs
View File

@ -43,7 +43,7 @@ main = do
addLocationTag :: Transaction -> Transaction addLocationTag :: Transaction -> Transaction
addLocationTag t = t{tcomment = tcomment t `commentAddTagNextLine` loctag} addLocationTag t = t{tcomment = tcomment t `commentAddTagNextLine` loctag}
where 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. -- Like showSourcePosPair in Hledger.Data.Transaction, but show just the starting line number.
showSourcePosPairLine :: (SourcePos, SourcePos) -> String showSourcePosPairLine :: (SourcePos, SourcePos) -> String