#60 TlsServer.hsをほんのすこしリファクタリングした