Implememt -fdefer-type-errors (Trac #5624)
[ghc.git] / compiler / main / Packages.lhs
index d7dc6bc..d1fbe2f 100644 (file)
@@ -59,7 +59,7 @@ import Distribution.InstalledPackageInfo
 import Distribution.InstalledPackageInfo.Binary
 import Distribution.Package hiding (PackageId,depends)
 import FastString
-import ErrUtils         ( debugTraceMsg, putMsg, Message )
+import ErrUtils         ( debugTraceMsg, putMsg, MsgDoc )
 import Exception
 
 import System.Directory
@@ -986,7 +986,7 @@ closeDeps :: PackageConfigMap
           -> IO [PackageId]
 closeDeps pkg_map ipid_map ps = throwErr (closeDepsErr pkg_map ipid_map ps)
 
-throwErr :: MaybeErr Message a -> IO a
+throwErr :: MaybeErr MsgDoc a -> IO a
 throwErr m = case m of
                Failed e    -> ghcError (CmdLineError (showSDoc e))
                Succeeded r -> return r
@@ -994,7 +994,7 @@ throwErr m = case m of
 closeDepsErr :: PackageConfigMap
              -> Map InstalledPackageId PackageId
              -> [(PackageId,Maybe PackageId)]
-             -> MaybeErr Message [PackageId]
+             -> MaybeErr MsgDoc [PackageId]
 closeDepsErr pkg_map ipid_map ps = foldM (add_package pkg_map ipid_map) [] ps
 
 -- internal helper
@@ -1002,7 +1002,7 @@ add_package :: PackageConfigMap
             -> Map InstalledPackageId PackageId
             -> [PackageId]
             -> (PackageId,Maybe PackageId)
-            -> MaybeErr Message [PackageId]
+            -> MaybeErr MsgDoc [PackageId]
 add_package pkg_db ipid_map ps (p, mb_parent)
   | p `elem` ps = return ps    -- Check if we've already added this package
   | otherwise =