From c2bf6e9455c4c9f2a452d31b2ba2efe10b47ae70 Mon Sep 17 00:00:00 2001
From: Yves Dubromelle <yves+git@dubronetwork.fr>
Date: Sat, 21 May 2016 02:22:35 +0200
Subject: [PATCH] operator to use an ingredient

---
 cout-recette.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/cout-recette.hs b/cout-recette.hs
index a23ca2a..83dcf32 100755
--- a/cout-recette.hs
+++ b/cout-recette.hs
@@ -24,6 +24,9 @@ unitCost (Recipe _ _ qtt _) totalCost = totalCost / qtt
 useCost :: Recipe -> Double -> Double
 useCost (Recipe _ _ _ uses) totalCost = totalCost / uses
 
+(→) :: Ingredient -> Double -> UsedIngredient
+(→) ingredient qtt = UsedIngredient ingredient qtt
+
 eau = Ingredient "Eau" 0.003
 savonMarseille = Ingredient "Savon de Marseille" 3.36
 bicarbonate = Ingredient "Bicarbonate de soude" 3.81
@@ -31,10 +34,10 @@ vinaigreBlanc = Ingredient "Vinaigre blanc" 0.36
 
 lessive :: Recipe
 lessive = Recipe "Lessive"
-                 [ UsedIngredient eau 2.5
-                 , UsedIngredient savonMarseille 0.1
-                 , UsedIngredient bicarbonate 0.016
-                 , UsedIngredient vinaigreBlanc 0.03
+                 [ eau → 2.5
+                 , savonMarseille → 0.1
+                 , bicarbonate → 0.016
+                 , vinaigreBlanc → 0.03
                  ]
                  2.5
                  30