diff --git a/Assistant/WebApp/Form.hs b/Assistant/WebApp/Form.hs
index 4a19e2b1b5..1eb48b2e0e 100644
--- a/Assistant/WebApp/Form.hs
+++ b/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 = 
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index 3d2c31a897..cff5b268ef 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