Make some stuff pointfree and shorten School.hs