X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=2dcdf78bd3f5049c5ee7ccca2766fec16e2734cc;hb=a08b4f85df5fbebc237bb7798cabe3812500e921;hp=c572afe36c9a0f6aa3b55111179cf5e26ec7dc3c;hpb=cb8f0e566e65c1e54de43174668fa3531970c8f5;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index c572afe..2dcdf78 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -354,7 +354,7 @@ tcIfaceDecl ignore_prags (IfaceId {ifName = occ_name, ifType = iface_type, ifIdI
   = do	{ name <- lookupIfaceTop occ_name
 	; ty <- tcIfaceType iface_type
 	; info <- tcIdInfo ignore_prags name ty info
-	; return (AnId (mkVanillaGlobal name ty info)) }
+	; return (AnId (mkVanillaGlobalWithInfo name ty info)) }
 
 tcIfaceDecl _
 	    (IfaceData {ifName = occ_name,