From de502e732b00d21954f5ab142460e3eb4899ca88 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 21 Sep 2011 23:12:53 +0000
Subject: [PATCH] drop unused TIMELOG env var

---
 hledger-lib/Hledger/Read.hs | 16 ----------------
 hledger/Hledger/Cli/Main.hs |  1 -
 2 files changed, 17 deletions(-)

diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs
index 0553a0525..5a09402cc 100644
--- a/hledger-lib/Hledger/Read.hs
+++ b/hledger-lib/Hledger/Read.hs
@@ -11,9 +11,7 @@ module Hledger.Read (
        journalFromPathAndString,
        ledgeraccountname,
        myJournalPath,
-       myTimelogPath,
        myJournal,
-       myTimelog,
        someamount,
        journalenvvar,
        journaldefaultfilename,
@@ -45,9 +43,7 @@ import Hledger.Utils.UTF8 (getContents, hGetContents, writeFile)
 
 journalenvvar           = "LEDGER_FILE"
 journalenvvar2          = "LEDGER"
-timelogenvvar           = "TIMELOG"
 journaldefaultfilename  = ".hledger.journal"
-timelogdefaultfilename = ".hledger.timelog"
 
 -- Here are the available readers. The first is the default, used for unknown data formats.
 readers :: [Reader]
@@ -144,22 +140,10 @@ myJournalPath = do
                   home <- getHomeDirectory `catch` (\_ -> return "")
                   return $ home </> journaldefaultfilename
 
--- | Get the user's default timelog file path.
-myTimelogPath :: IO String
-myTimelogPath =
-    getEnv timelogenvvar `catch`
-               (\_ -> do
-                  home <- getHomeDirectory
-                  return $ home </> timelogdefaultfilename)
-
 -- | Read the user's default journal file, or give an error.
 myJournal :: IO Journal
 myJournal = myJournalPath >>= readJournalFile Nothing >>= either error' return
 
--- | Read the user's default timelog file, or give an error.
-myTimelog :: IO Journal
-myTimelog = myTimelogPath >>= readJournalFile Nothing >>= either error' return
-
 tests_Hledger_Read = TestList
   [
    tests_Hledger_Read_JournalReader,
diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs
index 7f7cd201d..b33b7b0b3 100644
--- a/hledger/Hledger/Cli/Main.hs
+++ b/hledger/Hledger/Cli/Main.hs
@@ -31,7 +31,6 @@ or ghci:
 >                  $-2  income
 >                   $1  liabilities
 > > l <- myLedger
-> > t <- myTimelog
 
 See "Hledger.Data.Ledger" for more examples.