Refactoring site.hs