[project @ 2002-10-09 17:08:18 by malcolm]

[ghc-base.git] / Data / Maybe.hs

diff --git a/Data/Maybe.hs b/Data/Maybe.hs
index 1a1467f..195daab 100644 (file)
--- a/Data/Maybe.hs
+++ b/Data/Maybe.hs
@@ -35,6 +35,21 @@ import {-# SOURCE #-} GHC.Err ( error )
 import GHC.Base
 #endif
 
+#ifdef __NHC__
+import Prelude
+import Prelude (Maybe(..), maybe)
+import Maybe
+    ( isJust
+    , isNothing
+    , fromJust
+    , fromMaybe
+    , listToMaybe
+    , maybeToList 
+    , catMaybes
+    , mapMaybe
+    )
+#else
+
 #ifndef __HUGS__
 -- ---------------------------------------------------------------------------
 -- The Maybe type, and instances
@@ -108,3 +123,4 @@ mapMaybe f (x:xs) =
   Nothing -> rs
   Just r  -> r:rs
 
+#endif /* else not __NHC__ */