X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.lhs;h=5eea51b73bb5400ae3d53ce3743b96b9792a11f4;hb=de896403dfe48bc999e5501eb8b517624dd2e5d4;hp=c0b20666b5d6109e8118716f81e5ad2d8f7a1e84;hpb=54e6a4e1fc2313e5462973d8988b714efd6ab9e5;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index c0b2066..5eea51b 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -152,7 +152,7 @@ doIt (core_cmds, stg_cmds)
 
 	--------------------------  Desugaring ----------------
     _scc_     "DeSugar"
-    deSugar this_mod ds_uniqs tc_results	>>= \ (desugared, rules, h_code, c_code) ->
+    deSugar this_mod ds_uniqs tc_results	>>= \ (desugared, rules, h_code, c_code, fe_binders) ->
 
 
 	--------------------------  Main Core-language transformations ----------------
@@ -200,6 +200,7 @@ doIt (core_cmds, stg_cmds)
     _scc_     "CodeGen"
     codeGen this_mod imported_modules
 	    cost_centre_info
+	    fe_binders
 	    local_tycons local_classes 
 	    stg_binds2				>>= \ abstractC ->