Update Tracks.hs