diff --git a/exercises/typeclasses/Typeclasses4.hs b/exercises/typeclasses/Typeclasses4.hs index adc432f..9c43ab2 100644 --- a/exercises/typeclasses/Typeclasses4.hs +++ b/exercises/typeclasses/Typeclasses4.hs @@ -30,7 +30,7 @@ data Point3 = Point3 Int Int Int instance Mathable Point3 where getSum (Point3 a b c) = a + b + c - getSum (Point3 a b c) = a * b * c + getProduct (Point3 a b c) = a * b * c getMin (Point3 a b c) = min a (min b c) getMax (Point3 a b c) = max a (max b c)