Cleaned up the look to function application.hs