queue-seq did not use its first argument (conn).

This commit introduces an arity-overloaded version without the argument,
preserving the old signature for backwards-compatibility.

Also move the docstring into the correct place (before the argument
vector).

Corrects the example to use the new arity.

example/consumer.clj

@@ -31,5 +31,5 @@
 ;;   (println (rabbitmq/consume-poll conn-map channel)))
 
 ;; (let [[conn channel] connection]
-;;   (println (rabbitmq/queue-seq conn channel conn-map)))
+;;   (println (rabbitmq/queue-seq channel conn-map)))
 

src/com/github/icylisper/rabbitmq.clj

@@ -64,14 +64,19 @@
       (.basicAck ch (.. d getEnvelope getDeliveryTag) false)
       (cons m (delivery-seq ch q)))))
 
-(defn queue-seq [conn
-                 #^Channel ch
-                 {q :queue}]
+(defn queue-seq
   "Return a sequence of the messages in queue with name queue-name"
-  (.queueDeclare ch q)
-  (let [consumer (QueueingConsumer. ch)]
-      (.basicConsume ch q consumer)
-      (delivery-seq ch consumer)))
+  ([#^Channel ch
+    {q :queue}]
+   (.queueDeclare ch q)
+   (let [consumer (QueueingConsumer. ch)]
+     (.basicConsume ch q consumer)
+     (delivery-seq ch consumer)))
+  ([conn
+    #^Channel ch
+    c]
+   (queue-seq ch c)))
+
 
 ;;; consumer routines
 (defn consume-wait [c #^Channel ch]