Create GenerateIndex.hs