changeset 2135:a159625975a7

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.
author Julian Squires <julian@cipht.net>
date Fri, 24 Apr 2015 07:51:47 -0400
parents 752e5efe9da9
children 75c8f8e3f5d0
files src/settings.sml
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/settings.sml	Fri Apr 24 07:43:22 2015 -0400
+++ b/src/settings.sml	Fri Apr 24 07:51:47 2015 -0400
@@ -876,7 +876,7 @@
 
 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', _) =>