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

period expressions: allow "until", like Ledger (synonym for "to")

Browse Source
This commit is contained in:
Simon Michael 2020-04-08 14:26:38 -07:00
parent 34dd7bf053
commit 10f8dc84a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Dates.hs
View File

@ -1091,7 +1091,7 @@ fromdatespanp rdate = do
todatespanp :: Day -> TextParser m DateSpan
todatespanp rdate = do
choice [string' "to", string' "-"] >> skipMany spacenonewline
choice [string' "to", string' "until", string' "-"] >> skipMany spacenonewline
DateSpan Nothing . Just . fixSmartDate rdate <$> smartdate
justdatespanp :: Day -> TextParser m DateSpan