Strip whitespace, update deprecated String.{lowercase -> lowercase_as…

…cii} Signed-off-by: Akanksha Mathur <akanksha.mathur@citrix.com>
xapi-project · Feb 14, 2018 · 85a6127 · 85a6127
1 parent 236beab
commit 85a6127
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/syslog.ml b/lib/syslog.ml
@@ -48,8 +48,8 @@ let facility_of_string s =
 		|_-> raise (Unknown_facility s)
 
 exception Unknown_level of string
-let level_of_string s = 
-	match String.lowercase s with
+let level_of_string s =
+	match String.lowercase_ascii s with
 	| "emergency"        -> Emerg
 	| "alert"            -> Alert
 	| "critical"         -> Crit
@@ -60,7 +60,7 @@ let level_of_string s =
 	| "debug"            -> Debug
 	| _-> raise (Unknown_level s)
 
-let string_of_level = function 
+let string_of_level = function
 	| Emerg   -> "emergency"
 	| Alert   -> "alert"
 	| Crit    -> "critical"