From: Ralf Treinen <treinen@debian.org>
Date: Sun, 3 Jun 2018 10:47:27 +0200
Subject: Fix some occurrences of "does not exists"

Debian-Bug: #869846
---
 algo/diagnostic.ml | 4 ++--
 common/cudfAdd.mli | 2 +-
 common/input.ml    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/algo/diagnostic.ml b/algo/diagnostic.ml
index 6189f12..67eb236 100644
--- a/algo/diagnostic.ml
+++ b/algo/diagnostic.ml
@@ -262,8 +262,8 @@ let build_explanation_graph ?(addmissing=false) root l =
               ) [] vpkgs
             in
             (* we add this node if a package depends disjuctively on one
-               or more packages that exists in the repository, but are not
-               installable, and one that do not exists in the repository. For
+               or more packages that exist in the repository, but are not
+               installable, and one that do not exist in the repository. For
                the latter we add a missing node to the graph. *)
             if List.length missingvpkgs > 0 then begin
               let vp = G.V.create (PkgV.Missing missingvpkgs) in incr c;
diff --git a/common/cudfAdd.mli b/common/cudfAdd.mli
index 7a00747..1695a63 100644
--- a/common/cudfAdd.mli
+++ b/common/cudfAdd.mli
@@ -123,7 +123,7 @@ val pkgnames : Cudf.universe -> StringSet.t
 val add_properties : Cudf.preamble -> Cudf_types.typedecl -> Cudf.preamble
 
 (** return the value of the requested property. 
- * emit a warning and raise Not_found if the property does not exists *)
+ * emit a warning and raise Not_found if the property does not exist *)
 val get_property : string -> Cudf.package -> string
 
 (** Returns true if the package is essential, that is the cudf package has
diff --git a/common/input.ml b/common/input.ml
index 49f8fc4..b671c2b 100644
--- a/common/input.ml
+++ b/common/input.ml
@@ -71,7 +71,7 @@ exception File_empty
 
 let open_file file =
   if not (Sys.file_exists file) then
-    fatal "Input file %s does not exists." file
+    fatal "Input file %s does not exist." file
   else if (Unix.stat file).Unix.st_size = 0 then (
     warning "Input file %s is empty" file;
     raise File_empty)
