Fix "(deprecated in favor of )" appearing in search results

This could occur if the package is marked deprecated without any reference to alternative packages.
haskell · Sep 3, 2017 · 535a2ca · 535a2ca
1 parent 537fbbe
commit 535a2ca
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Distribution/Server/Features/Html/HtmlUtilities.hs b/Distribution/Server/Features/Html/HtmlUtilities.hs
@@ -47,6 +47,7 @@ htmlUtilities CoreFeature{coreResource}
             renderUser user = anchor ! [href $ userPageUri userResource "" user] << display user
             itemNameHtml = packageNameLink (itemName item) +++
                                case itemDeprecated item of
+                                       Just []   -> toHtml " (deprecated)"
                                        Just pkgs -> " (deprecated in favor of " +++ intersperse (toHtml ", ") (map packageNameLink pkgs) +++ ")"
                                        Nothing -> toHtml ""