diff options
| author | simonmar <unknown> | 2000-11-16 11:39:37 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-11-16 11:39:37 +0000 |
| commit | 292c077de7dbe98eb44911648f16e243b40db2ac (patch) | |
| tree | bede294fb08cdc88ca0ddba402b3e873602ea4d6 /ghc/compiler/compMan | |
| parent | 8894fd8508fc5ac3b793187c323e4732a73b4a24 (diff) | |
| download | haskell-292c077de7dbe98eb44911648f16e243b40db2ac.tar.gz | |
[project @ 2000-11-16 11:39:36 by simonmar]
Current state of the interactive system; can load packages (in theory).
Diffstat (limited to 'ghc/compiler/compMan')
| -rw-r--r-- | ghc/compiler/compMan/CmLink.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs index 9940ecae46..811601b1f6 100644 --- a/ghc/compiler/compMan/CmLink.lhs +++ b/ghc/compiler/compMan/CmLink.lhs @@ -18,6 +18,7 @@ import Interpreter import CmStaticInfo ( PackageConfigInfo, GhciMode(..) ) import Module ( ModuleName, PackageName ) import Outputable ( SDoc ) +import FiniteMap import Digraph ( SCC(..), flattenSCC ) import Outputable import Panic ( panic ) @@ -145,7 +146,6 @@ link doLink Interactive batch_attempt_linking linkables pls1 = do putStrLn "LINKER(interactive): not yet implemented" return (LinkOK pls1) - ppLinkableSCC :: SCC Linkable -> SDoc ppLinkableSCC = ppr . flattenSCC |