diff options
author | Adam Chlipala <adam@chlipala.net> | 2015-03-08 10:55:05 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2015-03-08 10:55:05 -0400 |
commit | 2997e31da2e41b6f1ffeca09a976b739ff9846ea (patch) | |
tree | f6193aa0371d90bba563c11cb263f4be7ccb0704 /src | |
parent | 6119cdebb5f614a894a8953d3594f8e4b54f221f (diff) |
Fix interpretation of 'file' argument paths
Diffstat (limited to 'src')
-rw-r--r-- | src/settings.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index 19ee0b4a..c9b022fd 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -867,7 +867,7 @@ fun setFilePath path = filePath := path 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', _) => |