Commit 635ea064 authored by Thomas Schilling's avatar Thomas Schilling
Browse files

Reflect changes of desugarer error reporting in VectMonad.

parent 73e0b2a1
......@@ -482,7 +482,9 @@ lookupFamInst tycon tys
initV :: PackageId -> HscEnv -> ModGuts -> VectInfo -> VM a -> IO (Maybe (VectInfo, a))
initV pkg hsc_env guts info p
= do
Just r <- initDs hsc_env (mg_module guts)
-- XXX: ignores error messages and warnings, check that this is
-- indeed ok (the use of "Just r" suggests so)
(_,Just r) <- initDs hsc_env (mg_module guts)
(mg_rdr_env guts)
(mg_types guts)
go
......
Supports Markdown
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