Update Profile.hs