From 36d5ebfa4a2047d4fe62bdc19dc496f7ff48c502 Mon Sep 17 00:00:00 2001 From: Stephan Barth Date: Mon, 26 Feb 2024 17:59:07 +0100 Subject: [PATCH] Versionbump: Removed redundant MonadLogger --- src/Settings/StaticFiles/Webpack.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Settings/StaticFiles/Webpack.hs b/src/Settings/StaticFiles/Webpack.hs index a889d22fa..1d97e2167 100644 --- a/src/Settings/StaticFiles/Webpack.hs +++ b/src/Settings/StaticFiles/Webpack.hs @@ -16,7 +16,7 @@ import qualified Data.Yaml as Yaml import qualified Data.Map as Map -import Yesod.Core (Route, MonadLogger, MonadWidget, HandlerSite, logDebugS, logErrorS) +import Yesod.Core (Route, MonadWidget, HandlerSite, logDebugS, logErrorS) import Yesod.EmbeddedStatic (EmbeddedStatic) import Yesod.EmbeddedStatic.Types import Network.Mime (MimeType) @@ -69,7 +69,7 @@ mkWebpackEntrypoints manifest mkGen stDir = do , funD entryName [ clause [] (normalB . listE . map (\(n, mime) -> tupE [varE n, TH.lift mime]) $ nubOrdOn fst entries) [] ] - , sigD widgetName [t|forall m. (MonadLogger m, MonadWidget m) => (Route EmbeddedStatic -> Route (HandlerSite m)) -> m ()|] + , sigD widgetName [t|forall m. MonadWidget m => (Route EmbeddedStatic -> Route (HandlerSite m)) -> m ()|] , funD widgetName [ clause [varP staticR] (normalB [e| do