@@ -112,15 +112,12 @@ makeExportDecls defs (Export _ _ e) =
113 uncurryF name argTy Nothing = name
113 uncurryF name argTy Nothing = name
115− addApplyForIO (FIO _) f = T.concat ["function(){ return (",f, ").apply(this,arguments)()}"]
116− addApplyForIO _ f = f
118 makeExport (ExportData _) =
115 makeExport (ExportData _) =
120 makeExport (ExportFun name (FStr exportname) retTy argTy) =
117 makeExport (ExportFun name (FStr exportname) retTy argTy) =
121 [T.concat [ T.pack $ exportname
118 [T.concat [ T.pack $ exportname
123− , addApplyForIO retTy $ uncurryF (jsName name) argTy (getArgList' name defs)
120+ , uncurryF (jsName name) argTy (getArgList' name defs)