improve Main.hs: silence cd warning