Преглед на файлове

Minifier now checks oif input files exist

Taddeus Kroes преди 11 години
родител
ревизия
35720c3acc
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      main.ml

+ 2 - 0
main.ml

@@ -104,6 +104,8 @@ let parse_files = function
     let rec loop = function
       | [] -> []
       | 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 stylesheet = Parse.parse_input filename input in
         (input, stylesheet) :: loop tl