From 504ac3cd9a104cd1b736a9be24d5bf9f2f22c91a Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 14 Jul 2014 13:01:58 +0300 Subject: [PATCH] Revert "requireAuthId does not need YesodAuthPersist master" --- yesod-auth/Yesod/Auth.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs index 535137b4..d5f5d166 100644 --- a/yesod-auth/Yesod/Auth.hs +++ b/yesod-auth/Yesod/Auth.hs @@ -56,6 +56,7 @@ import Data.Monoid (Endo) import Network.HTTP.Conduit (Manager) import qualified Network.Wai as W +import Text.Hamlet (shamlet) import Yesod.Core import Yesod.Persist @@ -418,7 +419,7 @@ type AuthEntity master = KeyEntity (AuthId master) -- authenticated. -- -- Since 1.1.0 -requireAuthId :: YesodAuth master => HandlerT master IO (AuthId master) +requireAuthId :: YesodAuthPersist master => HandlerT master IO (AuthId master) requireAuthId = maybeAuthId >>= maybe redirectLogin return -- | Similar to 'maybeAuth', but redirects to a login page if user is not