From 26054c524fd8608d180899eaf73c5a92277a8bf2 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Mon, 7 Feb 2022 12:59:44 -0700 Subject: [PATCH] remove redundant constraint --- src/Handler/Marketplace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs index 46e7424..e899c49 100644 --- a/src/Handler/Marketplace.hs +++ b/src/Handler/Marketplace.hs @@ -381,7 +381,7 @@ getPackageListR = do pure (depId, DependencyRes { dependencyResTitle = depTitle, dependencyResIcon = encodeBase64 icon }) ) deps - loadIcon :: (Monad m, MonadResource m, MonadReader r m, Has PkgRepo r) => PkgId -> Version -> m ByteString + loadIcon :: (MonadResource m, MonadReader r m, Has PkgRepo r) => PkgId -> Version -> m ByteString loadIcon pkg version = do (_, _, src) <- getIcon pkg version runConduit $ src .| CL.foldMap id