diff --git a/src/visualizations/SpreadChart.fs b/src/visualizations/SpreadChart.fs index 99e98fc94..26b17f36e 100644 --- a/src/visualizations/SpreadChart.fs +++ b/src/visualizations/SpreadChart.fs @@ -224,19 +224,24 @@ let renderExplainer (data: StatsData) = |> Seq.toList |> List.head |> fun (p, h) -> (p,h) - let box (title: string) times positive hospitalized = + let box (title: string) round positive hospitalized = Html.div [ prop.className "box" prop.children [ Html.h3 title + let times = (1<< Html.span "" - | 1 -> Html.span (sprintf "%d%s" (1<< Html.span (sprintf "%d%s" (1<< "" + | _ -> caption + |> Html.span ] - Html.div [ Html.h4 (string positive); Html.p (chartText "activeCases") ] - Html.div [ Html.h4 (string hospitalized); Html.p (chartText "hospitalized") ] + Html.div [ Html.h4 (string positive) + Html.p (chartText "activeCases") ] + Html.div [ Html.h4 (string hospitalized) + Html.p (chartText "hospitalized") ] ] ]