mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
lib: periodexprp: don't consume trailing whitespace
This commit is contained in:
parent
c6bfd92dd3
commit
eb23504906
@ -919,7 +919,9 @@ lastthisnextthing = do
|
|||||||
-- >>> p "every 2nd day of month 2009-"
|
-- >>> p "every 2nd day of month 2009-"
|
||||||
-- Right (DayOfMonth 2,DateSpan 2009/01/01-)
|
-- Right (DayOfMonth 2,DateSpan 2009/01/01-)
|
||||||
periodexprp :: Day -> TextParser m (Interval, DateSpan)
|
periodexprp :: Day -> TextParser m (Interval, DateSpan)
|
||||||
periodexprp rdate = surroundedBy (skipMany spacenonewline) . choice $ map try [
|
periodexprp rdate = do
|
||||||
|
skipMany spacenonewline
|
||||||
|
choice $ map try [
|
||||||
intervalanddateperiodexprp rdate,
|
intervalanddateperiodexprp rdate,
|
||||||
(,) NoInterval <$> periodexprdatespanp rdate
|
(,) NoInterval <$> periodexprdatespanp rdate
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user