Refactor Ppx_deriving_main.mapper.
Add [%derive.Foo:] shorthand.