{-# LINE 1 "libraries/base/GHC/Event/EPoll.hsc" #-} {-# LANGUAGE Trustworthy #-} {-# LINE 2 "libraries/base/GHC/Event/EPoll.hsc" #-} {-# LANGUAGE GeneralizedNewtypeDeriving , NoImplicitPrelude , BangPatterns #-} ----------------------------------------------------------------------------- -- | -- A binding to the epoll I/O event notification facility -- -- epoll is a variant of poll that can be used either as an edge-triggered or -- a level-triggered interface and scales well to large numbers of watched file -- descriptors. -- -- epoll decouples monitor an fd from the process of registering it. -- ----------------------------------------------------------------------------- module GHC.Event.EPoll ( new , available ) where import qualified GHC.Event.Internal as E {-# LINE 28 "libraries/base/GHC/Event/EPoll.hsc" #-} {-# LINE 29 "libraries/base/GHC/Event/EPoll.hsc" #-} import GHC.Base new :: IO E.Backend new = error "EPoll back end not implemented for this platform" available :: Bool available = False {-# INLINE available #-} {-# LINE 239 "libraries/base/GHC/Event/EPoll.hsc" #-}