bs/bse/cf/is: fix display of abbreviated name for December
This commit is contained in:
parent
4ddb748d9c
commit
5b1883fcdf
@ -147,7 +147,7 @@ showPeriod PeriodAll = "-"
|
|||||||
-- | Like showPeriod, but if it's a month period show just
|
-- | Like showPeriod, but if it's a month period show just
|
||||||
-- the 3 letter month name abbreviation for the current locale.
|
-- the 3 letter month name abbreviation for the current locale.
|
||||||
showPeriodMonthAbbrev (MonthPeriod _ m) -- Jan
|
showPeriodMonthAbbrev (MonthPeriod _ m) -- Jan
|
||||||
| m >= 0 && m < length monthnames = snd $ monthnames !! (m-1)
|
| m > 0 && m <= length monthnames = snd $ monthnames !! (m-1)
|
||||||
where monthnames = months defaultTimeLocale
|
where monthnames = months defaultTimeLocale
|
||||||
showPeriodMonthAbbrev p = showPeriod p
|
showPeriodMonthAbbrev p = showPeriod p
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user