ostfix (do{ reservedOp name; return fun })

expr :: Parser L
expr   
postfix name fun       = Postfix (do{ reservedOp name; return fun })
postfix name fun       = Postfix (do{ reservedOp name; return fun })