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

lib: note issues

Browse Source
This commit is contained in:
Simon Michael 2016-05-06 17:19:23 -07:00
parent e7a1eb627f
commit 6cbc0ceb0d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Query.hs
View File

@ -395,7 +395,7 @@ same [] = True
same (a:as) = all (a==) as same (a:as) = all (a==) as
-- | Remove query terms (or whole sub-expressions) not matching the given -- | Remove query terms (or whole sub-expressions) not matching the given
-- predicate from this query. XXX Semantics not yet clear. -- predicate from this query. XXX Semantics not completely clear.
filterQuery :: (Query -> Bool) -> Query -> Query filterQuery :: (Query -> Bool) -> Query -> Query
filterQuery p = simplifyQuery . filterQuery' p filterQuery p = simplifyQuery . filterQuery' p

2
hledger/Hledger/Cli/Register.hs
View File

@ -68,7 +68,7 @@ postingsReportAsCsv (_,is) =
postingsReportItemAsCsvRecord :: PostingsReportItem -> Record postingsReportItemAsCsvRecord :: PostingsReportItem -> Record
postingsReportItemAsCsvRecord (_, _, _, p, b) = [date,desc,acct,amt,bal] postingsReportItemAsCsvRecord (_, _, _, p, b) = [date,desc,acct,amt,bal]
where where
date = showDate $ postingDate p date = showDate $ postingDate p -- XXX csv should show date2 with --date2
desc = maybe "" tdescription $ ptransaction p desc = maybe "" tdescription $ ptransaction p
acct = bracket $ paccount p acct = bracket $ paccount p
where where