Don't complain if there is no ghc rts package registered

gentoo-haskell · Oct 6, 2009 · a23976d · a23976d
1 parent d018cab
commit a23976d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Distribution/Simple/GHC.hs b/Distribution/Simple/GHC.hs
@@ -364,7 +364,8 @@ getInstalledPackages verbosity packagedbs conf = do
       case PackageIndex.lookupPackageName index (PackageName "rts") of
         [(_,[rts])]
            -> PackageIndex.insert (removeMingwIncludeDir rts) index
-        _  -> error "No (or multiple) ghc rts package is registered!!"
+        _  -> index -- No (or multiple) ghc rts package is registered!!
+                    -- Feh, whatever, the ghc testsuite does some crazy stuff.
 
 checkPackageDbStack :: PackageDBStack -> IO ()
 checkPackageDbStack (GlobalPackageDB:rest)