Commit 2c92e046 authored by refold's avatar refold Committed by Duncan Coutts
Browse files

Make a diagnostic more clear.

It can be non-obvious why a package is registered more than once.
parent f212b3eb
...@@ -212,7 +212,10 @@ registerPackage :: Verbosity ...@@ -212,7 +212,10 @@ registerPackage :: Verbosity
-> PackageDBStack -> PackageDBStack
-> IO () -> IO ()
registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs = do registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs = do
setupMessage verbosity "Registering" (packageId pkg) let msg = if inplace
then "In-place registering"
else "Registering"
setupMessage verbosity msg (packageId pkg)
case compilerFlavor (compiler lbi) of case compilerFlavor (compiler lbi) of
GHC -> GHC.registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs GHC -> GHC.registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs
LHC -> LHC.registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs LHC -> LHC.registerPackage verbosity installedPkgInfo pkg lbi inplace packageDbs
......
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