Commits

Yaron Minsky committed ae70e0d

|! -> |>

  • Participants
  • Parent commits 16b9a0b

Comments (0)

Files changed (1)

 
 let sexp_print_dump dump =
   printf "%s\n"
-    (Dump.sexp_of_t dump |! Sexp.to_string_hum)
+    (Dump.sexp_of_t dump |> Sexp.to_string_hum)
 
 let col = Ascii_table.Column.create
 let columns =
   [ 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 "#sub"  (fun d -> Int.to_string d.Dump.num_subscribers)
   ; col "time"  (fun d -> Time.to_sec_string d.Dump.message.Message.time)
   ]
 
          ; "dump"     , dump_cmd
          ; "shutdown" , shutdown_cmd
          ]))
-
-