Update Foldable.hs