Update Sub.hs