dist-install/build/GHC/Event/EPoll.hs

    {-# 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" #-}