Update InsertionSort.hs