Fix path construction for input file in hocc

BranchTaken · Feb 26, 2022 · 0ee71b6 · 0ee71b6
1 parent 7db385a
commit 0ee71b6
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/bootstrap/bin/hocc/hocc.ml b/bootstrap/bin/hocc/hocc.ml
@@ -40,7 +40,6 @@ let _ =
   File.Fmt.stdout |> Fmt.fmt "XXX hocc: conf=" |> Conf.pp conf |> Fmt.fmt "\n" |> ignore;
   let path = Path.join [
     (Conf.srcdir conf);
-    Path.of_string "/";
     Path.of_segment (Path.Segment.join [
       (Conf.module_ conf);
       Option.value_hlt Path.(basename (of_string ".hmh"))