lib: periodexprp: don't consume trailing whitespace

2018-06-12 16:39:17 -07:00 · 2018-06-12 16:39:17 -07:00 · eb23504906
commit eb23504906
parent c6bfd92dd3
1 changed files with 3 additions and 1 deletions
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@ -919,7 +919,9 @@ lastthisnextthing = do
 -- >>> p "every 2nd day of month 2009-"
 -- Right (DayOfMonth 2,DateSpan 2009/01/01-)
 periodexprp :: Day -> TextParser m (Interval, DateSpan)
-periodexprp rdate = surroundedBy (skipMany spacenonewline) . choice $ map try [
+periodexprp rdate = do
+  skipMany spacenonewline
+  choice $ map try [
                    intervalanddateperiodexprp rdate,
                    (,) NoInterval <$> periodexprdatespanp rdate
                   ]