From cefef1567861563d7ca427bf172f675f6bba86f1 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 7 Sep 2000 16:24:14 +0000
Subject: [PATCH] [project @ 2000-09-07 16:24:14 by simonpj] Get the worker
 and wrapper in the right order

---
 ghc/compiler/deSugar/DsForeign.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 
-- 
1.7.10.4