Commit 35720c3a authored by Taddeüs Kroes's avatar Taddeüs Kroes

Minifier now checks oif input files exist

parent 52cdbb3c
...@@ -104,6 +104,8 @@ let parse_files = function ...@@ -104,6 +104,8 @@ let parse_files = function
let rec loop = function let rec loop = function
| [] -> [] | [] -> []
| filename :: tl -> | filename :: tl ->
if not (Sys.file_exists filename) then
raise (Failure ("file " ^ filename ^ " does not exist"));
let input = Util.input_all (open_in filename) in let input = Util.input_all (open_in filename) in
let stylesheet = Parse.parse_input filename input in let stylesheet = Parse.parse_input filename input in
(input, stylesheet) :: loop tl (input, stylesheet) :: loop tl
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment