From 0ee71b669bdfb51885142246529f4fe382982ace Mon Sep 17 00:00:00 2001
From: Jason Evans <je@branchtaken.com>
Date: Fri, 25 Feb 2022 10:58:27 -0800
Subject: [PATCH] Fix path construction for input file in `hocc`

---
 bootstrap/bin/hocc/hocc.ml | 1 -
 1 file changed, 1 deletion(-)

diff --git a/bootstrap/bin/hocc/hocc.ml b/bootstrap/bin/hocc/hocc.ml
index 67cc01941..e5a43dab0 100644
--- 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"))