X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=a90d069d1c4cd0ca83c72abcbc04d333ef8e0afc;hp=2e3c8ed85311c7aca01c10ae31226064a270e721;hb=e5f78a4a5309b598d5195aa49a0bf7a206942cea;hpb=13cd965d80be5c25dc54534a833df39ab7aa7a12

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 2e3c8ed..a90d069 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -40,6 +40,7 @@ import Var              ( TyVar )
 import qualified Var
 import Name
 import NameEnv
+import NameSet
 import OccName
 import Module
 import UniqFM
@@ -198,6 +199,10 @@ typecheckIface iface
 	; fam_insts <- mapM tcIfaceFamInst (mi_fam_insts iface)
 	; rules     <- tcIfaceRules ignore_prags (mi_rules iface)
 
+                -- Vectorisation information
+        ; let vect_info = VectInfo 
+                           (mkNameSet (ifaceVectInfoCCVar (mi_vect_info iface)))
+
 		-- Exports
 	; exports <- ifaceExportNames (mi_exports iface)
 
@@ -208,6 +213,7 @@ typecheckIface iface
 			      , md_insts     = insts
 			      , md_fam_insts = fam_insts
 			      , md_rules     = rules
+                              , md_vect_info = vect_info
 			      , md_exports   = exports
                               , md_modBreaks = emptyModBreaks
 			      }