Permalink
Browse files

* find_source.ml: c

  • Loading branch information...
1 parent 3750480 commit ce6f29ec4604690ccbcb661950a7e3f12bf21e59 @aryx aryx committed Feb 9, 2014
Showing with 3 additions and 1 deletion.
  1. +3 −1 find_source.ml
View
@@ -7,6 +7,8 @@ let finder lang =
Lib_parsing_php.find_source_files_of_dir_or_files ~verbose:false
| "c++" ->
Lib_parsing_cpp.find_source_files_of_dir_or_files
+ | "c" ->
+ Lib_parsing_c.find_source_files_of_dir_or_files
| "ml" ->
Lib_parsing_ml.find_source_files_of_dir_or_files
| "cmt" ->
@@ -18,7 +20,7 @@ let finder lang =
| "clang2" ->
Lib_parsing_clang.find_source2_files_of_dir_or_files
| "dot" -> (fun _ -> [])
- | _ -> failwith ("unsupported language: " ^ lang)
+ | _ -> failwith ("Find_source: unsupported language: " ^ lang)
let skip_file dir =
Filename.concat dir "skip_list.txt"

0 comments on commit ce6f29e

Please sign in to comment.