From dcffd1062445642f7ed903064fd993e25a3af260 Mon Sep 17 00:00:00 2001
From: Julian Squires <julian@cipht.net>
Date: Fri, 24 Apr 2015 07:51:47 -0400
Subject: 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.
---
 src/settings.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/settings.sml')

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', _) =>
-- 
cgit v1.2.3