diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-02-21 22:35:32 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-02-21 22:35:32 +0100 |
| commit | c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3 (patch) | |
| tree | 459c3c528fac8cc702f54a3a3c9d11b0befdfabf | |
| parent | b6e867c227f77ea27e3c04efdb5882c629034176 (diff) | |
| download | postdelay-c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3.tar postdelay-c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3.tar.gz postdelay-c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3.tar.bz2 postdelay-c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3.tar.xz postdelay-c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3.zip | |
concatenated date needs to be seperated
| -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" |