Update ShortestList.hs