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

simplify parseLedgerAndDo

Browse Source
This commit is contained in:
Simon Michael 2008-10-08 17:48:11 +00:00
parent b8b3de0719
commit 59f0a2fabe
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
hledger.hs
View File

@ -84,16 +84,15 @@ balance opts args = parseLedgerAndDo opts args printbalance
-- | parse the user's specified ledger file and do some action with it -- | parse the user's specified ledger file and do some action with it
-- (or report a parse error). This function makes the whole thing go. -- (or report a parse error). This function makes the whole thing go.
parseLedgerAndDo :: [Opt] -> [String] -> (Ledger -> IO ()) -> IO () parseLedgerAndDo :: [Opt] -> [String] -> (Ledger -> IO ()) -> IO ()
parseLedgerAndDo opts args cmd = do parseLedgerAndDo opts args cmd =
parsed <- ledgerFilePathFromOpts opts >>= parseLedgerFile ledgerFilePathFromOpts opts >>= parseLedgerFile >>= either parseError runthecommand
case parsed of Left err -> parseError err where
Right l -> cmd $ cacheLedger $ filterLedger begin end aregex dregex l runthecommand = cmd . cacheLedger . filterLedger begin end aregex dregex
where begin = beginDateFromOpts opts
(apats,dpats) = parsePatternArgs args end = endDateFromOpts opts
aregex = regexFor apats aregex = regexFor apats
dregex = regexFor dpats dregex = regexFor dpats
begin = beginDateFromOpts opts (acctpats,descpats) = parsePatternArgs args
end = endDateFromOpts opts
-- ghci helpers -- ghci helpers