unikernel/duniverse/ppxlib/astlib/clean.ml

@@ -0,0 +1,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