From a42cf28f7dbd0008e7f2af9f93d9521787e1f732 Mon Sep 17 00:00:00 2001
From: Stephan Barth <stephan.barth@uniworx.de>
Date: Wed, 21 Feb 2024 05:34:23 +0100
Subject: [PATCH] Versionbump: Qualified desired function and allowed for one
 redundant constraint.

---
 src/Import/NoModel.hs | 1 +
 src/Yesod/Servant.hs  | 3 +++
 2 files changed, 4 insertions(+)

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