Update Parsing.hs