Mercurial > urweb

diff src/settings.sml @ 2127:8beeb4f761b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix interpretation of 'file' argument paths
author Adam Chlipala <adam@chlipala.net>
date Sun, 08 Mar 2015 10:55:05 -0400
parents 1f1575eff4b9
children e8863d9f8c59 e10881cd92da
line wrap: on
line diff
--- a/src/settings.sml	Fri Mar 06 09:46:21 2015 -0500
+++ b/src/settings.sml	Sun Mar 08 10:55:05 2015 -0400
@@ -867,7 +867,7 @@
 
 fun addFile {Uri, LoadFromFilename} =
     let
-        val path = OS.Path.joinDirFile {dir = !filePath, file = LoadFromFilename}
+        val path = OS.Path.mkAbsolute {relativeTo = !filePath, path = LoadFromFilename}
     in
         case SM.find (!files, Uri) of
             SOME (path', _) =>