diff options
| author |  Julian Squires <julian@cipht.net> | 2015-04-24 07:51:47 -0400 |
|---|---|---|
| committer | Julian Squires <julian@cipht.net> | 2015-04-24 07:51:47 -0400 |
| commit | 8f422a4f4b96211b5319ba0f3023948f53d5ff10 (patch) | |
| tree | 553bc7f549a6f57878e6bd438c64c53b872b5c0f | |
| parent | 22e8b52aad936647d65f93de90ea186968e3e5d5 (diff) | |
Allow file directives to contain slashes
Previously, adding a line such as "file /c/foo.css css/foo.css" would
cause the compiler to raise an InvalidArc exception.
| -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 b61759c1..cd2de8a9 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -876,7 +876,7 @@ fun setFilePath path = filePath := path fun addFile {Uri, LoadFromFilename} = let - val path = OS.Path.mkAbsolute {relativeTo = !filePath, path = LoadFromFilename} + val path = OS.Path.concat (!filePath, LoadFromFilename) in case SM.find (!files, Uri) of SOME (path', _) => |