update and repalce into Parser.hs