better function name in sample

mor1 · May 20, 2012 · a01140f · a01140f
1 parent e28902a
commit a01140f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib_test/updates.ml b/lib_test/updates.ml
@@ -19,7 +19,7 @@ open Operators
 
 let npackets = ref 0 
 
-let process = function
+let updates = function
   | h, Mrt.Bgp4mp (_, Bgp4mp.Message Some (Bgp.Update u)) 
     -> (printf "%d\t%s\t%s\n%!" 
           !npackets (Mrt.header_to_string h) (Bgp.update_to_string u)
@@ -34,7 +34,7 @@ let _ =
 
   let rec packets next = match next () with
     | None -> ()
-    | Some p -> incr npackets; process p; packets next
+    | Some p -> incr npackets; updates p; packets next
   in  buf |> Mrt.parse |> packets;
 
   printf "num packets %d\n%!" !npackets