From: David Waern <davve@dtek.chalmers.se>
Date: Sat, 14 Jul 2007 12:47:43 +0000 (+0000)
Subject: FIX panic from the GHC API
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bf2f000a552e025ec156010d52aee282bdfcf7a4

FIX panic from the GHC API
In hscFileCheck, initialize md_vect_info with noVectInfo instead of
a panic value, since this is a strict field.
---

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index d68058d..092d163 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -694,8 +694,7 @@ hscFileCheck hsc_env mod_summary compileToCore = do {
 				md_rules     = [panic "no rules"],
 				   -- Rules are CoreRules, not the
 				   -- RuleDecls we get out of the typechecker
-                                md_vect_info = 
-                                  panic "HscMain.hscFileCheck: no VectInfo"
+                                md_vect_info = noVectInfo
                                    -- VectInfo is added by the Core 
                                    -- vectorisation pass
                           }