diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs index d5f5d166..535137b4 100644 --- a/yesod-auth/Yesod/Auth.hs +++ b/yesod-auth/Yesod/Auth.hs @@ -56,7 +56,6 @@ 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 @@ -419,7 +418,7 @@ type AuthEntity master = KeyEntity (AuthId master) -- authenticated. -- -- Since 1.1.0 -requireAuthId :: YesodAuthPersist master => HandlerT master IO (AuthId master) +requireAuthId :: YesodAuth master => HandlerT master IO (AuthId master) requireAuthId = maybeAuthId >>= maybe redirectLogin return -- | Similar to 'maybeAuth', but redirects to a login page if user is not