Skip to content

Commit 8b2be18

Browse files
authored
add deprecated version warning (#1123)
1 parent 4af279e commit 8b2be18

File tree

3 files changed

+9
-1
lines changed

3 files changed

+9
-1
lines changed

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

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -36,9 +36,15 @@
3636

3737
$if(isDeprecated)$
3838
<div id="deprecated">
39-
Deprecated.
39+
<span style="color:#D00B3C">Deprecated.</span>
4040
$deprecatedMsg$
4141
</div>
42+
$else$
43+
$if(isDeprecatedVersion)$
44+
<div id="deprecated-version">
45+
<span style="color:#D00B3C">This version is deprecated.</span>
46+
</div>
47+
$endif$
4248
$endif$
4349

4450
<div id="flex-container">

src/Distribution/Server/Features/Html.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -644,6 +644,7 @@ mkHtmlCore ServerEnv{serverBaseURI, serverBlobStore}
644644
, "analyticsPixels" $= map analyticsPixelUrl (Set.toList analyticsPixels)
645645
, "versions" $= (PagesNew.renderVersion realpkg
646646
(classifyVersions prefInfo $ map packageVersion pkgs) infoUrl)
647+
, "isDeprecatedVersion" $= getVersionStatus prefInfo (packageVersion realpkg) == DeprecatedVersion
647648
, "totalDownloads" $= totalDown
648649
, "hasexecs" $= not (null execs)
649650
, "recentDownloads" $= recentDown

src/Distribution/Server/Features/PreferredVersions.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@ module Distribution.Server.Features.PreferredVersions (
77

88
PreferredInfo(..),
99
VersionStatus(..),
10+
getVersionStatus,
1011
classifyVersions,
1112

1213
PreferredRender(..),

0 commit comments

Comments
 (0)