summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2015-10-18 16:03:56 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2015-10-18 16:03:56 -0400
commit3256142dc01f7f173289a1910e726b662a877408 (patch)
tree411de68eabe25b2a7cf61711f1132291327d63af
parentb02be5ba0883de454648888a37d78c7160738fe3 (diff)
Allow duplicate 'file' directives if paths normalize to same value
-rw-r--r--src/settings.sml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml
index 10a4af48..bea26103 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -880,7 +880,7 @@ fun addFile {Uri, LoadFromFilename} =
in
case SM.find (!files, Uri) of
SOME (path', _) =>
- if path' = path then
+ if OS.Path.mkCanonical path' = OS.Path.mkCanonical path then
()
else
ErrorMsg.error ("Two different files requested for URI " ^ Uri ^ " ( " ^ path' ^ " vs. " ^ path ^ ")")