[project @ 2002-07-16 15:47:25 by ross]

[haskell-directory.git] / Data / Either.hs

diff --git a/Data/Either.hs b/Data/Either.hs
index 9fed2d3..406e7e7 100644 (file)
--- a/Data/Either.hs
+++ b/Data/Either.hs
@@ -22,6 +22,7 @@ module Data.Either (
 import GHC.Base
 #endif
 
+#ifndef __HUGS__
 {-|
 
 The 'Either' type represents values with two possibilities: a value of
@@ -37,3 +38,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__ */