genInstList.hs