threadDelay impl does not prevent underflow

[nfrisby]

Describe the bug
If the argument to threadDelay is "very negative", it will underflow.

To Reproduce
Steps to reproduce the behaviour: I didn't record them. I think pass a negative duration to threadDelay that is between -2X and -1X where X is the minBound of Int.

Expected behaviour
Every non-positive argument should have the same behavior.

[coot]

I don't see anything wrong here (using threadDelay from si-timers):

λ putStrLn $ IOSim.ppTrace $ runSimTrace (threadDelay ((-1) * fromIntegral  @Int maxBound))
0s - Thread []   main - ThreadDelay TimeoutId 0 Time -9223372036854775807s
0s - Thread []   main - ThreadDelayFired TimeoutId 0
0s - Thread []   main - ThreadFinished
0s - Thread []   main - MainReturn () []
λ putStrLn $ IOSim.ppTrace $ runSimTrace (threadDelay ((-1.5) * fromIntegral  @Int maxBound))
0s - Thread []   main - ThreadDelay TimeoutId 0 Time -13835058055282163710.5s
0s - Thread []   main - ThreadDelayFired TimeoutId 0
0s - Thread []   main - ThreadFinished
0s - Thread []   main - MainReturn () []
λ putStrLn $ IOSim.ppTrace $ runSimTrace (threadDelay ((-2) * fromIntegral  @Int maxBound))
0s - Thread []   main - ThreadDelay TimeoutId 0 Time -18446744073709551614s
0s - Thread []   main - ThreadDelayFired TimeoutId 0
0s - Thread []   main - ThreadFinished
0s - Thread []   main - MainReturn () []

[nfrisby]

Does microsecondsAsIntToDiffTime minBound - picosecondsToDiffTime 1 trigger it?

[coot]

Testing it with IOSim was not a good idea, because in IOSim we don't do DiffTime conversions.