@@ -10,7 +10,6 @@ module Prelude
10 , Functor, (<$>), void
10 , Functor, (<$>), void
11 , Apply, (<*>)
11 , Apply, (<*>)
12 , Applicative, pure, liftA1
12 , Applicative, pure, liftA1
13− , Alternative, empty, (<|>)
14 , Bind, (>>=)
13 , Bind, (>>=)
15 , Monad, return, liftM1, ap
14 , Monad, return, liftM1, ap
16 , Num, (+), (-), (*), (/), (%)
15 , Num, (+), (-), (*), (/), (%)
@@ -130,12 +129,6 @@ module Prelude
130 liftA1 :: forall f a b. (Applicative f) => (a -> b) -> f a -> f b
129 liftA1 :: forall f a b. (Applicative f) => (a -> b) -> f a -> f b
131 liftA1 f a = pure f <*> a
130 liftA1 f a = pure f <*> a
135− class Alternative f where
136− empty :: forall a. f a
137− (<|>) :: forall a. f a -> f a -> f a
139 infixl 1 >>=
132 infixl 1 >>=
141 class (Apply m) <= Bind m where
134 class (Apply m) <= Bind m where
@@ -344,7 +337,7 @@ module Prelude
346 \}" :: forall a. Ordering -> Ordering -> Ordering -> a -> a -> Ordering
339 \}" :: forall a. Ordering -> Ordering -> Ordering -> a -> a -> Ordering
348 unsafeCompare :: forall a. a -> a -> Ordering
341 unsafeCompare :: forall a. a -> a -> Ordering
349 unsafeCompare = unsafeCompareImpl LT EQ GT
342 unsafeCompare = unsafeCompareImpl LT EQ GT