From 81b60774b9bccd6cb3b8314c5529c6e96a91f4ed Mon Sep 17 00:00:00 2001
From: Alias Qli <2576814881@qq.com>
Date: Thu, 18 Aug 2022 15:44:14 +0800
Subject: [PATCH] add deprecated version warning

---
 datafiles/templates/Html/package-page.html.st         | 8 +++++++-
 src/Distribution/Server/Features/Html.hs              | 1 +
 src/Distribution/Server/Features/PreferredVersions.hs | 1 +
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/datafiles/templates/Html/package-page.html.st b/datafiles/templates/Html/package-page.html.st
index bacafe9fc..e24b2d7cf 100644
--- a/datafiles/templates/Html/package-page.html.st
+++ b/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">
diff --git a/src/Distribution/Server/Features/Html.hs b/src/Distribution/Server/Features/Html.hs
index 7155f62e4..df978c3aa 100644
--- a/src/Distribution/Server/Features/Html.hs
+++ b/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
diff --git a/src/Distribution/Server/Features/PreferredVersions.hs b/src/Distribution/Server/Features/PreferredVersions.hs
index 860c9b7c7..4cd1b4ac9 100644
--- a/src/Distribution/Server/Features/PreferredVersions.hs
+++ b/src/Distribution/Server/Features/PreferredVersions.hs
@@ -7,6 +7,7 @@ module Distribution.Server.Features.PreferredVersions (
 
     PreferredInfo(..),
     VersionStatus(..),
+    getVersionStatus,
     classifyVersions,
 
     PreferredRender(..),