Enumerate imports and remove dead code.

[ghc-hetmet.git] / ghc / compiler / main / GetImports.hs

diff --git a/ghc/compiler/main/GetImports.hs b/ghc/compiler/main/GetImports.hs
index 77ca4b5..6ccb8be 100644 (file)
--- a/ghc/compiler/main/GetImports.hs
+++ b/ghc/compiler/main/GetImports.hs
@@ -58,8 +58,7 @@ getImports dflags buf filename = do
              in
              return (source_imps, ordinary_imps, mod_name)
   
-parseError span err = throwDyn (ProgramError err_doc)
-  where err_doc = render (pprBagOfErrors (unitBag (mkPlainErrMsg span err)))
+parseError span err = throwDyn $ mkPlainErrMsg span err
 
 isSourceIdecl (ImportDecl _ s _ _ _) = s