More i18n

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.