From: simonmar <unknown>
Date: Tue, 7 Nov 2000 16:39:15 +0000 (+0000)
Subject: [project @ 2000-11-07 16:39:15 by simonmar]
X-Git-Tag: Approximately_9120_patches~3405
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f6b748017d39ef026a72d834af7304e4f347e3c0;p=ghc-hetmet.git

[project @ 2000-11-07 16:39:15 by simonmar]
small fixes
---

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index 8a4c800..ba76888 100644
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -15,8 +15,6 @@ where
 import Interpreter
 import CmStaticInfo	( PackageConfigInfo )
 import Module		( ModuleName, PackageName )
-import InterpSyn	( UnlinkedIBind, HValue, binder )
-import Module		( Module )
 import Outputable	( SDoc )
 import FiniteMap	( emptyFM )
 import Digraph		( SCC(..), flattenSCC )
@@ -58,7 +56,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 (Trees binds _) = text "Trees" <+> ppr (map binder binds)
+   ppr (Trees binds _) = text "Trees" <+> ppr binds
 
 
 isObject (DotO _) = True
diff --git a/ghc/compiler/ghci/InterpSyn.lhs b/ghc/compiler/ghci/InterpSyn.lhs
index 3da61c8..a458fde 100644
--- a/ghc/compiler/ghci/InterpSyn.lhs
+++ b/ghc/compiler/ghci/InterpSyn.lhs
@@ -251,6 +251,9 @@ instance Outputable HValue where
    ppr x = text (show (A# (unsafeCoerce# x :: Addr#)))
         -- ptext SLIT("<O>")  -- unidentified lurking object
 
+instance (Outputable var, Outputable con) => Outputable (IBind con var) where
+  ppr ibind = pprIBind ibind
+
 pprIBind :: (Outputable var, Outputable con) => IBind con var -> SDoc
 pprIBind (IBind v e) = ppr v <+> char '=' <+> pprIExpr e