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

dev:fix: use compatible code rather than new T.show added yesterday

Browse Source
This commit is contained in:
Simon Michael 2025-09-01 20:06:35 +01:00
parent 57ac01acde
commit 91d785aee8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Data/Timeclock.hs
View File

@ -157,7 +157,7 @@ timeclockToTransactions now entries0 = transactions
<> map (flip makeTimeClockErrorExcerpt "") activesinthisacct <> map (flip makeTimeClockErrorExcerpt "") activesinthisacct
<> [ "Overlapping sessions with the same account name are not supported." ] <> [ "Overlapping sessions with the same account name are not supported." ]
-- XXX better to show full session(s) -- XXX better to show full session(s)
-- <> map T.show (filter ((`elem` activesinthisacct).in') sessions) -- <> map (T.pack . show) (filter ((`elem` activesinthisacct).in') sessions)
-- | Find the relevant clockin in the actives list that should be paired with this clockout. -- | Find the relevant clockin in the actives list that should be paired with this clockout.
-- If there is a session that has the same account name, then use that. -- If there is a session that has the same account name, then use that.
@ -197,11 +197,11 @@ errorExpectedCodeButGot expected actual = error' $ printf
makeTimeClockErrorExcerpt :: TimeclockEntry -> T.Text -> T.Text makeTimeClockErrorExcerpt :: TimeclockEntry -> T.Text -> T.Text
makeTimeClockErrorExcerpt e@TimeclockEntry{tlsourcepos=pos} msg = T.unlines [ makeTimeClockErrorExcerpt e@TimeclockEntry{tlsourcepos=pos} msg = T.unlines [
T.pack (sourcePosPretty pos) <> ":" T.pack (sourcePosPretty pos) <> ":"
,l <> " | " <> T.show e ,l <> " | " <> T.pack (show e)
-- ,T.replicate (T.length l) " " <> " |" -- <> T.replicate c " " <> "^") -- ,T.replicate (T.length l) " " <> " |" -- <> T.replicate c " " <> "^")
] <> msg ] <> msg
where where
l = T.show $ unPos $ sourceLine $ tlsourcepos e l = T.pack $ show $ unPos $ sourceLine $ tlsourcepos e
-- c = unPos $ sourceColumn $ tlsourcepos e -- c = unPos $ sourceColumn $ tlsourcepos e
-- | Convert a timeclock clockin and clockout entry to an equivalent journal -- | Convert a timeclock clockin and clockout entry to an equivalent journal