From e05c81ac56ca0bc5a9e86342bc7e8190d0ee04c8 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jeremie@dimino.org>
Date: Tue, 12 Jun 2018 18:13:54 +0100
Subject: [PATCH] Get rid of Jbuild.Provides (unused)

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
---
 src/jbuild.ml  | 24 ------------------------
 src/jbuild.mli |  8 --------
 2 files changed, 32 deletions(-)

diff --git a/src/jbuild.ml b/src/jbuild.ml
index 3b1a786a..ded65258 100644
--- a/src/jbuild.ml
+++ b/src/jbuild.ml
@@ -1135,29 +1135,6 @@ module Menhir = struct
       )
 end
 
-module Provides = struct
-  type t =
-    { name : string
-    ; file : string
-    }
-
-(*  let v1 sexp =
-    match sexp with
-    | Atom (_, s) ->
-      { name = s
-      ; file =
-          match String.lsplit2 s ~on:':' with
-          | None        -> s
-          | Some (_, s) -> s
-      }
-    | List (_, [Atom (_, s); List (_, [Atom (_, "file"); Atom (_, file)])]) ->
-      { name = s
-      ; file
-      }
-    | sexp ->
-    of_sexp_error sexp "[<name>] or [<name> (file <file>)] expected"*)
-end
-
 module Alias_conf = struct
   type t =
     { name    : string
@@ -1256,7 +1233,6 @@ type Stanza.t +=
   | Library     of Library.t
   | Executables of Executables.t
   | Rule        of Rule.t
-  | Provides    of Provides.t
   | Install     of Install_conf.t
   | Alias       of Alias_conf.t
   | Copy_files  of Copy_files.t
diff --git a/src/jbuild.mli b/src/jbuild.mli
index 138f2604..b52faf5a 100644
--- a/src/jbuild.mli
+++ b/src/jbuild.mli
@@ -309,13 +309,6 @@ module Menhir : sig
     }
 end
 
-module Provides : sig
-  type t =
-    { name : string
-    ; file : string
-    }
-end
-
 module Alias_conf : sig
   type t =
     { name    : string
@@ -361,7 +354,6 @@ type Stanza.t +=
   | Library     of Library.t
   | Executables of Executables.t
   | Rule        of Rule.t
-  | Provides    of Provides.t
   | Install     of Install_conf.t
   | Alias       of Alias_conf.t
   | Copy_files  of Copy_files.t