ShowPage.hsをすこしだけリファクタリングした