[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 (file)
--- 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__ */