Fix analyticsPixel template variable name

alexbiehl · alexbiehl · commit 9dc85e71de35 · 2022-06-27T09:39:04.000+02:00
diff --git a/src/Distribution/Server/Features/Html.hs b/src/Distribution/Server/Features/Html.hs
@@ -1918,7 +1918,7 @@ mkHtmlAnalyticsPixels HtmlUtilities{..} CoreFeature{..} UserFeature{..} UploadFe
         template <- getTemplate templates "analytics-pixels-page.html"
         return $ toResponse $ template
             [ "pkgname" $= pkgname,
-              "AnalyticsPixels" $= map analyticsPixelUrl (Set.toList analyticsPixels)
+              "analyticsPixels" $= map analyticsPixelUrl (Set.toList analyticsPixels)
             ]
 
     userPackagesAnalyticsPixelsHtml :: UserName -> ServerPartE Response

Original file line number	Diff line number	Diff line change
`@@ -1918,7 +1918,7 @@ mkHtmlAnalyticsPixels HtmlUtilities{..} CoreFeature{..} UserFeature{..} UploadFe`
`1918`	`1918`	`template <- getTemplate templates "analytics-pixels-page.html"`
`1919`	`1919`	`return $ toResponse $ template`
`1920`	`1920`	`[ "pkgname" $= pkgname,`
`1921`		`- "AnalyticsPixels" $= map analyticsPixelUrl (Set.toList analyticsPixels)`
	`1921`	`+ "analyticsPixels" $= map analyticsPixelUrl (Set.toList analyticsPixels)`
`1922`	`1922`	`]`
`1923`	`1923`
`1924`	`1924`	`userPackagesAnalyticsPixelsHtml :: UserName -> ServerPartE Response`