Commit 8b51b224 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-12-20 10:36:23 by simonmar]

add predicate on CafInfo: mayHaveCafRefs :: CafInfo -> Bool
parent b1604ac0
......@@ -60,7 +60,7 @@ module IdInfo (
specInfo, setSpecInfo,
-- CAF info
CafInfo(..), cafInfo, setCafInfo, ppCafInfo,
CafInfo(..), cafInfo, setCafInfo, mayHaveCafRefs, ppCafInfo,
-- Constructed Product Result Info
CprInfo(..), cprInfo, setCprInfo, ppCprInfo, noCprInfo,
......@@ -525,6 +525,9 @@ data CafInfo
-- | OneCafRef Id
mayHaveCafRefs MayHaveCafRefs = True
mayHaveCafRefs _ = False
seqCaf c = c `seq` ()
ppCafInfo NoCafRefs = ptext SLIT("__C")
......
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