[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 (file)
--- 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 (file)
--- 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