allergies, space-age, meetup-day; Fully define data in stub

exercises/allergies/src/Allergies.hs

@@ -1,6 +1,14 @@
 module Allergies (Allergen(..), allergies, isAllergicTo) where
 
-data Allergen = Dummy
+data Allergen = Eggs
+              | Peanuts
+              | Shellfish
+              | Strawberries
+              | Tomatoes
+              | Chocolate
+              | Pollen
+              | Cats
+              deriving (Eq)
 
 allergies :: Int -> [Allergen]
 allergies = undefined

exercises/meetup/HINTS.md

@@ -1,8 +1,6 @@
 ## Hints
 
-To complete this exercise, you need to create the data types `Weekday`
-and `Schedule`, and implement the function `meetupDay`.
+To complete this exercise, you need to implement the `meetupDay` function.
 
-You will find the type signature for `meetupDay` and dummy data declarations
-already in place, but it is up to you to define the function and create
-meaningful data types, newtypes or type synonyms.
+You will find the type signature for `meetupDay` already in place,
+but it is up to you to define the function.

exercises/meetup/src/Meetup.hs

@@ -2,8 +2,20 @@ module Meetup (Weekday(..), Schedule(..), meetupDay) where
 
 import Data.Time.Calendar (Day)
 
-data Schedule = Dummy
-data Weekday = Dummy2
+data Weekday = Monday
+             | Tuesday
+             | Wednesday
+             | Thursday
+             | Friday
+             | Saturday
+             | Sunday
+
+data Schedule = First
+              | Second
+              | Third
+              | Fourth
+              | Last
+              | Teenth
 
 meetupDay :: Schedule -> Weekday -> Integer -> Int -> Day
 meetupDay schedule weekday year month = undefined

exercises/space-age/HINTS.md

@@ -1,8 +1,9 @@
 ## Hints
 
-In this exercise, you need to complete the definition of the
+In this exercise, we provided the definition of the
 [algebric data data](http://learnyouahaskell.com/making-our-own-types-and-typeclasses)
-named `Planet`, and implement the `ageOn` function, that calculates how many
+named `Planet`.
+You need to implement the `ageOn` function, that calculates how many
 years old someone would be on a `Planet`, given an age in seconds.
 
 Your can use the provided signature if you are unsure about the types, but
@@ -11,6 +12,3 @@ don't let it restrict your creativity:
 ```haskell
 ageOn :: Planet -> Float -> Float
 ```
-
-Keep in mind that the test suite will not compile until you correctly
-implement the data type `Planet`.

exercises/space-age/src/SpaceAge.hs

@@ -1,6 +1,13 @@
 module SpaceAge (Planet(..), ageOn) where
 
-data Planet
+data Planet = Mercury
+            | Venus
+            | Earth
+            | Mars
+            | Jupiter
+            | Saturn
+            | Uranus
+            | Neptune
 
 ageOn :: Planet -> Float -> Float
 ageOn planet seconds = undefined