Do not generate context names in a clever way

Now, we always require local siwtchse to set the name. Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Mar 16, 2020 · dd82921 · dd82921
1 parent 3e263a8
commit dd82921
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/dune/workspace.ml b/src/dune/workspace.ml
@@ -187,7 +187,7 @@ module Context = struct
         match name with
         | Some s -> s
         | None -> (
-          let name = Filename.basename switch ^ Common.fdo_suffix base in
+          let name = switch ^ Common.fdo_suffix base in
           match Context_name.of_string_opt name with
           | Some s -> s
           | None ->