Commit e022e6a0 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-05-24 14:52:08 by simonmar]

isObjectLinkable: don't return True for an empty linkable
parent c0384c51
......@@ -1006,7 +1006,12 @@ data Linkable = LM {
isObjectLinkable :: Linkable -> Bool
isObjectLinkable l = all isObject (linkableUnlinked l)
isObjectLinkable l = not (null unlinked) && all isObject unlinked
where unlinked = linkableUnlinked l
-- A linkable with no Unlinked's is treated as a BCO. We can
-- generate a linkable with no Unlinked's as a result of
-- compiling a module in HscNothing mode, and this choice
-- happens to work well with checkStability in module GHC.
instance Outputable Linkable where
ppr (LM when_made mod unlinkeds)
Supports Markdown
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