mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 06:07:21 +03:00
Fix calling convention wrapper for killThread
This commit is contained in:
parent
cbee37d3a8
commit
9308c8cd63
@ -2307,7 +2307,7 @@ declareForeigns = do
|
||||
$ \(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 $
|
||||
mkForeignIOF threadDelay
|
||||
|
Loading…
Reference in New Issue
Block a user