summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Julian Squires <julian@cipht.net>2015-04-24 07:51:47 -0400
committerGravatar Julian Squires <julian@cipht.net>2015-04-24 07:51:47 -0400
commitdcffd1062445642f7ed903064fd993e25a3af260 (patch)
tree553bc7f549a6f57878e6bd438c64c53b872b5c0f
parenta8076944892d087ce5fe79bc2924338375a60ea9 (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.sml2
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', _) =>