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 | ||