Commit 9d1775e3 authored by simonm's avatar simonm
Browse files

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

GHC 3.02 doesn't have Maybe.isNothing; switch to using isJust instead.
parent 0865df19
...@@ -265,8 +265,8 @@ maybe_unpack_field set ty strict ...@@ -265,8 +265,8 @@ maybe_unpack_field set ty strict
maybe_unpack_fields :: UniqSet TyCon -> [(Type,StrictnessMark)] -> Maybe [Type] maybe_unpack_fields :: UniqSet TyCon -> [(Type,StrictnessMark)] -> Maybe [Type]
maybe_unpack_fields set tys maybe_unpack_fields set tys
| any isNothing unpacked_fields = Nothing | all isJust unpacked_fields = Just (concat (catMaybes unpacked_fields))
| otherwise = Just (concat (catMaybes unpacked_fields)) | otherwise = Nothing
where unpacked_fields = map (\(ty,str) -> maybe_unpack_field set ty str) tys where unpacked_fields = map (\(ty,str) -> maybe_unpack_field set ty str) tys
\end{code} \end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment