WIP

2024-09-11 08:55:32 +03:00 · 2021-01-25 13:56:38 +00:00 · 2021-01-25 13:56:38 +00:00 · 9de537ad97
commit 9de537ad97
parent 0f9d780115
1 changed files with 2 additions and 2 deletions
--- a/asterius/src/Asterius/Foreign/DsForeign.hs
+++ b/asterius/src/Asterius/Foreign/DsForeign.hs
@ -117,10 +117,10 @@ asteriusDsFCall fn_id co fcall = do
            ( StaticTarget
                (SourceText "__asterius_jsffi_imp_call")
                "__asterius_jsffi_imp_call"
-                Nothing
+                (Just rtsUnitId)
                True
            )
-            CCallConv
+            (if isSafeForeignCall fcall then PrimCallConv else CCallConv)
            PlayRisky
  let (tv_bndrs, rho) = tcSplitForAllVarBndrs ty
      (arg_tys, io_res_ty) = tcSplitFunTys rho