matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix another stupid bug

This commit is contained in:
Jeremie Dimino 2017-05-17 15:24:09 +01:00
parent ad3ef27a36
commit 08af136c97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/watermarks.ml
View File

@ -178,7 +178,7 @@ let get_name ~files ?name () =
if package_names = [] then die "@{<error>Error@}: no <package>.opam files found.";
match name with
| Some name ->
if List.mem name ~set:package_names then
if not (List.mem name ~set:package_names) then
die "@{<error>Error@}: file %s.opam doesn't exist." name;
name
| None ->