[project @ 1999-01-14 18:12:47 by sof]

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

diff --git a/ghc/lib/std/PrelEither.lhs b/ghc/lib/std/PrelEither.lhs
index 71969aa..ada0a96 100644 (file)
--- a/ghc/lib/std/PrelEither.lhs
+++ b/ghc/lib/std/PrelEither.lhs
@@ -15,6 +15,6 @@ 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
+either f _ (Left x)     =  f x
+either _ g (Right y)    =  g y
 \end{code}