Merge pull request #5102 from unisonweb/fix/3957

unisonweb · Jun 18, 2024 · dcd37fa · dcd37fa
2 parents 898265e + a052745
commit dcd37fa
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/parser-typechecker/src/Unison/Runtime/Builtin.hs b/parser-typechecker/src/Unison/Runtime/Builtin.hs
@@ -2599,8 +2599,16 @@ declareForeigns = do
 
   declareForeign Tracked "IO.kill.impl.v3" boxToEF0 $ mkForeignIOF killThread
 
+  let mx :: Word64
+      mx = fromIntegral (maxBound :: Int)
+
+      customDelay :: Word64 -> IO ()
+      customDelay n
+        | n < mx = threadDelay (fromIntegral n)
+        | otherwise = threadDelay maxBound >> customDelay (n - mx)
+
   declareForeign Tracked "IO.delay.impl.v3" natToEFUnit $
-    mkForeignIOF threadDelay
+    mkForeignIOF customDelay
 
   declareForeign Tracked "IO.stdHandle" standard'handle
     . mkForeign