let baseuri_of_file file =
let uri = ref None in
let ic = open_in file in
- let istream = Stream.of_channel ic in
+ let istream = Ulexing.from_utf8_channel ic in
(try
while true do
try
Unix.mkdir path 0o755
with
| Unix.Unix_error (Unix.EEXIST,_,_) -> ()
- | Unix.Unix_error (e,_,_) -> raise (Failure (Unix.error_message e)));
+ | Unix.Unix_error (e,_,_) ->
+ raise
+ (Failure
+ ("Unix.mkdir " ^ path ^ " 0o755 :" ^ (Unix.error_message e))));
aux path tl
in
aux "" components