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

refactor

Browse Source
This commit is contained in:
Simon Michael 2009-12-20 15:50:54 +00:00
parent f1813fbb0e
commit 8405072ff6
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Ledger/Journal.hs
View File

@ -29,8 +29,8 @@ instance Show Journal where
-- ++ (show $ journalTransactions l) -- ++ (show $ journalTransactions l)
where accounts = flatten $ journalAccountNameTree l where accounts = flatten $ journalAccountNameTree l
journalEmpty :: Journal nulljournal :: Journal
journalEmpty = Journal { jmodifiertxns = [] nulljournal = Journal { jmodifiertxns = []
, jperiodictxns = [] , jperiodictxns = []
, jtxns = [] , jtxns = []
, open_timelog_entries = [] , open_timelog_entries = []

2
Ledger/Parse.hs
View File

@ -73,7 +73,7 @@ parseLedgerFile t f = liftIO (readFile f) >>= parseLedger t f
parseLedger :: LocalTime -> FilePath -> String -> ErrorT String IO Journal parseLedger :: LocalTime -> FilePath -> String -> ErrorT String IO Journal
parseLedger reftime inname intxt = parseLedger reftime inname intxt =
case runParser ledgerFile emptyCtx inname intxt of case runParser ledgerFile emptyCtx inname intxt of
Right m -> liftM (journalConvertTimeLog reftime) $ m `ap` return journalEmpty Right m -> liftM (journalConvertTimeLog reftime) $ m `ap` return nulljournal
Left err -> throwError $ show err Left err -> throwError $ show err

2
Utils.hs
View File

@ -34,7 +34,7 @@ withLedgerDo opts args cmdname cmd = do
t <- getCurrentLocalTime t <- getCurrentLocalTime
tc <- getClockTime tc <- getClockTime
let go = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f,filereadtime=tc}) let go = cmd opts args . filterAndCacheLedgerWithOpts opts args t rawtext . (\rl -> rl{filepath=f,filereadtime=tc})
if creating then go journalEmpty else (runErrorT . parseLedgerFile t) f if creating then go nulljournal else (runErrorT . parseLedgerFile t) f
>>= flip either go >>= flip either go
(\e -> hPutStrLn stderr e >> exitWith (ExitFailure 1)) (\e -> hPutStrLn stderr e >> exitWith (ExitFailure 1))