{-# LINE 1 "libraries/ghc-internal/src/GHC/Internal/Event/KQueue.hsc" #-} {-# LANGUAGE BangPatterns #-} {-# LANGUAGE CApiFFI #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} {-# HLINT ignore "Unused LANGUAGE pragma" #-} module GHC.Internal.Event.KQueue ( new , available ) where import qualified GHC.Internal.Event.Internal as E {-# LINE 20 "libraries/ghc-internal/src/GHC/Internal/Event/KQueue.hsc" #-} import GHC.Internal.Base new :: IO E.Backend new :: IO Backend new = [Char] -> IO Backend forall a. [Char] -> a errorWithoutStackTrace [Char] "KQueue back end not implemented for this platform" available :: Bool available :: Bool available = Bool False {-# INLINE available #-} {-# LINE 310 "libraries/ghc-internal/src/GHC/Internal/Event/KQueue.hsc" #-}