Source file `clean.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open! Import

let remove_migration_attributes =
  object
    inherit Ast_traverse.map

    method! attributes vs =
      match vs with
      | [] -> []
      | vs ->
          let should_keep_attribute a =
            not (String.is_prefix ~prefix:"ppxlib.migration" a.attr_name.txt)
          in
          List.filter ~f:should_keep_attribute vs
  end