Changeset 6688

Timestamp:

06/25/09 10:49:44 (14 months ago)

Author:

dbaelde

Message:

Sensible default ID for request queues.

Files:

• trunk/liquidsoap/src/sources/req_queue.ml (modified) (2 diffs)

trunk/liquidsoap/src/sources/req_queue.ml

@@ -97 +97 @@
     queued#wake_up activation ;
     if interactive then begin
+    self#set_id ~definitive:false "queue" ;
     if ns = [] then
       ns <- Server.register [self#id] "queue" ;
@@ -112 +113 @@
          | None -> "Unable to create a request!")  ;
     let print_queue q =
-           String.concat " "
-             (List.map
-                (fun r -> string_of_int (Request.get_id r))
-                (List.rev q))
+      String.concat " "
+        (List.map
+           (fun r -> string_of_int (Request.get_id r))
+           (List.rev q))
     in
     Server.add ~ns "queue"