simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-07 21:15:19 +03:00
Code Issues Projects Releases Wiki Activity

fix compilation

Browse Source
This commit is contained in:
Simon Michael 2016-03-02 17:05:56 -08:00
parent 238545e5df
commit a13910f70f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/hledger-rewrite.hs
View File

@ -14,9 +14,11 @@ hledger-rewrite.hs expenses:gifts --add-posting '(reserve:gifts) *-1"'
Note the single quotes to protect the dollar sign from bash, and the two spaces between account and amount.
See the command-line help for more details.
Currently does not work when invoked via "hledger rewrite".
Currently does not work when invoked via hledger, run hledger-rewrite[.hs] directly.
Tested-with: hledger HEAD ~ 2014/2/4
Needs to work on unbalanced entries, eg while editing one.
Tested-with: hledger HEAD ~ 2016/3/2
|-}
@ -70,7 +72,7 @@ amountexprp =
amountExprRenderer :: Query -> AmountExpr -> (Transaction -> MixedAmount)
amountExprRenderer q aex =
case aex of
AmountLiteral s -> mamountp' s -- either parseerror (const . mixed) $ runParser (amountp <* eof) nullctx "" s
AmountLiteral s -> const (mamountp' s)
AmountMultiplier n -> (`divideMixedAmount` (1 / n)) . (`firstAmountMatching` q)
where
firstAmountMatching :: Transaction -> Query -> MixedAmount