From: simonpj <unknown>
Date: Thu, 7 Sep 2000 16:24:14 +0000 (+0000)
Subject: [project @ 2000-09-07 16:24:14 by simonpj]
X-Git-Tag: Approximately_9120_patches~3774
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cefef1567861563d7ca427bf172f675f6bba86f1;p=ghc-hetmet.git

[project @ 2000-09-07 16:24:14 by simonpj]
Get the worker and wrapper in the right order
---

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 64cd16d..6c7ad10 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -158,7 +158,7 @@ dsFImport fn_id ty may_not_gc ext_name cconv
 	wrapper_body = foldr ($) (res_wrapper work_app) arg_wrappers
         wrap_rhs     = mkInlineMe (mkLams (tvs ++ args) wrapper_body)
     in
-    returnDs [NonRec fn_id wrap_rhs, NonRec work_id work_rhs]
+    returnDs [NonRec work_id work_rhs, NonRec fn_id wrap_rhs]
 \end{code}
 
 Foreign labels