Fix missing nameSpaceToName call

rescript-lang · Jul 23, 2022 · 8dd86d1 · 8dd86d1
1 parent e2810fe
commit 8dd86d1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/analysis/src/FindFiles.ml b/analysis/src/FindFiles.ml
@@ -100,7 +100,7 @@ let getNamespace config =
   if isNamespaced then
     let fromString = ns |> bind Json.string in
     let fromName = config |> Json.get "name" |> bind Json.string in
-    either fromString fromName
+    either fromString fromName |> Option.map nameSpaceToName
   else None
 
 let collectFiles directory =