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
|
||||
-- the 3 letter month name abbreviation for the current locale.
|
||||
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
|
||||
showPeriodMonthAbbrev p = showPeriod p
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user