[project @ 1998-02-02 17:27:26 by simonm]

[ghc-hetmet.git] / ghc / lib / ghc / PrelEither.lhs

diff --git a/ghc/lib/ghc/PrelEither.lhs b/ghc/lib/ghc/PrelEither.lhs
deleted file mode 100644 (file)
index 71969aa..0000000
--- a/ghc/lib/ghc/PrelEither.lhs
+++ /dev/null
@@ -1,20 +0,0 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1997
-%
-\section[PrelEither]{Module @PrelEither@}
-
-The @Either@ Type.
-
-\begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
-
-module PrelEither where
-
-import PrelBase
-
-data  Either a b  =  Left a | Right b  deriving (Eq, Ord, Show {- Read -} )
-
-either                  :: (a -> c) -> (b -> c) -> Either a b -> c
-either f g (Left x)     =  f x
-either f g (Right y)    =  g y
-\end{code}