agitprop: show exchange arg

diff --git a/agitprop.hs b/agitprop.hs
index bf3fe59c28a52c5be4eb41df9d7932f633c03872..4e37b479d9c69d3a8c1e5fa8cd63b6527cd58464 100644 (file)
--- a/agitprop.hs
+++ b/agitprop.hs
@@ -32,6 +32,7 @@ main = do
   args <- getArgs >>= parseargs 'a'
   printparam' "client version" $ "amqp-utils " ++ (showVersion version)
   printparam' "routing key" $ rKey args
+  printparam' "exchange" $ currentExchange args
   isDir <- F.getFileStatus (inputFile args) >>= return . F.isDirectory
   if isDir
     then printparam' "hotfolder" $ inputFile args