normalizeDate: Allow dates with year only (%Y)
This commit is contained in:
parent
2461f244e3
commit
82813b5585
1 changed files with 1 additions and 1 deletions
|
@ -270,7 +270,7 @@ normalizeDate s = fmap (formatTime defaultTimeLocale "%F")
|
|||
(msum $ map (\fs -> parsetimeWith fs s) formats :: Maybe Day)
|
||||
where parsetimeWith = parseTime defaultTimeLocale
|
||||
formats = ["%x","%m/%d/%Y", "%D","%F", "%d %b %Y",
|
||||
"%d %B %Y", "%b. %d, %Y", "%B %d, %Y"]
|
||||
"%d %B %Y", "%b. %d, %Y", "%B %d, %Y", "%Y"]
|
||||
|
||||
--
|
||||
-- Pandoc block and inline list processing
|
||||
|
|
Loading…
Reference in a new issue