simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-10-06 10:57:30 +03:00
Code Issues 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 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