ShowPage.hsのリファクタリング