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) ->
|
$ \(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
|
||||||
|
Loading…
Reference in New Issue
Block a user