Update Parser.hs

Recover works