Refactor site.hs