Skip to content

Commit

Permalink
[eval] fix FileSystem path patching (closes #6481)
Browse files Browse the repository at this point in the history
  • Loading branch information
Simn committed Aug 2, 2017
1 parent 6a804e5 commit a8fd284
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/macro/eval/evalStdLib.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1126,7 +1126,7 @@ module StdFileSystem = struct
| _ -> p

let patch_path s =
if String.length s > 0 && String.length s <= 3 && s.[1] = ':' then Path.add_trailing_slash s
if String.length s > 1 && String.length s <= 3 && s.[1] = ':' then Path.add_trailing_slash s
else remove_trailing_slash s

let absolutePath = vfun1 (fun relPath ->
Expand Down

0 comments on commit a8fd284

Please sign in to comment.