From 94b87a2d0d0ca30477e0e63b2fcb4707ab1059c1 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 24 Feb 2020 15:05:56 +0100 Subject: [PATCH] fix: fix rendering of weekdays --- src/Foundation.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index 5c39d6b86..12f430ab8 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -236,12 +236,12 @@ instance RenderMessage UniWorX FormMessage where where lang = Text.splitOn "-" $ selectLanguage' appLanguages ls instance RenderMessage UniWorX WeekDay where - renderMessage _ ls wDay = pack $ map fst (wDays $ getTimeLocale' ls) !! fromEnum wDay + renderMessage _ ls wDay = pack . fst $ wDays (getTimeLocale' ls) !! (fromEnum wDay `mod` 7) newtype ShortWeekDay = ShortWeekDay { longWeekDay :: WeekDay } instance RenderMessage UniWorX ShortWeekDay where - renderMessage _ ls (ShortWeekDay wDay) = pack $ map snd (wDays $ getTimeLocale' ls) !! fromEnum wDay + renderMessage _ ls (ShortWeekDay wDay) = pack . snd $ wDays (getTimeLocale' ls) !! (fromEnum wDay `mod` 7) -- Access Control newtype InvalidAuthTag = InvalidAuthTag Text