diff --git a/src/Import/NoModel.hs b/src/Import/NoModel.hs
index 90edef7a1..513c015ac 100644
--- a/src/Import/NoModel.hs
+++ b/src/Import/NoModel.hs
@@ -29,6 +29,7 @@ import ClassyPrelude.Yesod    as Import
          , mkMessage, mkMessageFor, mkMessageVariant
          , YesodBreadcrumbs(..)
          , MonoZip(..), ozipWith
+         , existsBy
          )
 
 import UnliftIO.Async.Utils as Import
diff --git a/src/Yesod/Servant.hs b/src/Yesod/Servant.hs
index c87f6e3e4..9f62e11e3 100644
--- a/src/Yesod/Servant.hs
+++ b/src/Yesod/Servant.hs
@@ -4,6 +4,7 @@
 
 {-# OPTIONS_GHC -fno-warn-unused-foralls #-}
 {-# LANGUAGE UndecidableInstances #-}
+{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
 
 module Yesod.Servant
   ( ServantApiUnproxy, ServantApiUnproxy', ServantApiDirect
@@ -501,6 +502,8 @@ class Monad m => MonadRequest m where
 instance HasServantHandlerContext site => MonadRequest (ServantHandlerFor site) where
   getRequest = liftServantHandler . ServantHandlerFor $ return . getSCtxRequest
 
+--instance {-# OVERLAPPABLE #-} (Yesod.MonadHandler m, Monad m) => MonadRequest m where
+--  getRequest = Yesod.waiRequest
 instance {-# OVERLAPPABLE #-} (Yesod.MonadHandler m, Monad m) => MonadRequest m where
   getRequest = Yesod.waiRequest