import GHC.Base
#endif
+#ifndef __HUGS__
-- ---------------------------------------------------------------------------
-- The Maybe type, and instances
maybe :: b -> (a -> b) -> Maybe a -> b
maybe n _ Nothing = n
maybe _ f (Just x) = f x
+#endif /* __HUGS__ */
isJust :: Maybe a -> Bool
isJust Nothing = False