diff options
Diffstat (limited to 'lib/Postdelay')
| -rw-r--r-- | lib/Postdelay/TimeSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs index 21c48a4..951b1c0 100644 --- a/lib/Postdelay/TimeSpec.hs +++ b/lib/Postdelay/TimeSpec.hs | |||
| @@ -153,7 +153,7 @@ dateSpec = label "Date" $ (>> scribe (prio' Default . time) midnight) <$> choice | |||
| 153 | d <- dayNumber True | 153 | d <- dayNumber True |
| 154 | return $ scribeDate y m d | 154 | return $ scribeDate y m d |
| 155 | , try $ do | 155 | , try $ do |
| 156 | ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar | 156 | ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar <* lookAhead (spaces <|> eof) |
| 157 | let yDs = ds - 2 {- month-} - 2 {- day -} | 157 | let yDs = ds - 2 {- month-} - 2 {- day -} |
| 158 | when (yDs <= 0) $ | 158 | when (yDs <= 0) $ |
| 159 | fail "Too few digits to interpret as concatenated date" | 159 | fail "Too few digits to interpret as concatenated date" |