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

hide the assets:time account in timelog reports

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 19:11:06 +00:00
parent 3bcc3277ac
commit 7dea3bc201
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Ledger/TimeLog.hs
View File

@ -37,7 +37,8 @@ clockoutFor :: TimeLogEntry -> TimeLogEntry
clockoutFor (TimeLogEntry _ t _) = TimeLogEntry 'o' t "" clockoutFor (TimeLogEntry _ t _) = TimeLogEntry 'o' t ""
-- | Convert a timelog clockin and clockout entry to an equivalent ledger -- | Convert a timelog clockin and clockout entry to an equivalent ledger
-- entry, representing the time expenditure. -- entry, representing the time expenditure. Note this entry is not balanced,
-- since we omit the \"assets:time\" transaction for simpler output.
entryFromTimeLogInOut :: TimeLogEntry -> TimeLogEntry -> Entry entryFromTimeLogInOut :: TimeLogEntry -> TimeLogEntry -> Entry
entryFromTimeLogInOut i o = entryFromTimeLogInOut i o =
Entry { Entry {
@ -57,4 +58,6 @@ entryFromTimeLogInOut i o =
intime = parsedatetime $ tldatetime i intime = parsedatetime $ tldatetime i
outtime = parsedatetime $ tldatetime o outtime = parsedatetime $ tldatetime o
amount = hours $ realToFrac (diffUTCTime outtime intime) / 3600 amount = hours $ realToFrac (diffUTCTime outtime intime) / 3600
txns = [RawTransaction acctname amount "", RawTransaction "assets:TIME" (-amount) ""] txns = [RawTransaction acctname amount ""
--,RawTransaction "assets:time" (-amount) ""
]