readEventQueue :: EventQueue -> IO Event
readEventQueue q = atomically $ readTChan q
readEventQueue :: EventQueue -> IO Event
readEventQueue q = atomically $ readTChan q
readEventQueue q = atomically $ readTChan q