Invert if clause in module name

Signed-off-by: Rudi Grinberg <me@rgrinberg.com> Signed-off-by: Ulysse Gérard <thevoodoos@gmail.com>
ocaml · Aug 5, 2020 · 1a307bf · 1a307bf
1 parent 058d7c1
commit 1a307bf
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/dune/module_name.ml b/src/dune/module_name.ml
@@ -30,14 +30,15 @@ include Stringlike.Make (struct
       (fun name ->
         String.to_seq name
         |> Seq.filter_map ~f:(fun c ->
-               if not (valid_char c) then
+               if valid_char c then
+                 Some c
+               else
                  match c with
                  | '.'
                  | '-' ->
                    Some '_'
                  | _ -> None
-               else
-                 Some c)
+        )
         |> String.of_seq)
 
   let is_valid_module_name name =