Commit f6b74801 authored by simonmar's avatar simonmar
Browse files

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

small fixes
parent 32be5922
......@@ -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
......
......@@ -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
......
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