ch7.hs update