diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-11-04 18:46:43 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-11-04 18:46:43 +0100 |
commit | b134b72a44119fa85ec44bcdc5e7649f354ec4bd (patch) | |
tree | ca2e0640e1487b721b232ec83924172de7f602c1 /ws2015 | |
parent | 7307f3a00ef50b150ad1dc319246ce4513688129 (diff) | |
download | uni-b134b72a44119fa85ec44bcdc5e7649f354ec4bd.tar uni-b134b72a44119fa85ec44bcdc5e7649f354ec4bd.tar.gz uni-b134b72a44119fa85ec44bcdc5e7649f354ec4bd.tar.bz2 uni-b134b72a44119fa85ec44bcdc5e7649f354ec4bd.tar.xz uni-b134b72a44119fa85ec44bcdc5e7649f354ec4bd.zip |
mappend not imported
Diffstat (limited to 'ws2015')
-rw-r--r-- | ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs index 51ab9e5..935f9eb 100644 --- a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs +++ b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs | |||
@@ -184,3 +184,10 @@ instance Eq a => Eq (Options a) where | |||
184 | 184 | ||
185 | instance Ord a => Ord (Tree a) where | 185 | instance Ord a => Ord (Tree a) where |
186 | compare (Node x xs) (Node x' xs') = compare x x' `mappend` compare xs xs' | 186 | compare (Node x xs) (Node x' xs') = compare x x' `mappend` compare xs xs' |
187 | where | ||
188 | -- Siehe Data.Monoid | ||
189 | mappend LT _ = LT | ||
190 | mappend EQ EQ = EQ | ||
191 | mappend EQ LT = LT | ||
192 | mappend EQ GT = GT | ||
193 | mappend GT _ = GT | ||