Update GenerateIndex.hs