[GHC] #5005: epollCreate: unsupported operation (Function not implemented)

[GHC]

#5005: epollCreate: unsupported operation (Function not implemented)
---------------------------------+------------------------------------------
    Reporter:  nomeata           |       Owner:                    
        Type:  bug               |      Status:  new               
    Priority:  normal            |   Component:  Compiler          
     Version:  7.0.2             |    Keywords:                    
    Testcase:                    |   Blockedby:                    
          Os:  Linux             |    Blocking:                    
Architecture:  Unknown/Multiple  |     Failure:  Compile-time crash
---------------------------------+------------------------------------------

Comment(by tibbe):

 Perhaps we could change this to (untested):

 {{{
 import Foreign.C.Error (eNOSYS, throwErrno, getErrno)

 epollCreate :: IO EPollFd
 epollCreate = do
 #if defined(HAVE_EPOLL_CREATE1)
   fd <- c_epoll_create1 (#const EPOLL_CLOEXEC)
   if fd == -1
     then do
       errno <- getErrno
       if errno == eNOSYS
         then legacyCreate
         else throwErrno
     else return fd
 #else
   legacyCreate
 #endif
   let !epollFd' = EPollFd fd
   return epollFd'
  where
   legacyCreate = do
     fd <- throwErrnoIfMinus1 "epollCreate" $
           c_epoll_create 256 -- argument is ignored
     setCloseOnExec fd
 }}}

 Could someone please test and see if this works?

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/5005#comment:7>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler