package ppxlib

  1. Overview
  2. Docs
package ppxlib
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

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