CDE

Task/Constrained-genericity/Haskell/constrained-genericity-1.hs

@@ -0,0 +1,2 @@
+class Eatable a where
+  eat :: a -> String

Task/Constrained-genericity/Haskell/constrained-genericity-2.hs

@@ -0,0 +1 @@
+data (Eatable a) => FoodBox a = F [a]

Task/Constrained-genericity/Haskell/constrained-genericity-3.hs

@@ -0,0 +1,3 @@
+data Banana = Foo -- the implementation doesn't really matter in this case
+instance Eatable Banana where
+  eat _ = "I'm eating a banana"

Task/Constrained-genericity/Haskell/constrained-genericity-4.hs

@@ -0,0 +1,2 @@
+instance Eatable Double where
+  eat d = "I'm eating " ++ show d

Task/Constrained-genericity/Haskell/constrained-genericity-5.hs

@@ -0,0 +1,2 @@
+class Food a where
+  munch :: a -> String

Task/Constrained-genericity/Haskell/constrained-genericity-6.hs

@@ -0,0 +1,2 @@
+instance (Food a) => Eatable a where
+  eat x = munch x