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

13
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
Right l -> cmd $ cacheLedger $ filterLedger begin end aregex dregex l
where where
(apats,dpats) = parsePatternArgs args runthecommand = cmd . cacheLedger . filterLedger begin end aregex dregex
aregex = regexFor apats
dregex = regexFor dpats
begin = beginDateFromOpts opts begin = beginDateFromOpts opts
end = endDateFromOpts opts end = endDateFromOpts opts
aregex = regexFor apats
dregex = regexFor dpats
(acctpats,descpats) = parsePatternArgs args
-- ghci helpers -- ghci helpers