Fix YesodAuth in Swedish, but don't work :( [#29]

dtekcth · Apr 12, 2012 · f2841a9 · f2841a9
1 parent 613fe86
commit f2841a9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Foundation.hs b/Foundation.hs
@@ -30,6 +30,7 @@ import Prelude
 import Yesod
 import Yesod.Static
 import Yesod.Auth
+import Yesod.Auth.Message (swedishMessage)
 import Yesod.Default.Config
 import Yesod.Default.Util (addStaticContentExternal)
 import Yesod.Logger (Logger, logMsg, formatLogText)
@@ -205,6 +206,8 @@ instance YesodAuth App where
 
     authHttpManager = httpManager
 
+    renderAuthMessage _ _ = swedishMessage
+
     loginHandler = defaultLayout $ do
         -- setDtekTitle "Inloggning" -- TODO: fix my generalize setDtekTitle
         toWidget [hamlet|