Update harry.hs