Flexprint ConfirmationResult

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 4dd8bf6eb66a927db185ed78c99336b021eadc88..4ca75a8d23a365cb714f0c0b157cf721378b6a22 100644 (file)
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -65,6 +65,8 @@ instance Flexprint X.SomeException
 
 instance Flexprint AMQPException
 
+instance Flexprint ConfirmationResult
+
 -- | log marker
 hr :: String -> IO ()
 hr x = hPutStrLn stderr hr' >> hFlush stderr

diff --git a/agitprop.hs b/agitprop.hs
index b2c47ae08c49b3e0e758536c7b114ff51256b53e..4b2aa43727f31f740962e84a7f54e4b55b9a3c7a 100644 (file)
--- a/agitprop.hs
+++ b/agitprop.hs
@@ -87,7 +87,7 @@ main = do
     exceptionHandler
   -- all done. wait and close.
   if (confirm args)
-    then waitForConfirms chan >>= (printparam "confirmed") . show
+    then waitForConfirms chan >>= printparam "confirmed"
     else return ()
   X.catch (closeConnection conn) exceptionHandler