Fix calling convention wrapper for killThread

This commit is contained in:
Fabio Labella 2023-02-13 16:29:19 +00:00
parent cbee37d3a8
commit 9308c8cd63

View File

@ -2307,7 +2307,7 @@ declareForeigns = do
$ \(hs, n) -> $ \(hs, n) ->
maybe mempty Bytes.fromArray <$> SYS.recv hs n maybe mempty Bytes.fromArray <$> SYS.recv hs n
declareForeign Tracked "IO.kill.impl.v3" boxTo0 $ mkForeignIOF killThread declareForeign Tracked "IO.kill.impl.v3" boxToEF0 $ mkForeignIOF killThread
declareForeign Tracked "IO.delay.impl.v3" natToEFUnit $ declareForeign Tracked "IO.delay.impl.v3" natToEFUnit $
mkForeignIOF threadDelay mkForeignIOF threadDelay