bs/bse/cf/is: fix display of abbreviated name for December

This commit is contained in:
Simon Michael 2018-01-19 12:45:51 -08:00
parent 4ddb748d9c
commit 5b1883fcdf

View File

@ -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