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