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

;dev:Timeclock: indentation

Browse Source
This commit is contained in:
Simon Michael 2025-08-31 16:20:58 +01:00
parent e6dbe5d231
commit 539a876e7a
1 changed files with 24 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,16 +106,15 @@ pairClockEntries (entry : rest) actives sessions
(idate, odate) = (localDay itime, localDay otime)
omidnight = entry {tldatetime = itime {localDay = idate, localTimeOfDay = TimeOfDay 23 59 59}}
imidnight = inentry {tldatetime = itime {localDay = addDays 1 idate, localTimeOfDay = midnight}}
(sessions', actives', rest') = if odate > idate then
(Session {in' = inentry, out = omidnight} : sessions, imidnight : newactive, entry : rest)
else
(Session {in' = inentry, out = entry} : sessions, newactive, rest)
(sessions', actives', rest') =
if odate > idate
then (Session {in' = inentry, out = omidnight} : sessions, imidnight : newactive, entry : rest)
else (Session {in' = inentry, out = entry} : sessions, newactive, rest)
l = show $ unPos $ sourceLine $ tlsourcepos entry
c = unPos $ sourceColumn $ tlsourcepos entry
inentries =
if any (\e -> tlaccount e == tlaccount entry) actives
then error' $
printf
then error' $ printf
"%s:\n%s\n%s\n\nEncountered clockin entry for session \"%s\" that is already active."
(sourcePosPretty $ tlsourcepos entry)
(l ++ " | " ++ show entry)