From: malcolm <unknown>
Date: Mon, 1 Mar 2004 17:25:46 +0000 (+0000)
Subject: [project @ 2004-03-01 17:25:46 by malcolm]
X-Git-Tag: nhc98-1-18-release~357
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b617c4a2549ae2db550c171599b0244f9459753c;p=ghc-base.git

[project @ 2004-03-01 17:25:46 by malcolm]
nhc98: ensure the Either type is identical with Prelude.Either.
---

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__ */