new internal operator for '~' semantic versioning

ocaml · Feb 5, 2021 · 412bb6a · 412bb6a
1 parent c46f85c
commit 412bb6a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/opamLexer.mll b/src/opamLexer.mll
@@ -27,7 +27,7 @@ let relop = function
   | ">"  -> `Gt
   | "<=" -> `Leq
   | "<"  -> `Lt
-  | "~"  -> `Geq
+  | "~"  -> `Sem
   | x    -> error "%S is not a valid comparison operator" x
 
 let logop = function

diff --git a/src/opamParserTypes.ml b/src/opamParserTypes.ml
@@ -20,6 +20,7 @@ type relop = [ `Eq  (** [=] *)
              | `Gt  (** [>] *)
              | `Leq (** [<=] *)
              | `Lt  (** [<] *)
+             | `Sem (** [~] *)
              ]
 
 (** Logical operators *)