Update parser.hs