printing in a function

Main.hs

@@ -52,12 +52,7 @@ produitVaisselle = Recipe "Produit Vaisselle"
 
 main = do
     putStrLn "Calcul du coût des recettes\n"
-    putStrLn "* Lessive :"
-    print lessive
-    let lessiveTotalCost = recipeCost lessive
-        lessiveUnitCost = unitCost lessive lessiveTotalCost
-        lessiveUseCost = useCost lessive lessiveTotalCost
-    putStrLn $ "  * Prix Total = " ++ show lessiveTotalCost ++ "€"
-    putStrLn $ "  * Prix au litre = " ++ show lessiveUnitCost ++ "€"
-    putStrLn $ "  * Prix par utilisation = " ++ show lessiveUseCost ++ "€"
-
+    printRecipeCost lessive
+    printRecipeCost beurre
+    printRecipeCost dentifrice
+    printRecipeCost produitVaisselle

RecipeCost.hs

@@ -28,3 +28,15 @@ useCost (Recipe _ _ _ uses) totalCost = totalCost / uses
 
 (→) :: Ingredient -> Double -> UsedIngredient
 (→) ingredient qtt = UsedIngredient ingredient qtt
+
+-- * Presentation
+printRecipeCost :: Recipe -> IO ()
+printRecipeCost recipe = do
+    putStrLn $ "* " ++ recipeName recipe ++" :"
+    print recipe
+    let recipeTotalCost = recipeCost recipe
+        recipeUnitCost = unitCost recipe recipeTotalCost
+        recipeUseCost = useCost recipe recipeTotalCost
+    putStrLn $ "  * Prix Total = " ++ show recipeTotalCost ++ "€"
+    putStrLn $ "  * Prix à l'unité = " ++ show recipeUnitCost ++ "€"
+    putStrLn $ "  * Prix par utilisation = " ++ show recipeUseCost ++ "€"