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

choice' haddock

Browse Source
This commit is contained in:
Simon Michael 2011-07-17 17:16:40 +00:00
parent 5d5fb30685
commit f2171c1e02
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -336,6 +336,8 @@ tracewith f e = trace (f e) e
-- parsing
-- | Backtracking choice, use this when alternatives share a prefix.
-- Consumes no input if all choices fail.
choice' :: [GenParser tok st a] -> GenParser tok st a
choice' = choice . map Text.ParserCombinators.Parsec.try