Update ParserTrans.hs

add Instance Monad GenParser e