diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs index 252335e2..d32ac353 100644 --- a/yesod-auth/Yesod/Auth.hs +++ b/yesod-auth/Yesod/Auth.hs @@ -166,7 +166,7 @@ class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage maybeAuthId = defaultMaybeAuthId -- | Called on login error for HTTP requests. By default, calls - -- @setMessage + -- @setMessage@ and redirects to @dest@. onError :: (MonadResourceBase m) => Route master -> Text -> HandlerT master m Html onError dest msg = do setMessage $ toHtml msg