IO/Dialogue1.hs: fix ReadChan
SPJ - Tackling the Awkward Squad