[project @ 1999-04-07 09:23:51 by simonm]

GHC 3.02 doesn't have Maybe.isNothing; switch to using isJust instead.

diff --git a/ghc/compiler/basicTypes/DataCon.lhs b/ghc/compiler/basicTypes/DataCon.lhs
index ffa98ea..d8c0935 100644 (file)
--- a/ghc/compiler/basicTypes/DataCon.lhs
+++ b/ghc/compiler/basicTypes/DataCon.lhs
@@ -265,8 +265,8 @@ maybe_unpack_field set ty strict
 
 maybe_unpack_fields :: UniqSet TyCon -> [(Type,StrictnessMark)] -> Maybe [Type]
 maybe_unpack_fields set tys
-  | any isNothing unpacked_fields = Nothing
-  | otherwise = Just (concat (catMaybes unpacked_fields))
+  | all isJust unpacked_fields = Just (concat (catMaybes unpacked_fields))
+  | otherwise = Nothing
   where unpacked_fields = map (\(ty,str) -> maybe_unpack_field set ty str) tys
 \end{code}