#463 HttpPullCl.hs: すこしリファクタリングした