From 4a7a526918f31b96545bc40e65e0a1024f3493d7 Mon Sep 17 00:00:00 2001
From: Leonhard Riedisser <leo008180@googlemail.com>
Date: Fri, 27 Dec 2024 21:24:45 +0100
Subject: [PATCH] Make the icons in the background of the tiles in
 accessibility mode smaller

smaller icons, but more icons.

Refers to #185, follow up to #194
---
 src/Ports/Inbound/HTTP/BuildStatuses/Html.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Ports/Inbound/HTTP/BuildStatuses/Html.hs b/src/Ports/Inbound/HTTP/BuildStatuses/Html.hs
index cb13b9c..09eb8d9 100644
--- a/src/Ports/Inbound/HTTP/BuildStatuses/Html.hs
+++ b/src/Ports/Inbound/HTTP/BuildStatuses/Html.hs
@@ -158,12 +158,12 @@ resultToHtml'' Result {..} =
     div_ [class_ "status-content"] $ do
       p_ (toHtml name)
       p_ [class_ "textual-status"] (buildStatusToString buildStatus)
-    section_ [class_ "icon-box", style_ "position: absolute; height: 100%; width: 100%; display: grid; grid-template-columns: repeat(4, 1fr); grid-auto-rows: 48px;"] $ do
+    section_ [class_ "icon-box", style_ "position: absolute; height: 100%; width: 100%; display: grid; grid-template-columns: repeat(8, 1fr); grid-auto-rows: auto;"] $ do
       if isBroken buildStatus
-        then replicateM_ 16 (toHtmlRaw ("<svg viewBox=\"0 0 48 48\"><polygon fill=\"#c41934\" points=\"36,0 0,37.4 2.8,40.2 38.8,2.7\"/><polygon fill=\"#c41934\" points=\"0,2.8 2.8,0 38.8,37.4 36,40.2\"/></svg>" :: String))
+        then replicateM_ 40 (toHtmlRaw ("<svg viewBox=\"0 0 38.8 40.2\"><polygon fill=\"#c41934\" points=\"36,0 0,37.4 2.8,40.2 38.8,2.7\"/><polygon fill=\"#c41934\" points=\"0,2.8 2.8,0 38.8,37.4 36,40.2\"/></svg>" :: String))
         else pure ()
       if isHealthy buildStatus
-        then replicateM_ 16 (toHtmlRaw ("<svg viewBox=\"0 0 48 48\"><polygon fill=\"#43A047\" points=\"36,0 12.4,23.6 2.8,14.0 0,16.9 12.4,29.1 38.8,2.7\"/></svg>" :: String))
+        then replicateM_ 40 (toHtmlRaw ("<svg viewBox=\"0 0 38.8 29.1\"><polygon fill=\"#43A047\" points=\"36,0 12.4,23.6 2.8,14.0 0,16.9 12.4,29.1 38.8,2.7\"/></svg>" :: String))
         else pure ()
 
 buildStatusToString :: (IsString a) => BuildStatus -> a