From b617c4a2549ae2db550c171599b0244f9459753c Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Mon, 1 Mar 2004 17:25:46 +0000
Subject: [PATCH] [project @ 2004-03-01 17:25:46 by malcolm] nhc98: ensure the
 Either type is identical with Prelude.Either.

---
 Data/Either.hs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Data/Either.hs b/Data/Either.hs
index 65b3661..d6261b6 100644
--- a/Data/Either.hs
+++ b/Data/Either.hs
@@ -20,9 +20,7 @@ module Data.Either (
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
-#endif
 
-#ifndef __HUGS__
 {-|
 
 The 'Either' type represents values with two possibilities: a value of
@@ -41,4 +39,4 @@ data  Either a b  =  Left a | Right b	deriving (Eq, Ord )
 either                  :: (a -> c) -> (b -> c) -> Either a b -> c
 either f _ (Left x)     =  f x
 either _ g (Right y)    =  g y
-#endif  /* __HUGS__ */
+#endif  /* __GLASGOW_HASKELL__ */
-- 
1.7.10.4