From f6b748017d39ef026a72d834af7304e4f347e3c0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 7 Nov 2000 16:39:15 +0000
Subject: [PATCH] [project @ 2000-11-07 16:39:15 by simonmar] small fixes
---
ghc/compiler/compMan/CmLink.lhs | 4 +---
ghc/compiler/ghci/InterpSyn.lhs | 3 +++
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index 8a4c800a66ff..ba768882ce25 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 3da61c863bd0..a458fde3bdfd 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
--
GitLab