X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=261f31989d5f47d8d2ef4193d12c979ee28279f2;hp=d4154b45140a54ffd3d985835fa6dd55e37fe1a3;hb=0299e1a135c5805e09ed8e2271b3b17fc8a04869;hpb=a68338c1a0244559e7b1503cf482492ab3bfba4c

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index d4154b4..261f319 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -51,7 +51,7 @@ deSugar :: DynFlags
 	-> PersistentCompilerState -> HomeSymbolTable
 	-> Module -> PrintUnqualified
         -> TcResults
-	-> IO (ModDetails, (SDoc, SDoc, [CoreBndr]))
+	-> IO (ModDetails, (SDoc, SDoc, [FAST_STRING], [CoreBndr]))
 
 deSugar dflags pcs hst mod_name unqual
         (TcResults {tc_env   = type_env,
@@ -130,7 +130,7 @@ deSugarExpr dflags pcs hst mod_name unqual tc_expr
 
 dsProgram mod_name all_binds rules fo_decls
   = dsMonoBinds auto_scc all_binds []	`thenDs` \ core_prs ->
-    dsForeigns mod_name fo_decls	`thenDs` \ (fe_binders, foreign_binds, h_code, c_code) ->
+    dsForeigns mod_name fo_decls	`thenDs` \ (fe_binders, foreign_binds, h_code, c_code, headers) ->
     let
 	ds_binds      = [Rec (foreign_binds ++ core_prs)]
 	-- Notice that we put the whole lot in a big Rec, even the foreign binds
@@ -142,7 +142,7 @@ dsProgram mod_name all_binds rules fo_decls
 	local_binders = mkVarSet (bindersOfBinds ds_binds)
     in
     mapDs (dsRule local_binders) rules	`thenDs` \ rules' ->
-    returnDs (ds_binds, rules', (h_code, c_code, fe_binders))
+    returnDs (ds_binds, rules', (h_code, c_code, headers, fe_binders))
   where
     auto_scc | opt_SccProfilingOn = TopLevel
 	     | otherwise          = NoSccs