X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FMaybes.lhs;h=353c3b5a5c32ecccd80a0d265f7b9ad01e86522a;hb=4cdc197978cf22419b2f4344a19c87c474c8fc1c;hp=3f94d346210705ae6cf1d174b5bf2a2e823782ec;hpb=99073d876ea762016683fb0b22b9d343ff864eb4;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Maybes.lhs b/ghc/compiler/utils/Maybes.lhs
index 3f94d34..353c3b5 100644
--- a/ghc/compiler/utils/Maybes.lhs
+++ b/ghc/compiler/utils/Maybes.lhs
@@ -5,7 +5,6 @@
 
 \begin{code}
 module Maybes (
-	Maybe2(..), Maybe3(..),
 	MaybeErr(..),
 
 	orElse, 
@@ -29,19 +28,6 @@ import Maybe( catMaybes, mapMaybe )
 infixr 4 `orElse`
 \end{code}
 
-
-%************************************************************************
-%*									*
-\subsection[Maybe2,3 types]{The @Maybe2@ and @Maybe3@ types}
-%*									*
-%************************************************************************
-
-\begin{code}
-data Maybe2 a b   = Just2 a b   | Nothing2  deriving (Eq,Show)
-data Maybe3 a b c = Just3 a b c | Nothing3  deriving (Eq,Show)
-\end{code}
-
-
 %************************************************************************
 %*									*
 \subsection[Maybe type]{The @Maybe@ type}