Fixing a few typos in Solution.hs (#28)

Just fixing a few typos in Solution.hs for Homework08. Thank you for this great course.

Author: eloi010

Homework08/Solution.hs

@@ -42,8 +42,8 @@ wine3 = Rose 12 :: Kind
 
 -- Question 4
 -- In the world of wines, bottles display all of the above information for the consumer on its label.
--- Create a record type called "Label" that captures the grapes that are in a whine, the region its from,
--- and it's kind. Notice that some wines are a blended combination of multiple grapes!
+-- Create a record type called "Label" that captures the grapes that are in a wine, the region it's from,
+-- and its kind. Notice that some wines are a blended combination of multiple grapes!
 -- Additionally, create for each of the described wine below a label.
 
 data Label = Label {
@@ -58,12 +58,12 @@ data Label = Label {
 
 larrosaRose = Label {grapes = [grape4], region = region3, kind = Rose 14 }
 
--- Castiglioni is a red wine from the region of Tuscany. It is made from the the grape Sangiovese and
+-- Castiglioni is a red wine from the region of Tuscany. It is made from the grape Sangiovese and
 -- has a alcohol level of 12.5%.
 
 castiglioni = Label {grapes = [grape1], region = region2, kind = Red 12.5 }
 
--- Bordeaux is know for its red wine, these are mainly a blend between Cabernet-sauvignon and Merlot.
+-- Bordeaux is known for its red wine, these are mainly a blend between Cabernet-sauvignon and Merlot.
 -- Create a Label for the wine "Le Petit Haut Lafitte" that has an alcohol percentage 13.5%.
 
 lePetitHaitLafitte = Label {grapes = [grape2, grape3], region = region1, kind = Red 13.5 }
@@ -77,4 +77,4 @@ containsGrape labels grape = any (\Label{grapes=xs} -> grape `elem` xs) labels
 
 -- This is a test list for the `containsGrape` function with an grape that is not in the list.
 grapeList = [larrosaRose,castiglioni,lePetitHaitLafitte]
-newGrape = "Pinot Noir"
+newGrape = "Pinot Noir"