Disable deprecation warning on String.lowercase

This should be replaced by String.lowercase_ascii,
but that wouldn't compile with 4.02.3 anymore.
Asking everyone to upgrade to 4.04.2 might be too early for now.

Signed-off-by: Edwin Török <[email protected]>

Author: edwintorok

lib/syslog.ml

@@ -49,7 +49,7 @@ let facility_of_string s =
 
 exception Unknown_level of string
 let level_of_string s = 
-	match String.lowercase s with
+	match (String.lowercase s)[@ocaml.warning "-3"] with
 	| "emergency"        -> Emerg
 	| "alert"            -> Alert
 	| "critical"         -> Crit