Ctypes has a slightly different interface to handle errno checking

realworldocaml · Apr 19, 2014 · da57631 · da57631
1 parent 64a1327
commit da57631
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/code/ffi/datetime.ml b/code/ffi/datetime.ml
@@ -16,8 +16,8 @@ let ()       = seal timeval
 type timezone
 let timezone : timezone structure typ = structure "timezone"
 
-let gettimeofday = foreign "gettimeofday"
-    (ptr timeval @-> ptr timezone @-> returning_checking_errno int)
+let gettimeofday = foreign "gettimeofday" ~check_errno:true
+    (ptr timeval @-> ptr timezone @-> returning int)
 
 let time' () = time (from_voidp time_t null)