[project @ 2000-09-07 16:24:14 by simonpj]

Get the worker and wrapper in the right order

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