Enable manual acknowledgement mode

michaelklishin · michaelklishin · commit dd9c5561aad2 · 2013-10-08T22:30:43.000+04:00
diff --git a/haskell/worker.hs b/haskell/worker.hs
@@ -17,7 +17,7 @@ main = do
      qos ch 0 1
 
      putStrLn " [*] Waiting for messages. to Exit press CTRL+C"
-     consumeMsgs ch "task_queue" NoAck deliveryHandler
+     consumeMsgs ch "task_queue" Ack deliveryHandler
 
      -- waits for keypresses
      getLine
