projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-12-12 14:35:08 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
compMan
/
CompManager.lhs
diff --git
a/ghc/compiler/compMan/CompManager.lhs
b/ghc/compiler/compMan/CompManager.lhs
index
553dfab
..
dfd6e03
100644
(file)
--- a/
ghc/compiler/compMan/CompManager.lhs
+++ b/
ghc/compiler/compMan/CompManager.lhs
@@
-36,12
+36,12
@@
import Unique ( Uniquable )
import Digraph ( SCC(..), stronglyConnComp, flattenSCC )
import DriverFlags ( getDynFlags )
import DriverPhases
import Digraph ( SCC(..), stronglyConnComp, flattenSCC )
import DriverFlags ( getDynFlags )
import DriverPhases
-import DriverUtil ( BarfKind(..), splitFilename3 )
+import DriverUtil ( splitFilename3 )
import ErrUtils ( showPass )
import Util
import DriverUtil
import Outputable
import ErrUtils ( showPass )
import Util
import DriverUtil
import Outputable
-import Panic ( panic )
+import Panic
import CmdLineOpts ( DynFlags(..) )
#ifdef GHCI
import CmdLineOpts ( DynFlags(..) )
#ifdef GHCI
@@
-200,7
+200,7
@@
cmLoadModule cmstate1 rootname
showPass dflags "Chasing dependencies"
when (verb >= 1 && ghci_mode == Batch) $
showPass dflags "Chasing dependencies"
when (verb >= 1 && ghci_mode == Batch) $
- hPutStrLn stderr (prog_name ++ ": chasing modules from: " ++ rootname)
+ hPutStrLn stderr (progName ++ ": chasing modules from: " ++ rootname)
(mg2unsorted, a_root_is_Main) <- downsweep [rootname]
let mg2unsorted_names = map name_of_summary mg2unsorted
(mg2unsorted, a_root_is_Main) <- downsweep [rootname]
let mg2unsorted_names = map name_of_summary mg2unsorted
@@
-567,7
+567,7
@@
upsweep_mod ghci_mode dflags oldUI threaded1 summary1 reachable_from_here
when (verb == 1) $
if (ghci_mode == Batch)
when (verb == 1) $
if (ghci_mode == Batch)
- then hPutStr stderr (prog_name ++ ": module "
+ then hPutStr stderr (progName ++ ": module "
++ moduleNameUserString mod_name
++ ": ")
else hPutStr stderr ("Compiling "
++ moduleNameUserString mod_name
++ ": ")
else hPutStr stderr ("Compiling "