Commit a004ae5a authored by simonmar's avatar simonmar
Browse files

[project @ 2005-10-14 11:48:56 by simonmar]

Fix a couple of problems with the "unknown package" error message
parent 36436bc6
......@@ -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
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)
......@@ -662,7 +662,7 @@ add_package pkg_db ps 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
......
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