tracks/haskell/exercises/space-age/src/SpaceAge.hs in trackler-2.0.6.6 vs tracks/haskell/exercises/space-age/src/SpaceAge.hs in trackler-2.0.6.7
- old
+ new
@@ -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