add deprecated version warning (#1123)

Author: AliasQli

datafiles/templates/Html/package-page.html.st

@@ -36,9 +36,15 @@
 
     $if(isDeprecated)$
     <div id="deprecated">
-      Deprecated.
+      <span style="color:#D00B3C">Deprecated.</span>
       $deprecatedMsg$
     </div>
+    $else$
+      $if(isDeprecatedVersion)$
+      <div id="deprecated-version">
+        <span style="color:#D00B3C">This version is deprecated.</span>
+      </div>
+      $endif$
     $endif$
 
     <div id="flex-container">

src/Distribution/Server/Features/Html.hs

@@ -644,6 +644,7 @@ mkHtmlCore ServerEnv{serverBaseURI, serverBlobStore}
           , "analyticsPixels"   $= map analyticsPixelUrl (Set.toList analyticsPixels)
           , "versions"          $= (PagesNew.renderVersion realpkg
               (classifyVersions prefInfo $ map packageVersion pkgs) infoUrl)
+          , "isDeprecatedVersion" $= getVersionStatus prefInfo (packageVersion realpkg) == DeprecatedVersion
           , "totalDownloads"    $= totalDown
           , "hasexecs"          $= not (null execs)
           , "recentDownloads"   $= recentDown

src/Distribution/Server/Features/PreferredVersions.hs

@@ -7,6 +7,7 @@ module Distribution.Server.Features.PreferredVersions (
 
     PreferredInfo(..),
     VersionStatus(..),
+    getVersionStatus,
     classifyVersions,
 
     PreferredRender(..),