diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-14 23:58:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-15 00:04:56 -0400 |
| commit | 6ce4bf609f8a73695666125944544c53e6a5f026 (patch) | |
| tree | 75ac8ba2964ae9a26cdee0c9aac41e724cc2e7b6 /Utility/WebApp.hs | |
| parent | bcd23634e37e4c1eb5c606150ab97645c4549a66 (diff) | |
remove redundant constraint
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 |