From 5bd4b44366c6354de08b9c9c849b79b68ab35723 Mon Sep 17 00:00:00 2001
From: Liam Stevenson <lstevenson@janestreet.com>
Date: Wed, 25 Sep 2024 10:46:38 -0400
Subject: [PATCH] Fix ignorace of SOURCE_ROOT directive

---
 src/dot-merlin/dot_merlin_reader.ml                    | 3 +++
 tests/test-dirs/config/dot-merlin-reader/load-config.t | 5 +++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/dot-merlin/dot_merlin_reader.ml b/src/dot-merlin/dot_merlin_reader.ml
index 4900814db..2c743c33c 100644
--- a/src/dot-merlin/dot_merlin_reader.ml
+++ b/src/dot-merlin/dot_merlin_reader.ml
@@ -426,6 +426,9 @@ let postprocess cfg =
       cfg.stdlib
       |> Option.map ~f:(fun stdlib -> `STDLIB stdlib)
       |> Option.to_list;
+      cfg.source_root
+      |> Option.map ~f:(fun source_root -> `SOURCE_ROOT source_root)
+      |> Option.to_list;
       List.concat_map pkg_paths ~f:(fun p -> [ `B p; `S p ]);
       ppx;
       List.map failures ~f:(fun s -> `ERROR_MSG s)
diff --git a/tests/test-dirs/config/dot-merlin-reader/load-config.t b/tests/test-dirs/config/dot-merlin-reader/load-config.t
index 86d61afb3..263ff2788 100644
--- a/tests/test-dirs/config/dot-merlin-reader/load-config.t
+++ b/tests/test-dirs/config/dot-merlin-reader/load-config.t
@@ -6,12 +6,13 @@ This test comes from: https://github.com/janestreet/merlin-jst/pull/59
   > BH build-hidden/dir
   > SH source-hidden/dir
   > STDLIB /stdlib
+  > SOURCE_ROOT /root
   > EOF
 
   $ FILE=$(pwd)/test.ml; dot-merlin-reader <<EOF | sed 's#[0-9]*:#?:#g'
   > (4:File${#FILE}:$FILE)
   > EOF
-  ((?:B?:$TESTCASE_ROOT/build/dir)(?:S?:$TESTCASE_ROOT/source/dir)(?:BH?:$TESTCASE_ROOT/build-hidden/dir)(?:SH?:$TESTCASE_ROOT/source-hidden/dir)(?:STDLIB?:/stdlib))
+  ((?:B?:$TESTCASE_ROOT/build/dir)(?:S?:$TESTCASE_ROOT/source/dir)(?:BH?:$TESTCASE_ROOT/build-hidden/dir)(?:SH?:$TESTCASE_ROOT/source-hidden/dir)(?:STDLIB?:/stdlib)(?:SOURCE_ROOT?:/root))
 
   $ echo | $MERLIN single dump-configuration -filename test.ml 2> /dev/null | jq '.value.merlin'
   {
@@ -43,7 +44,7 @@ This test comes from: https://github.com/janestreet/merlin-jst/pull/59
       }
     ],
     "stdlib": "/stdlib",
-    "source_root": null,
+    "source_root": "/root",
     "unit_name": null,
     "wrapping_prefix": null,
     "reader": [],