Try to use qualified name

Liminiens · Dec 17, 2018 · b5a6da0 · b5a6da0
1 parent a0b867e
commit b5a6da0
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/FSharp.Configuration/ResXProvider.fs b/src/FSharp.Configuration/ResXProvider.fs
@@ -23,10 +23,11 @@ let readFile (filePath: FilePath) : ResXDataNode list =
     |> Seq.toList
 
 let resourceManCache = ConcurrentDictionary<string * Assembly, ResourceManager> ()
-
-let readValue resourceName assembly key =
-    let resourceMan = resourceManCache.GetOrAdd ((resourceName, assembly),
-                        fun _ -> ResourceManager (resourceName, assembly))
+let readValue resourceName (assembly: Assembly) key =
+    let name = assembly.GetName().Name
+    let resourceFullName = sprintf "%s.%s" name resourceName
+    let resourceMan = resourceManCache.GetOrAdd ((resourceFullName, assembly),
+                        fun _ -> ResourceManager (resourceFullName, assembly))
     downcast (resourceMan.GetObject key)
 
 /// Converts ResX entries to provided properties