Refactoring

App.hsが汚かったので書き直した