Re[2]: getOpt return record of type a rather than [a]