Update List.hs