Skip to content

Commit

Permalink
fix: bin: Allow hledger-check-fancyassertions to parse predicates (si…
Browse files Browse the repository at this point in the history
  • Loading branch information
Xitian9 authored and simonmichael committed Sep 8, 2021
1 parent 8fcdc22 commit 04c35e1
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion bin/hledger-check-fancyassertions.hs
Expand Up @@ -459,7 +459,7 @@ data Value = Account H.AccountName | AccountNested H.AccountName | Amount H.Amou
-- | Parse a 'Value'.
valuep :: Monad m => H.JournalParser m Value
-- Account name parser has to come last because they eat everything.
valuep = valueamountp <|> valueaccountnestedp <|> valueaccountp where
valuep = P.try valueamountp <|> P.try valueaccountnestedp <|> valueaccountp where
valueamountp = Amount <$> H.amountp
valueaccountp = Account <$> lift H.accountnamep
valueaccountnestedp = AccountNested <$> (P.char '*' *> spaces *> lift H.accountnamep)
Expand Down

0 comments on commit 04c35e1

Please sign in to comment.