[project @ 2003-10-09 11:58:39 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / ParsePkgConf.y

diff --git a/ghc/compiler/main/ParsePkgConf.y b/ghc/compiler/main/ParsePkgConf.y
index cfecbca..abbbcea 100644 (file)
--- a/ghc/compiler/main/ParsePkgConf.y
+++ b/ghc/compiler/main/ParsePkgConf.y
@@ -98,8 +98,8 @@ loadPackageConfig conf_filename = do
    buf <- hGetStringBuffer conf_filename
    let loc  = mkSrcLoc (mkFastString conf_filename) 1 0
    case unP parse (mkPState buf loc defaultDynFlags) of
-       PFailed l1 l2 err -> do
-            throwDyn (InstallationError (showPFailed l1 l2 err))
+       PFailed l1 l2 err -> 
+         throwDyn (InstallationError (showSDoc (showPFailed l1 l2 err)))
 
        POk _ pkg_details -> do
            return pkg_details