From 497e5afb694911a64151a63b05d4b93d19a26b32 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 5 Jun 2001 10:31:57 +0000
Subject: [PATCH 1/1] [project @ 2001-06-05 10:31:57 by sewardj] Improve
 instance Outputable Linkable (purely cosmetic).

---
 ghc/compiler/compMan/CmTypes.lhs |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/compMan/CmTypes.lhs b/ghc/compiler/compMan/CmTypes.lhs
index 113588d..cc268ce 100644
--- a/ghc/compiler/compMan/CmTypes.lhs
+++ b/ghc/compiler/compMan/CmTypes.lhs
@@ -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
-- 
1.7.10.4