Update Escaper.hs