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

whitespace

Browse Source
This commit is contained in:
Simon Michael 2009-04-16 06:34:32 +00:00
parent baddf20e78
commit 1fd416ba96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Parse.hs
View File

@ -72,7 +72,7 @@ printParseError e = do putStr "ledger parse error at "; print e
parseLedgerFile :: LocalTime -> FilePath -> ErrorT String IO RawLedger parseLedgerFile :: LocalTime -> FilePath -> ErrorT String IO RawLedger
parseLedgerFile t "-" = liftIO (hGetContents stdin) >>= parseLedger t "-" parseLedgerFile t "-" = liftIO (hGetContents stdin) >>= parseLedger t "-"
parseLedgerFile t f = liftIO (readFile f) >>= parseLedger t f parseLedgerFile t f = liftIO (readFile f) >>= parseLedger t f
-- | Parses the contents of a ledger file, or gives an error. Requires -- | Parses the contents of a ledger file, or gives an error. Requires
-- the current (local) time to calculate any unfinished timelog sessions, -- the current (local) time to calculate any unfinished timelog sessions,