peekTChan

peekTChan :: TChan a -> STM a
stm Control.Concurrent.STM.TChan
Get the next value from the TChan without removing it, retrying if the channel is empty.
tryPeekTChan :: TChan a -> STM (Maybe a)
stm Control.Concurrent.STM.TChan
A version of peekTChan which does not retry. Instead it returns Nothing if no value is available.