diff --git a/src/Distribution/Server/Features/PackageList.hs b/src/Distribution/Server/Features/PackageList.hs index 1fe2bd58..72ec4fdf 100644 --- a/src/Distribution/Server/Features/PackageList.hs +++ b/src/Distribution/Server/Features/PackageList.hs @@ -293,7 +293,7 @@ listFeature CoreFeature{..} maintainers <- queryUserGroup (maintainersGroup pkgname) prefsinfo <- queryGetPreferredInfo pkgname - return $ (,) pkgname $ (updateReferenceVersion prefsinfo . updateDescriptionItem desc $ emptyPackageItem pkgname) { + return $ (,) pkgname . updateReferenceVersion prefsinfo $ (updateDescriptionItem desc $ emptyPackageItem pkgname) { itemTags = tags , itemMaintainer = map (userIdToName users) (UserIdSet.toList maintainers) , itemDeprecated = deprs