remove redundant constraint

This commit is contained in:
Keagan McClelland
2022-02-07 12:59:44 -07:00
parent 7d10c19ee5
commit 26054c524f

View File

@@ -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