saving boilerplate

1 files changed, 1 insertions, 11 deletions

diff --git a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs
index df5de5a..88ee00f 100644
--- a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs
+++ b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs
@@ -182,20 +182,10 @@ check l x = (map length . groupBy ((==) `on` length)) (take x l)
 
 instance Eq a => Eq (Options a) where
   None == None = True
-  None == _ = False
   One a == One a' = a == a'
-  One _ == _ = False
   Two a b == Two a' b' = a == a' && b == b'
-  Two _ _ == _ = False
   Three a b c == Three a' b' c' = a == a' && b == b' && c == c'
-  Three _ _ _ == _ = False
+  _ == _ = False
 
 instance Ord a => Ord (Tree a) where
   compare (Node x xs) (Node x' xs') = compare x x' `mappend` compare xs xs'
-    where
-      -- Siehe Data.Monoid
-      mappend LT _ = LT
-      mappend EQ EQ = EQ
-      mappend EQ LT = LT
-      mappend EQ GT = GT
-      mappend GT _ = GT