Merge pull request #135 from gaborigloi/remove_warnings

Fix OCaml compiler warnings

Author: thomassa

example/example.ml

@@ -68,4 +68,3 @@ let _ =
   | `Error m ->
     Printf.fprintf stderr "Error: %s\n%!" m;
     exit 1
-  ()

lib/cohttp_posix_io.ml

@@ -105,7 +105,7 @@ module Unbuffered_IO = struct
     remaining = 0 || (n > 0 && (read_into_exactly ic buf (ofs + n) (len - n)))
 
   let read_exactly ic len =
-    let buf = String.create len in
+    let buf = Bytes.create len in
     read_into_exactly ic buf 0 len >>= function
     | true -> return (Some buf)
     | false -> return None
@@ -147,7 +147,7 @@ module Buffered_IO = struct
   let read_into_exactly ic buf ofs len = try really_input ic buf ofs len; true with _ -> false
 
   let read_exactly ic len =
-    let buf = String.create len in
+    let buf = Bytes.create len in
     read_into_exactly ic buf 0 len >>= function
     | true -> return (Some buf)
     | false -> return None

lib/posix_channel.ml

@@ -16,7 +16,7 @@ module CBuf = struct
   }
 
   let empty length = {
-    buffer = String.create length;
+    buffer = Bytes.create length;
     len = 0;
     start = 0;
     r_closed = false;

lib/syslog.ml

@@ -54,7 +54,6 @@ let level_of_string s =
 	| "emergency"        -> Emerg
 	| "alert"            -> Alert
 	| "critical"         -> Crit
-	| "debug"            -> Debug; 
 	| "error" | "err"    -> Err
 	| "warning" | "warn" -> Warning
 	| "notice"           -> Notice

lib_test/debug_test.ml

@@ -64,8 +64,8 @@ let test_debug_set_level () =
 
 
 let test_debug_set_level_multiple_loggers () = 
-        let a = (module Debug.Make(struct let name = "aaaa" end) : Debug.DEBUG) in
-        let b = (module Debug.Make(struct let name = "bbbb" end) : Debug.DEBUG) in
+        let _ = (module Debug.Make(struct let name = "aaaa" end) : Debug.DEBUG) in
+        let _ = (module Debug.Make(struct let name = "bbbb" end) : Debug.DEBUG) in
         Debug.reset_levels ();
 
         assert_levels "aaaa"    (false, false, false, false);

network/network_stats.ml

@@ -88,7 +88,7 @@ module File_helpers = struct
 	(** [fd_blocks_fold block_size f start fd] folds [f] over blocks (strings)
 	    from the fd [fd] with initial value [start] *)
 	let fd_blocks_fold block_size f start fd = 
-		let block = String.create block_size in
+		let block = Bytes.create block_size in
 		let rec fold acc = 
 			let n = Unix.read fd block 0 block_size in
 			(* Consider making the interface explicitly use Substrings *)