changeset 2183:74c762002352

Allow duplicate 'file' directives if paths normalize to same value
author Adam Chlipala <adam@chlipala.net>
date Sun, 18 Oct 2015 16:03:56 -0400
parents d25c42e5d8f4
children 1ecef02f67c5 1e3ba868f8bf
files src/settings.sml
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/settings.sml	Sun Oct 18 14:46:50 2015 -0400
+++ b/src/settings.sml	Sun Oct 18 16:03:56 2015 -0400
@@ -880,7 +880,7 @@
     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 ^ ")")