From 967d1bec095be35ef01ce5fa404ad0a7728d785b Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 14 Oct 2018 17:04:23 +0200 Subject: [PATCH] More i18n --- src/Foundation.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index e68f2d310..6bef15386 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -90,6 +90,7 @@ import qualified Data.Yaml as Yaml import Text.Shakespeare.Text (st) import Yesod.Form.I18n.German +import qualified Yesod.Auth.Message as Auth instance DisplayAble b => DisplayAble (E.CryptoID a b) where @@ -182,8 +183,7 @@ mkMessageVariant "UniWorX" "PWHash" "messages/pw-hash" "de" -- This instance is required to use forms. You can modify renderMessage to -- achieve customized and internationalized form validation messages. instance RenderMessage UniWorX FormMessage where - renderMessage f (l:ls) = renderMessage f ls -- TODO - renderMessage _ [] = germanFormMessage + renderMessage _ _ = germanFormMessage -- TODO instance RenderMessage UniWorX TermIdentifier where renderMessage foundation ls TermIdentifier{..} = case season of @@ -1318,6 +1318,8 @@ instance YesodAuth UniWorX where authHttpManager = getHttpManager + renderAuthMessage _ _ = Auth.germanMessage -- TODO + instance YesodAuthPersist UniWorX -- Useful when writing code that is re-usable outside of the Handler context.