newIORefChan :: MonadConc m => (Channel m a)
newIORefChan = do
       ref <- newIORef Nothing
       return (IORefChan ref)