Touchup to Graphics.hs