buildMessage :: ToJSON a => Message a -> AMQP.Message
buildMessage (Message msg) =
  AMQP.newMsg { AMQP.msgBody = Aeson.encode msg
              , AMQP.msgDeliveryMode = Just AMQP.NonPersistent
              }
buildMessage :: ToJSON a => Message a -> AMQP.Message
buildMessage (Message msg) =
  AMQP.newMsg { AMQP.msgBody = Aeson.encode msg
              , AMQP.msgDeliveryMode = Just AMQP.NonPersistent
              }
buildMessage (Message msg) =
  AMQP.newMsg { AMQP.msgBody = Aeson.encode msg
              , AMQP.msgDeliveryMode = Just AMQP.NonPersistent
              }