#223 runServer.hsに対するわずかなリファクタリング