# HG changeset patch
# User Julian Squires <julian@cipht.net>
# Date 1429876307 14400
# Node ID a159625975a7a75b4fbae4f2b23ea18e8b8213c0
# Parent  752e5efe9da9eedd4984ab5a84be6f81b7b651d5
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.

diff -r 752e5efe9da9 -r a159625975a7 src/settings.sml
--- 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', _) =>