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: Removed redundant MonadLogger

Browse Source
This commit is contained in:
Stephan Barth 2024-02-26 17:59:07 +01:00
parent 16e2237f5b
commit 36d5ebfa4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Settings/StaticFiles/Webpack.hs
View File

@ -16,7 +16,7 @@ import qualified Data.Yaml as Yaml
import qualified Data.Map as Map 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 (EmbeddedStatic)
import Yesod.EmbeddedStatic.Types import Yesod.EmbeddedStatic.Types
import Network.Mime (MimeType) import Network.Mime (MimeType)
@ -69,7 +69,7 @@ mkWebpackEntrypoints manifest mkGen stDir = do
, funD entryName , funD entryName
[ clause [] (normalB . listE . map (\(n, mime) -> tupE [varE n, TH.lift mime]) $ nubOrdOn fst entries) [] [ 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 , funD widgetName
[ clause [varP staticR] (normalB [e| [ clause [varP staticR] (normalB [e|
do do