remove redundant constraint

Assistant/WebApp/Form.hs

@@ -49,7 +49,7 @@ passwordField = F.passwordField
 	}
 
 {- Makes a note widget be displayed after a field. -}
-withNote :: (Monad m, ToWidget (HandlerSite m) a) => Field m v -> a -> Field m v
+withNote :: (ToWidget (HandlerSite m) a) => Field m v -> a -> Field m v
 withNote field note = field { fieldView = newview }
   where
 	newview theId name attrs val isReq = 

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