From 92a6e02b7c4027da9c6c999e6d49d170c340f082 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 9 Apr 2017 18:53:08 +0200 Subject: Add unit for carbohydrates --- src/Page.purs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Page.purs b/src/Page.purs index 850875a..f7c04c2 100644 --- a/src/Page.purs +++ b/src/Page.purs @@ -71,7 +71,7 @@ renderHeader search = [ HH.text "Index glycémique" ] , HH.div [] - [ HH.text "Glucides pour 100g" ] + [ HH.text "Glucides pour 100 g" ] , HH.div [] [ HH.text "Charge glycémique" ] @@ -96,7 +96,7 @@ renderAliment aliment = [ HH.text (show aliment.glycemicIndex) ] , HH.div [ HP.class_ $ HH.ClassName "number" ] - [ HH.text (show aliment.carbohydrates) ] + [ HH.text (show aliment.carbohydrates <> " g") ] , let glycemicLoad = Food.glycemicLoad aliment in HH.div [ HP.class_ $ HH.ClassName ("number " <> (Indicator.className $ Indicator.fromGlycemicLoad glycemicLoad)) ] -- cgit v1.2.3