Commit 497e5afb authored by sewardj's avatar sewardj
Browse files

[project @ 2001-06-05 10:31:57 by sewardj]

Improve instance Outputable Linkable (purely cosmetic).
parent 8e63a8bd
......@@ -13,7 +13,6 @@ module CmTypes (
import Interpreter
import HscTypes
import Module
--import CmStaticInfo
import Outputable
import Time ( ClockTime )
......@@ -30,7 +29,7 @@ instance Outputable Unlinked where
ppr (DotO path) = text "DotO" <+> text path
ppr (DotA path) = text "DotA" <+> text path
ppr (DotDLL path) = text "DotDLL" <+> text path
ppr (BCOs bcos _) = text "BCOs" <+> vcat (map ppr bcos)
ppr (BCOs bcos _) = text "BCOs" <+> ppr bcos
isObject (DotO _) = True
isObject (DotA _) = True
......@@ -55,8 +54,8 @@ isObjectLinkable l = all isObject (linkableUnlinked l)
instance Outputable Linkable where
ppr (LM when_made mod_nm unlinkeds)
= text "LinkableM" <+> parens (text (show when_made)) <+> ppr mod_nm
<+> ppr unlinkeds
= (text "LinkableM" <+> parens (text (show when_made)) <+> ppr mod_nm)
$$ nest 3 (ppr unlinkeds)
-- The ModuleLocation contains both the original source filename and the
-- filename of the cleaned-up source file after all preprocessing has been
......
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