fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Versionbump: Qualified desired function and allowed for one redundant constraint.

Browse Source
This commit is contained in:
Stephan Barth 2024-02-21 05:34:23 +01:00
parent 3731cd6bec
commit a42cf28f7d
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Import/NoModel.hs
View File

@ -29,6 +29,7 @@ import ClassyPrelude.Yesod as Import
, mkMessage, mkMessageFor, mkMessageVariant , mkMessage, mkMessageFor, mkMessageVariant
, YesodBreadcrumbs(..) , YesodBreadcrumbs(..)
, MonoZip(..), ozipWith , MonoZip(..), ozipWith
, existsBy
) )
import UnliftIO.Async.Utils as Import import UnliftIO.Async.Utils as Import

3
src/Yesod/Servant.hs
View File

@ -4,6 +4,7 @@
{-# OPTIONS_GHC -fno-warn-unused-foralls #-} {-# OPTIONS_GHC -fno-warn-unused-foralls #-}
{-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
module Yesod.Servant module Yesod.Servant
( ServantApiUnproxy, ServantApiUnproxy', ServantApiDirect ( ServantApiUnproxy, ServantApiUnproxy', ServantApiDirect
@ -501,6 +502,8 @@ class Monad m => MonadRequest m where
instance HasServantHandlerContext site => MonadRequest (ServantHandlerFor site) where instance HasServantHandlerContext site => MonadRequest (ServantHandlerFor site) where
getRequest = liftServantHandler . ServantHandlerFor $ return . getSCtxRequest 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 instance {-# OVERLAPPABLE #-} (Yesod.MonadHandler m, Monad m) => MonadRequest m where
getRequest = Yesod.waiRequest getRequest = Yesod.waiRequest