diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-03-08 14:39:38 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-03-08 14:39:38 +0100 |
| commit | b78644e2fe649207d81a89d0af36988aed110104 (patch) | |
| tree | 3bf68d64f91a56858f78763eda1b3f69ee20ff17 /lib/Postdelay/TimeSpec.hs | |
| parent | c6f1f8c512e8dbca953cb43c11a08c6fcf54f6d3 (diff) | |
| download | postdelay-b78644e2fe649207d81a89d0af36988aed110104.tar postdelay-b78644e2fe649207d81a89d0af36988aed110104.tar.gz postdelay-b78644e2fe649207d81a89d0af36988aed110104.tar.bz2 postdelay-b78644e2fe649207d81a89d0af36988aed110104.tar.xz postdelay-b78644e2fe649207d81a89d0af36988aed110104.zip | |
Framework for spooling
Diffstat (limited to 'lib/Postdelay/TimeSpec.hs')
| -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 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 | |||
| 124 | scribe (prio' Assign . date.days) 1 | 124 | scribe (prio' Assign . date.days) 1 |
| 125 | ] | 125 | ] |
| 126 | , try $ do | 126 | , try $ do |
| 127 | let daySuffix = optional $ choice [ string' "st", string' "nd", string' "rd", string' "th" ] | 127 | let daySuffix = optional $ choice [ string ".", string' "st", string' "nd", string' "rd", string' "th" ] |
| 128 | (m, d) <- choice [ try $ (,) <$> monthName <* spaces <*> dayNumber False <* daySuffix | 128 | (m, d) <- choice [ try $ (,) <$> monthName <* spaces <*> dayNumber False <* daySuffix |
| 129 | , try $ flip (,) <$> dayNumber False <* daySuffix <* spaces <*> monthName | 129 | , try $ flip (,) <$> dayNumber False <* daySuffix <* spaces <*> monthName |
| 130 | ] | 130 | ] |