Mercurial > urweb
diff src/settings.sml @ 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 | e8863d9f8c59 |
children | 3b4a5604ed97 a07b91fa71db |
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', _) =>