{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gst.Structs.Poll
(
Poll(..) ,
#if defined(ENABLE_OVERLOADING)
ResolvePollMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PollAddFdMethodInfo ,
#endif
pollAddFd ,
#if defined(ENABLE_OVERLOADING)
PollFdCanReadMethodInfo ,
#endif
pollFdCanRead ,
#if defined(ENABLE_OVERLOADING)
PollFdCanWriteMethodInfo ,
#endif
pollFdCanWrite ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlPriMethodInfo ,
#endif
pollFdCtlPri ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlReadMethodInfo ,
#endif
pollFdCtlRead ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlWriteMethodInfo ,
#endif
pollFdCtlWrite ,
#if defined(ENABLE_OVERLOADING)
PollFdHasClosedMethodInfo ,
#endif
pollFdHasClosed ,
#if defined(ENABLE_OVERLOADING)
PollFdHasErrorMethodInfo ,
#endif
pollFdHasError ,
#if defined(ENABLE_OVERLOADING)
PollFdHasPriMethodInfo ,
#endif
pollFdHasPri ,
#if defined(ENABLE_OVERLOADING)
PollFdIgnoredMethodInfo ,
#endif
pollFdIgnored ,
#if defined(ENABLE_OVERLOADING)
PollGetReadGpollfdMethodInfo ,
#endif
pollGetReadGpollfd ,
#if defined(ENABLE_OVERLOADING)
PollReadControlMethodInfo ,
#endif
pollReadControl ,
#if defined(ENABLE_OVERLOADING)
PollRemoveFdMethodInfo ,
#endif
pollRemoveFd ,
#if defined(ENABLE_OVERLOADING)
PollRestartMethodInfo ,
#endif
pollRestart ,
#if defined(ENABLE_OVERLOADING)
PollSetControllableMethodInfo ,
#endif
pollSetControllable ,
#if defined(ENABLE_OVERLOADING)
PollSetFlushingMethodInfo ,
#endif
pollSetFlushing ,
#if defined(ENABLE_OVERLOADING)
PollWaitMethodInfo ,
#endif
pollWait ,
#if defined(ENABLE_OVERLOADING)
PollWriteControlMethodInfo ,
#endif
pollWriteControl ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Structs.PollFD as GLib.PollFD
import {-# SOURCE #-} qualified GI.Gst.Structs.PollFD as Gst.PollFD
newtype Poll = Poll (SP.ManagedPtr Poll)
deriving (Poll -> Poll -> Bool
(Poll -> Poll -> Bool) -> (Poll -> Poll -> Bool) -> Eq Poll
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Poll -> Poll -> Bool
$c/= :: Poll -> Poll -> Bool
== :: Poll -> Poll -> Bool
$c== :: Poll -> Poll -> Bool
Eq)
instance SP.ManagedPtrNewtype Poll where
toManagedPtr :: Poll -> ManagedPtr Poll
toManagedPtr (Poll ManagedPtr Poll
p) = ManagedPtr Poll
p
instance BoxedPtr Poll where
boxedPtrCopy :: Poll -> IO Poll
boxedPtrCopy = Poll -> IO Poll
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: Poll -> IO ()
boxedPtrFree = \Poll
_x -> () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Poll
type instance O.AttributeList Poll = PollAttributeList
type PollAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_poll_add_fd" gst_poll_add_fd ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollAddFd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollAddFd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollAddFd Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_add_fd Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollAddFdMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollAddFdMethodInfo Poll signature where
overloadedMethod = pollAddFd
instance O.OverloadedMethodInfo PollAddFdMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollAddFd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollAddFd"
}
#endif
foreign import ccall "gst_poll_fd_can_read" gst_poll_fd_can_read ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdCanRead ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdCanRead :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollFdCanRead Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_can_read Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCanReadMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollFdCanReadMethodInfo Poll signature where
overloadedMethod = pollFdCanRead
instance O.OverloadedMethodInfo PollFdCanReadMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdCanRead",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdCanRead"
}
#endif
foreign import ccall "gst_poll_fd_can_write" gst_poll_fd_can_write ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdCanWrite ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdCanWrite :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollFdCanWrite Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_can_write Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCanWriteMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollFdCanWriteMethodInfo Poll signature where
overloadedMethod = pollFdCanWrite
instance O.OverloadedMethodInfo PollFdCanWriteMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdCanWrite",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdCanWrite"
}
#endif
foreign import ccall "gst_poll_fd_ctl_pri" gst_poll_fd_ctl_pri ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlPri ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlPri :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> Bool -> m Bool
pollFdCtlPri Poll
set PollFD
fd Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_pri Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlPriMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.OverloadedMethod PollFdCtlPriMethodInfo Poll signature where
overloadedMethod = pollFdCtlPri
instance O.OverloadedMethodInfo PollFdCtlPriMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdCtlPri",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdCtlPri"
}
#endif
foreign import ccall "gst_poll_fd_ctl_read" gst_poll_fd_ctl_read ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlRead ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlRead :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> Bool -> m Bool
pollFdCtlRead Poll
set PollFD
fd Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_read Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlReadMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.OverloadedMethod PollFdCtlReadMethodInfo Poll signature where
overloadedMethod = pollFdCtlRead
instance O.OverloadedMethodInfo PollFdCtlReadMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdCtlRead",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdCtlRead"
}
#endif
foreign import ccall "gst_poll_fd_ctl_write" gst_poll_fd_ctl_write ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlWrite ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlWrite :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> Bool -> m Bool
pollFdCtlWrite Poll
set PollFD
fd Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_write Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlWriteMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.OverloadedMethod PollFdCtlWriteMethodInfo Poll signature where
overloadedMethod = pollFdCtlWrite
instance O.OverloadedMethodInfo PollFdCtlWriteMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdCtlWrite",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdCtlWrite"
}
#endif
foreign import ccall "gst_poll_fd_has_closed" gst_poll_fd_has_closed ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasClosed ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasClosed :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollFdHasClosed Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_closed Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasClosedMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollFdHasClosedMethodInfo Poll signature where
overloadedMethod = pollFdHasClosed
instance O.OverloadedMethodInfo PollFdHasClosedMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdHasClosed",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdHasClosed"
}
#endif
foreign import ccall "gst_poll_fd_has_error" gst_poll_fd_has_error ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasError ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasError :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollFdHasError Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_error Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasErrorMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollFdHasErrorMethodInfo Poll signature where
overloadedMethod = pollFdHasError
instance O.OverloadedMethodInfo PollFdHasErrorMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdHasError",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdHasError"
}
#endif
foreign import ccall "gst_poll_fd_has_pri" gst_poll_fd_has_pri ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasPri ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasPri :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollFdHasPri Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_pri Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasPriMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollFdHasPriMethodInfo Poll signature where
overloadedMethod = pollFdHasPri
instance O.OverloadedMethodInfo PollFdHasPriMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdHasPri",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdHasPri"
}
#endif
foreign import ccall "gst_poll_fd_ignored" gst_poll_fd_ignored ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO ()
pollFdIgnored ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m ()
pollFdIgnored :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m ()
pollFdIgnored Poll
set PollFD
fd = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
Ptr Poll -> Ptr PollFD -> IO ()
gst_poll_fd_ignored Ptr Poll
set' Ptr PollFD
fd'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollFdIgnoredMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m ()), MonadIO m) => O.OverloadedMethod PollFdIgnoredMethodInfo Poll signature where
overloadedMethod = pollFdIgnored
instance O.OverloadedMethodInfo PollFdIgnoredMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollFdIgnored",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollFdIgnored"
}
#endif
foreign import ccall "gst_poll_get_read_gpollfd" gst_poll_get_read_gpollfd ::
Ptr Poll ->
Ptr GLib.PollFD.PollFD ->
IO ()
pollGetReadGpollfd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> GLib.PollFD.PollFD
-> m ()
pollGetReadGpollfd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m ()
pollGetReadGpollfd Poll
set PollFD
fd = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
Ptr Poll -> Ptr PollFD -> IO ()
gst_poll_get_read_gpollfd Ptr Poll
set' Ptr PollFD
fd'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollGetReadGpollfdMethodInfo
instance (signature ~ (GLib.PollFD.PollFD -> m ()), MonadIO m) => O.OverloadedMethod PollGetReadGpollfdMethodInfo Poll signature where
overloadedMethod = pollGetReadGpollfd
instance O.OverloadedMethodInfo PollGetReadGpollfdMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollGetReadGpollfd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollGetReadGpollfd"
}
#endif
foreign import ccall "gst_poll_read_control" gst_poll_read_control ::
Ptr Poll ->
IO CInt
pollReadControl ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m Bool
pollReadControl :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Poll -> m Bool
pollReadControl Poll
set = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
CInt
result <- Ptr Poll -> IO CInt
gst_poll_read_control Ptr Poll
set'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollReadControlMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod PollReadControlMethodInfo Poll signature where
overloadedMethod = pollReadControl
instance O.OverloadedMethodInfo PollReadControlMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollReadControl",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollReadControl"
}
#endif
foreign import ccall "gst_poll_remove_fd" gst_poll_remove_fd ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollRemoveFd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollRemoveFd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> PollFD -> m Bool
pollRemoveFd Poll
set PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_remove_fd Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollRemoveFdMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.OverloadedMethod PollRemoveFdMethodInfo Poll signature where
overloadedMethod = pollRemoveFd
instance O.OverloadedMethodInfo PollRemoveFdMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollRemoveFd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollRemoveFd"
}
#endif
foreign import ccall "gst_poll_restart" gst_poll_restart ::
Ptr Poll ->
IO ()
pollRestart ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m ()
pollRestart :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Poll -> m ()
pollRestart Poll
set = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr Poll -> IO ()
gst_poll_restart Ptr Poll
set'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollRestartMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod PollRestartMethodInfo Poll signature where
overloadedMethod = pollRestart
instance O.OverloadedMethodInfo PollRestartMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollRestart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollRestart"
}
#endif
foreign import ccall "gst_poll_set_controllable" gst_poll_set_controllable ::
Ptr Poll ->
CInt ->
IO CInt
pollSetControllable ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Bool
-> m Bool
pollSetControllable :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> Bool -> m Bool
pollSetControllable Poll
set Bool
controllable = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
let controllable' :: CInt
controllable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
controllable
CInt
result <- Ptr Poll -> CInt -> IO CInt
gst_poll_set_controllable Ptr Poll
set' CInt
controllable'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollSetControllableMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m) => O.OverloadedMethod PollSetControllableMethodInfo Poll signature where
overloadedMethod = pollSetControllable
instance O.OverloadedMethodInfo PollSetControllableMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollSetControllable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollSetControllable"
}
#endif
foreign import ccall "gst_poll_set_flushing" gst_poll_set_flushing ::
Ptr Poll ->
CInt ->
IO ()
pollSetFlushing ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Bool
-> m ()
pollSetFlushing :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> Bool -> m ()
pollSetFlushing Poll
set Bool
flushing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
let flushing' :: CInt
flushing' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
flushing
Ptr Poll -> CInt -> IO ()
gst_poll_set_flushing Ptr Poll
set' CInt
flushing'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollSetFlushingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.OverloadedMethod PollSetFlushingMethodInfo Poll signature where
overloadedMethod = pollSetFlushing
instance O.OverloadedMethodInfo PollSetFlushingMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollSetFlushing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollSetFlushing"
}
#endif
foreign import ccall "gst_poll_wait" gst_poll_wait ::
Ptr Poll ->
Word64 ->
IO Int32
pollWait ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Word64
-> m Int32
pollWait :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Poll -> Word64 -> m Int32
pollWait Poll
set Word64
timeout = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Int32
result <- Ptr Poll -> Word64 -> IO Int32
gst_poll_wait Ptr Poll
set' Word64
timeout
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PollWaitMethodInfo
instance (signature ~ (Word64 -> m Int32), MonadIO m) => O.OverloadedMethod PollWaitMethodInfo Poll signature where
overloadedMethod = pollWait
instance O.OverloadedMethodInfo PollWaitMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollWait",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollWait"
}
#endif
foreign import ccall "gst_poll_write_control" gst_poll_write_control ::
Ptr Poll ->
IO CInt
pollWriteControl ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m Bool
pollWriteControl :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Poll -> m Bool
pollWriteControl Poll
set = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
CInt
result <- Ptr Poll -> IO CInt
gst_poll_write_control Ptr Poll
set'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollWriteControlMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod PollWriteControlMethodInfo Poll signature where
overloadedMethod = pollWriteControl
instance O.OverloadedMethodInfo PollWriteControlMethodInfo Poll where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gst.Structs.Poll.pollWriteControl",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gst-1.0.24/docs/GI-Gst-Structs-Poll.html#v:pollWriteControl"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePollMethod (t :: Symbol) (o :: *) :: * where
ResolvePollMethod "addFd" o = PollAddFdMethodInfo
ResolvePollMethod "fdCanRead" o = PollFdCanReadMethodInfo
ResolvePollMethod "fdCanWrite" o = PollFdCanWriteMethodInfo
ResolvePollMethod "fdCtlPri" o = PollFdCtlPriMethodInfo
ResolvePollMethod "fdCtlRead" o = PollFdCtlReadMethodInfo
ResolvePollMethod "fdCtlWrite" o = PollFdCtlWriteMethodInfo
ResolvePollMethod "fdHasClosed" o = PollFdHasClosedMethodInfo
ResolvePollMethod "fdHasError" o = PollFdHasErrorMethodInfo
ResolvePollMethod "fdHasPri" o = PollFdHasPriMethodInfo
ResolvePollMethod "fdIgnored" o = PollFdIgnoredMethodInfo
ResolvePollMethod "readControl" o = PollReadControlMethodInfo
ResolvePollMethod "removeFd" o = PollRemoveFdMethodInfo
ResolvePollMethod "restart" o = PollRestartMethodInfo
ResolvePollMethod "wait" o = PollWaitMethodInfo
ResolvePollMethod "writeControl" o = PollWriteControlMethodInfo
ResolvePollMethod "getReadGpollfd" o = PollGetReadGpollfdMethodInfo
ResolvePollMethod "setControllable" o = PollSetControllableMethodInfo
ResolvePollMethod "setFlushing" o = PollSetFlushingMethodInfo
ResolvePollMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePollMethod t Poll, O.OverloadedMethod info Poll p) => OL.IsLabel t (Poll -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePollMethod t Poll, O.OverloadedMethod info Poll p, R.HasField t Poll p) => R.HasField t Poll p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePollMethod t Poll, O.OverloadedMethodInfo info Poll) => OL.IsLabel t (O.MethodProxy info Poll) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif