From 7dea3bc20132ae5e60f7c415505443ddd825a373 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 19:11:06 +0000
Subject: [PATCH] hide the assets:time account in timelog reports

---
 Ledger/TimeLog.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Ledger/TimeLog.hs b/Ledger/TimeLog.hs
index 0dfd9d7ab..ed81c1708 100644
--- a/Ledger/TimeLog.hs
+++ b/Ledger/TimeLog.hs
@@ -37,7 +37,8 @@ clockoutFor :: TimeLogEntry -> TimeLogEntry
 clockoutFor (TimeLogEntry _ t _) = TimeLogEntry 'o' t ""
 
 -- | 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 i o =
     Entry {
@@ -57,4 +58,6 @@ entryFromTimeLogInOut i o =
       intime   = parsedatetime $ tldatetime i
       outtime  = parsedatetime $ tldatetime o
       amount   = hours $ realToFrac (diffUTCTime outtime intime) / 3600
-      txns     = [RawTransaction acctname amount "", RawTransaction "assets:TIME" (-amount) ""]
+      txns     = [RawTransaction acctname amount ""
+                 --,RawTransaction "assets:time" (-amount) ""
+                 ]