fix Bench.hs