Update to latest async

Author: arjunguha

async/Async_OpenFlow.mli

@@ -80,7 +80,7 @@ module Platform : sig
     val set_kill_wait : t -> Time.Span.t -> unit
   end
 
-  module Make(Message : Message) : S
+  module Make(Message : Message) () : S
     with type m = Message.t
      and type c = unit
 

async/Async_OpenFlowChunk.ml

@@ -24,7 +24,7 @@ end
 module Controller = struct
   open Async.Std
 
-  module Platform = Platform.Make(Message)
+  module Platform = Platform.Make(Message) ()
   module Client_id = struct
     module T = struct
       type t = Platform.Client_id.t with sexp

async/Async_OpenFlow_Platform.ml

@@ -14,7 +14,7 @@ type ('id, 'a, 'b) event = [
 
 module type S = sig
 
-  type t 
+  type t
 
   type c
   type m
@@ -39,7 +39,7 @@ module type S = sig
 
   val has_client_id : t -> Client_id.t -> bool
 
-  val send 
+  val send
     : t
     -> Client_id.t
     -> m
@@ -49,8 +49,8 @@ module type S = sig
 
   val send_to_all : t -> m -> unit
 
-  val client_addr_port 
-    :  t 
+  val client_addr_port
+    :  t
     -> Client_id.t
     -> (Unix.Inet_addr.t * int) option
 
@@ -66,7 +66,7 @@ module type CTL = sig
   val set_kill_wait : t -> Time.Span.t -> unit
 end
 
-module Make(Message : Message) = struct
+module Make(Message : Message) () = struct
 
   type m = Message.t
 
@@ -99,8 +99,8 @@ module Make(Message : Message) = struct
       let write ((_, w) : t) (m : m) : unit = Serialization.serialize w m
 
     end
-  
-  end)
+
+  end) ()
 
   type t = Impl.t
   type c = unit

opam

@@ -20,7 +20,7 @@ depends: [
   "cstruct" {>= "1.0.1"}
   "packet"  {>= "0.3.1" }
   "sexplib"
-  "async" {>= "112.06.00" }
+  "async" {>= "112.17.00" }
   "quickcheck"
   "ounit" {test}
   "pa_ounit" {test}