diff options
| author | malcolm <unknown> | 2004-03-01 17:25:46 +0000 |
|---|---|---|
| committer | malcolm <unknown> | 2004-03-01 17:25:46 +0000 |
| commit | c54909e3d4cf32dcbfeb9d24817e2aeab10dbbf2 (patch) | |
| tree | e3f23d573e2d55bea974826043c568b7ddf42ef3 /libraries/base/Data/Either.hs | |
| parent | d13284eb2ab8563598962f200ef91f055de71ab7 (diff) | |
| download | haskell-c54909e3d4cf32dcbfeb9d24817e2aeab10dbbf2.tar.gz | |
[project @ 2004-03-01 17:25:46 by malcolm]
nhc98: ensure the Either type is identical with Prelude.Either.
Diffstat (limited to 'libraries/base/Data/Either.hs')
| -rw-r--r-- | libraries/base/Data/Either.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libraries/base/Data/Either.hs b/libraries/base/Data/Either.hs index 65b366123d..d6261b6f8d 100644 --- a/libraries/base/Data/Either.hs +++ b/libraries/base/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__ */ |