Commits

camlspotter committed c5e6e89

comp_dir debug

  • Participants
  • Parent commits 5f66429

Comments (0)

Files changed (2)

       | body, ".mli" -> 
           [ FP.(^/) (Compdir.comp_dir dir ) (body ^ ".cmti");
             FP.(^/) dir (body ^ ".cmti"); ]
-      | body, _ (* .ml, mll, mly *) -> 
+      | body, _ (* .ml, mll, mly, or eliom *) -> 
           [ FP.(^/) (Compdir.comp_dir dir ) (body ^ ".cmt");
             FP.(^/) dir (body ^ ".cmt") ])
 
   in
   Option.default (f [] fp0) (fun () -> fp0)
 
+let comp_dir x =
+  let y = comp_dir x in
+  Format.eprintf "comp_dir: %s => %s@." (FP.to_string x) (FP.to_string y);
+  y
+
 let comp_dir = Hashtbl.memoize (Hashtbl.create 107) comp_dir
 
 let src_dir fp0 =