From: Thomas Schilling <nominolo@googlemail.com>
Date: Sun, 14 Sep 2008 17:27:11 +0000 (+0000)
Subject: Reflect changes of desugarer error reporting in VectMonad.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=635ea064b13b3e172500e134bbc0fb25868dc4ec

Reflect changes of desugarer error reporting in VectMonad.
---

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index b035458..7a25c8d 100644
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -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