myServer.hsをすこしリファクタリングした