From 6ce4bf609f8a73695666125944544c53e6a5f026 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 23:58:59 -0400 Subject: remove redundant constraint --- Utility/WebApp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utility/WebApp.hs') diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 3d2c31a89..cff5b268e 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -183,7 +183,7 @@ genAuthToken = do - Note that the usual Yesod error page is bypassed on error, to avoid - possibly leaking the auth token in urls on that page! -} -checkAuthToken :: (Monad m, Yesod.MonadHandler m) => (Yesod.HandlerSite m -> AuthToken) -> m Yesod.AuthResult +checkAuthToken :: Yesod.MonadHandler m => (Yesod.HandlerSite m -> AuthToken) -> m Yesod.AuthResult checkAuthToken extractAuthToken = do webapp <- Yesod.getYesod req <- Yesod.getRequest -- cgit v1.2.3