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

validate added transaction before writing to file

Browse Source
This commit is contained in:
Simon Michael 2009-04-08 06:01:16 +00:00
parent 393e7d98d4
commit c521dc0bc2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AddCommand.hs
View File

@ -41,8 +41,8 @@ getAndAddTransactions l = (do
,ltdescription=description ,ltdescription=description
,ltpostings=ps ,ltpostings=ps
} }
appendToLedgerFile l $ show t
registerFromString (show t) >>= putStrLn registerFromString (show t) >>= putStrLn
appendToLedgerFile l $ show t
liftM (t:) (getAndAddTransactions l) liftM (t:) (getAndAddTransactions l)
) `catch` (\e -> if isEOFError e then return [] else ioError e) ) `catch` (\e -> if isEOFError e then return [] else ioError e)