chanSource :: ChunkChan -> ActionM ()
chanSource = source <=< return . sourceTMChan
chanSource :: ChunkChan -> ActionM ()
chanSource = source <=< return . sourceTMChan
chanSource = source <=< return . sourceTMChan