Add warning when defaulting to verbatim lexing

VictorNicollet · Sep 4, 2012 · c015a51 · c015a51
1 parent 070be01
commit c015a51
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ohmStatic/tool/run.ml b/ohmStatic/tool/run.ml
@@ -38,7 +38,8 @@ let extract file =
       let lexer = 
 	if BatString.ends_with file ".htm" then Lex_html.lex else
 	  if BatString.ends_with file ".html" then Lex_html.lex else 	    
-	    Lex_verbatim.lex
+	    (Printf.printf "-- Warning : unknown format %s\n" file ;
+	     Lex_verbatim.lex )
       in
 
       let lexbuf = Lexing.from_channel channel in