aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoris2017-04-09 18:53:08 +0200
committerJoris2017-04-09 18:53:08 +0200
commit92a6e02b7c4027da9c6c999e6d49d170c340f082 (patch)
tree4d7c1da084a89137b27c8aadbc887c23ef4542ef
parent7c209f271ffc3122ada0331094e01dc6e409c2fb (diff)
Add unit for carbohydrates
-rw-r--r--src/Page.purs4
1 files 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)) ]