@@ -10,7 +10,6 @@ module Prelude
1010 , Functor, (<$>), void
1111 , Apply, (<*>)
1212 , Applicative, pure, liftA1
13− , Alternative, empty, (<|>)
1413 , Bind, (>>=)
1514 , Monad, return, liftM1, ap
1615 , Num, (+), (-), (*), (/), (%)
@@ -130,12 +129,6 @@ module Prelude
130129 liftA1 :: forall f a b. (Applicative f) => (a -> b) -> f a -> f b
131130 liftA1 f a = pure f <*> a
132131
133− infixl 3 <|>
134−
135− class Alternative f where
136− empty :: forall a. f a
137− (<|>) :: forall a. f a -> f a -> f a
138−
139132 infixl 1 >>=
140133
141134 class (Apply m) <= Bind m where
@@ -344,7 +337,7 @@ module Prelude
344337 \ };\
345338 \ };\
346339 \}" :: forall a. Ordering -> Ordering -> Ordering -> a -> a -> Ordering
347−
340+
348341 unsafeCompare :: forall a. a -> a -> Ordering
349342 unsafeCompare = unsafeCompareImpl LT EQ GT
350343