From 9d1775e3993cbca161c54116332ed56ce927fd51 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 7 Apr 1999 09:23:51 +0000
Subject: [PATCH] [project @ 1999-04-07 09:23:51 by simonm] GHC 3.02 doesn't
have Maybe.isNothing; switch to using isJust instead.
---
ghc/compiler/basicTypes/DataCon.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/basicTypes/DataCon.lhs b/ghc/compiler/basicTypes/DataCon.lhs
index ffa98ea62126..d8c0935cb57c 100644
--- 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}
--
GitLab