From c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <aethoago@141.li>
Date: Tue, 21 Feb 2017 22:35:32 +0100
Subject: concatenated date needs to be seperated

---
 lib/Postdelay/TimeSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Postdelay')

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
                d <- dayNumber True
                return $ scribeDate y m d
            , try $ do
-               ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar
+               ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar <* lookAhead (spaces <|> eof)
                let yDs = ds - 2 {- month-} - 2 {- day -}
                when (yDs <= 0) $
                  fail "Too few digits to interpret as concatenated date"
-- 
cgit v1.2.3