From b78644e2fe649207d81a89d0af36988aed110104 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 8 Mar 2017 14:39:38 +0100 Subject: Framework for spooling --- lib/Postdelay/TimeSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Postdelay/TimeSpec.hs') diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs index 951b1c0..f61d84e 100644 --- a/lib/Postdelay/TimeSpec.hs +++ b/lib/Postdelay/TimeSpec.hs @@ -124,7 +124,7 @@ dateSpec = label "Date" $ (>> scribe (prio' Default . time) midnight) <$> choice scribe (prio' Assign . date.days) 1 ] , try $ do - let daySuffix = optional $ choice [ string' "st", string' "nd", string' "rd", string' "th" ] + let daySuffix = optional $ choice [ string ".", string' "st", string' "nd", string' "rd", string' "th" ] (m, d) <- choice [ try $ (,) <$> monthName <* spaces <*> dayNumber False <* daySuffix , try $ flip (,) <$> dayNumber False <* daySuffix <* spaces <*> monthName ] -- cgit v1.2.3