@@ -468,11 +468,9 @@ module Either where
468 either f _ (Left a) = f a
468 either f _ (Left a) = f a
469 either _ g (Right b) = g b
469 either _ g (Right b) = g b
472 instance Prelude.Functor (Either a) where
471 instance Prelude.Functor (Either a) where
473 (<$>) _ (Left x) = Left x
472 (<$>) _ (Left x) = Left x
474 (<$>) f (Right y) = Right (f y)
473 (<$>) f (Right y) = Right (f y)
477 instance Prelude.Applicative (Either e) where
475 instance Prelude.Applicative (Either e) where
478 pure = Right
476 pure = Right