`threadDelay (maxBound :: Int)` inciampa in un bug di GHC o cosa?

Question

Voglio che il mio programma si blocchi praticamente sempre e la prima idea che avevo era:

threadDelay (maxBound :: Int) 

Questo ha dato alcuni avvisi spuri:

Prelude> import Control.Concurrent 
Prelude Control.Concurrent> threadDelay 10 
Prelude Control.Concurrent> threadDelay (maxBound :: Int) 
<interactive>: c_poll: invalid argument (Invalid argument) 
<interactive>: ioManagerWakeup: write: Bad file descriptor 

ho fatto di sbagliato o fatto GHC?

Answer 1

Questo sembra essere un known GHC bug, con alcuni progressi compiuti (anche se non tutte le configurazioni sembrano essere già state riparate).

Nel frattempo, è possibile utilizzare forever (threadDelay (2^20)) o simile come soluzione alternativa; 2^20 dovrebbe essere abbastanza lontano da maxBound per evitare questo bug e svegliarsi una volta al secondo per alcuni cicli dovrebbe essere abbastanza facile sul sistema.