ShowPage.hsのリファクタリングとgreen.hsのup