From b586256769a7492241c5506310daa00e5bf77537 Mon Sep 17 00:00:00 2001 From: Katie McLaughlin Date: Thu, 6 Oct 2016 15:02:47 +1100 Subject: [PATCH 1/2] Add a great-big sad face if there are failed builds --- boris-http/src/Boris/Http/Representation/Scoreboard.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/boris-http/src/Boris/Http/Representation/Scoreboard.hs b/boris-http/src/Boris/Http/Representation/Scoreboard.hs index b2b3f92..d23e385 100644 --- a/boris-http/src/Boris/Http/Representation/Scoreboard.hs +++ b/boris-http/src/Boris/Http/Representation/Scoreboard.hs @@ -39,3 +39,6 @@ scoreboardHtml bs = let H.head $ H.meta ! HA.httpEquiv "refresh" ! HA.content "60" H.body ! HA.style ("background-color: " <> colour <> ";") $ "" + case allOk of + False -> H.div ! HA.style ("font-size: 360px; color:white; position: fixed; top: 50%; left: 50%; transform: translate(-50%, -50%) rotate(90deg);") $ ":(" + True -> "" From db161477930384ea680e8f2e5e1a89dcd7b30844 Mon Sep 17 00:00:00 2001 From: Katie McLaughlin Date: Thu, 6 Oct 2016 15:21:25 +1100 Subject: [PATCH 2/2] fix! make the HTML syntaxtually accurate --- boris-http/src/Boris/Http/Representation/Scoreboard.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/boris-http/src/Boris/Http/Representation/Scoreboard.hs b/boris-http/src/Boris/Http/Representation/Scoreboard.hs index d23e385..b5909fd 100644 --- a/boris-http/src/Boris/Http/Representation/Scoreboard.hs +++ b/boris-http/src/Boris/Http/Representation/Scoreboard.hs @@ -38,7 +38,7 @@ scoreboardHtml bs = let H.html $ do H.head $ H.meta ! HA.httpEquiv "refresh" ! HA.content "60" - H.body ! HA.style ("background-color: " <> colour <> ";") $ "" - case allOk of - False -> H.div ! HA.style ("font-size: 360px; color:white; position: fixed; top: 50%; left: 50%; transform: translate(-50%, -50%) rotate(90deg);") $ ":(" - True -> "" + H.body ! HA.style ("background-color: " <> colour <> ";") $ do + case allOk of + False -> H.div ! HA.style ("font-size: 360px; color:white; position: fixed; top: 50%; left: 50%; transform: translate(-50%, -50%) rotate(90deg);") $ ":(" + True -> ""