module Sound.ALSA.Sequencer.GlibGtkClass where

import qualified System.Posix.Poll as Poll
-- import qualified System.Posix.Types as Posix


data T pri handler cond = Cons {
     inputAdd :: {- Posix.Fd -} Int -> [cond] -> pri -> IO Bool -> IO handler,
     inputRemove :: handler -> IO (),
     pio :: Poll.Event -> cond
   }