Source file `exclude.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(* This Source Code Form is subject to the terms of the Mozilla Public License,
   v. 2.0. If a copy of the MPL was not distributed with this file, You can
   obtain one at http://mozilla.org/MPL/2.0/. *)



exception Exception of (int * string)

type t =
  | Name of string
  | Regexp of Str.regexp

type file = {
    path : t;
    exclusions : t list option;
  }