[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 (file)
--- 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