projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-10-14 11:48:56 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
Packages.lhs
diff --git
a/ghc/compiler/main/Packages.lhs
b/ghc/compiler/main/Packages.lhs
index
29e4dff
..
21c5596
100644
(file)
--- a/
ghc/compiler/main/Packages.lhs
+++ b/
ghc/compiler/main/Packages.lhs
@@
-654,7
+654,7
@@
add_package pkg_db ps p
| p `elem` ps = return ps -- Check if we've already added this package
| otherwise =
case lookupPackage pkg_db p of
| p `elem` ps = return ps -- Check if we've already added this package
| otherwise =
case lookupPackage pkg_db p of
- Nothing -> Failed (missingPackageErr (packageIdString p))
+ Nothing -> Failed (missingPackageMsg (packageIdString p))
Just pkg -> do
-- Add the package's dependents also
let deps = map mkPackageId (depends pkg)
Just pkg -> do
-- Add the package's dependents also
let deps = map mkPackageId (depends pkg)
@@
-662,7
+662,7
@@
add_package pkg_db ps p
return (p : ps')
missingPackageErr p = throwDyn (CmdLineError (showSDoc (missingPackageMsg p)))
return (p : ps')
missingPackageErr p = throwDyn (CmdLineError (showSDoc (missingPackageMsg p)))
-missingPackageMsg p = ptext SLIT("unknown package:") <> text p
+missingPackageMsg p = ptext SLIT("unknown package:") <+> text p
-- -----------------------------------------------------------------------------
-- The home module set
-- -----------------------------------------------------------------------------
-- The home module set