updated Lens.hs