Update ShortestList.hs

I feel like this could of been done a lot better. But it works.