slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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. 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. 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 :: Query -> AmountExpr -> (Transaction -> MixedAmount)
amountExprRenderer q aex = amountExprRenderer q aex =
case aex of 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) AmountMultiplier n -> (`divideMixedAmount` (1 / n)) . (`firstAmountMatching` q)
where where
firstAmountMatching :: Transaction -> Query -> MixedAmount firstAmountMatching :: Transaction -> Query -> MixedAmount