Merge pull request #124 from frenetic-lang/async_111.13.00_fix

Trivial fix for Async 111.13.00
frenetic-lang · May 19, 2014 · 7a69f09 · 7a69f09
2 parents 6095738 + 25c2d2c
commit 7a69f09
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/async/Async_OpenFlow_Platform.ml b/async/Async_OpenFlow_Platform.ml
@@ -94,7 +94,7 @@ module Make(Message : Message) = struct
       ?log_disconnects
       ?buffer_age_limit ~port () =
     Impl.create ?max_pending_connections ?verbose ?log_disconnects
-      ?buffer_age_limit ~port ~auth:(fun _ _ -> return `Allow) ()
+      ?buffer_age_limit ~port ~auth:(fun _ _ _ -> return `Allow) ()
 
   let listen t =
     let open Impl.Server_read_result in