diff options
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |