Network.PeyoTLS.TChan.Client: bug fix: flip forever and evalStateT