[Haskell-cafe] Chan with priorities

Hello Haskell-cafe, can you please point me to any OSS implementation of IO Channels with priorities - i.e. data pushed to the Chan using high priority should be read prior to the data pushed with lower priority: pushChan ch 1 'x' pushChan ch 2 'y' readChan ch >>= print -- prints 'y' i've found only STM implementations - i don't know STM enough, may be i just need to convert STM to IO operations? i don't expect strong guarantees, my algorithm will remain correct anyway. and i don't have lot of objects, it's just a few dozens -- Best regards, Bulat mailto:Bulat.Ziganshin@gmail.com