#47 refactoring FederationClientIm.hs: use Network.PeyoTLS.TChan.Client