Yaron Minsky avatar Yaron Minsky committed a373346

dropped duplicate topic from Dump

Comments (0)

Files changed (3)

 
 let col = Ascii_table.Column.create
 let columns =
-  [ col "topic" (fun d -> Topic.to_string d.Dump.topic)
+  [ col "topic" (fun d -> Topic.to_string d.Dump.message.Message.topic)
   ; col "text"  (fun d -> d.Dump.message.Message.text) ~max_width:25
   ; col "#sub"  (fun d-> Int.to_string d.Dump.num_subscribers)
   ; col "time"  (fun d -> Time.to_sec_string d.Dump.message.Message.time)
   ]
 
 let table_print_dump dump =
-  printf "%s\n%!"
+  printf "%s%!"
     (Ascii_table.to_string
        ~display:Ascii_table.Display.line
        ~limit_width_to:72

broker_protocol.ml

 end
 
 module Dump = struct
-  type single = { topic : Topic.t;
-                  message : Message.t;
+  type single = { message : Message.t;
                   num_subscribers: int;
                 }
   with sexp,bin_io, compare
   Option.map (Hashtbl.find t topic) ~f:Topic_pub.subscribe
 
 let dump t =
-  Hashtbl.to_alist t
-  |> List.map ~f:(fun (topic,tpub) ->
+  Hashtbl.data t
+  |> List.map ~f:(fun tpub ->
     let num_subscribers = Topic_pub.num_subscribers tpub in
     let message = Topic_pub.last_message tpub in
-    {Dump. topic; num_subscribers; message })
+    {Dump. num_subscribers; message })
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.