publishMessage :: AMQP.Channel -> ExchangeName -> TopicName -> AMQP.Message -> IO ()
publishMessage channel (ExchangeName exchName) (TopicName topic) message =
  AMQP.publishMsg channel exchName topic message
publishMessage :: AMQP.Channel -> ExchangeName -> TopicName -> AMQP.Message -> IO ()
publishMessage channel (ExchangeName exchName) (TopicName topic) message =
  AMQP.publishMsg channel exchName topic message
publishMessage channel (ExchangeName exchName) (TopicName topic) message =
  AMQP.publishMsg channel exchName topic message