additional args with --simple

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 45156fa4652251fe0dbc302d4b78bb0403ba57db..27d0f3ca2e93e48d25f623261c4a2c1a8f6693f8 100644 (file)
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -259,7 +259,7 @@ saveFile (Just tempD) numstring body = do
 -- | construct cmdline for callback script
 constructCallbackCmdLine ::
      Bool -> [String] -> [String] -> String -> String -> String -> [String]
-constructCallbackCmdLine True _ _ _ exe path = exe : path : []
+constructCallbackCmdLine True _ addi _ exe path = exe : addi ++ path : []
 constructCallbackCmdLine False opts addi num exe path =
   exe : "-f" : path : "-n" : num : opts ++ addi