From 7178b92f8adfe3fd9f4875f0b7d1d7dcb8d710d5 Mon Sep 17 00:00:00 2001
From: Igor Brejc <igor.brejc@gmail.com>
Date: Mon, 12 Oct 2020 19:03:37 +0200
Subject: [PATCH] #606: more cleaning up of SpreadChart.fs a little

---
 src/visualizations/SpreadChart.fs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/visualizations/SpreadChart.fs b/src/visualizations/SpreadChart.fs
index 26b17f36e..bf7ab869c 100644
--- a/src/visualizations/SpreadChart.fs
+++ b/src/visualizations/SpreadChart.fs
@@ -224,18 +224,18 @@ let renderExplainer (data: StatsData) =
         |> Seq.toList |> List.head
         |> fun (p, h) -> (p,h)
 
-    let box (title: string) round positive hospitalized =
+    let box (title: string) doublings positive hospitalized =
         Html.div [
             prop.className "box"
             prop.children [
                 Html.h3 title
-                let times = (1<<<round)
-                let timesAsManyText = (chartText "timesAsMany")
-                let caption = sprintf "%d%s" times timesAsManyText
                 Html.p [
-                    match round with
+                    match doublings with
                     | 0 -> ""
-                    | _ -> caption
+                    | _ ->
+                        let times = 1<<<doublings
+                        let timesAsManyText = chartText "timesAsMany"
+                        sprintf "%d%s" times timesAsManyText
                     |> Html.span
                 ]
                 Html.div [ Html.h4 (string positive)
@@ -260,7 +260,9 @@ let renderExplainer (data: StatsData) =
                           chartText "inThreeWeeks", 3
                           chartText "inFourWeeks", 4 ]
                         |> List.map (fun (title, doublings) ->
-                            box title doublings (curPositive <<< doublings) (curHospitalized <<< doublings)
+                            box title doublings
+                                (curPositive <<< doublings)
+                                (curHospitalized <<< doublings)
                         )
                 ]
             ]