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
16
17
18
19
let remove_ppxlib_migration_from_ast_mapper =
  let should_keep_attribute (a : Parsetree.attribute) =
    not (Stdlib0.String.is_prefix ~prefix:"ppxlib.migration" a.attr_name.txt)
  in
  let mapper =
    {
      Ast_mapper.default_mapper with
      attributes = (fun _ -> List.filter should_keep_attribute);
    }
  in
  mapper

let remove_migration_attributes_from_str =
  remove_ppxlib_migration_from_ast_mapper.structure
    remove_ppxlib_migration_from_ast_mapper

let remove_migration_attributes_from_sig =
  remove_ppxlib_migration_from_ast_mapper.signature
    remove_ppxlib_migration_from_ast_mapper