[GHC] #13525: hWaitForInput with timeout causes program to abort

[GHC]

#13525: hWaitForInput with timeout causes program to abort
--------------------------------------+----------------------------------
           Reporter:  bgamari         |             Owner:  (none)
               Type:  bug             |            Status:  new
           Priority:  high            |         Milestone:  8.2.1
          Component:  Compiler        |           Version:  8.0.2
           Keywords:                  |  Operating System:  Linux
       Architecture:  x86_64 (amd64)  |   Type of failure:  Runtime crash
          Test Case:                  |        Blocked By:
           Blocking:                  |   Related Tickets:
Differential Rev(s):                  |         Wiki Page:
--------------------------------------+----------------------------------
 This program,
 {{{#!hs
 import System.IO
 import System.Timeout

 main = hWaitForInput stdin (5 * 1000)
 }}}
 causes the program to abort (tested on Linux),
 {{{
 $ ghc hi.hs
 [1 of 1] Compiling Main             ( hi.hs, hi.o )
 Linking hi ...
 $ ./hi
 fdReady: msecs != 0, this shouldn't happenAborted
 }}}

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/13525>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler