mirror of
https://github.com/tweag/asterius.git
synced 2024-09-11 08:55:32 +03:00
WIP
This commit is contained in:
parent
0f9d780115
commit
9de537ad97
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user