data PubSubMessage_ = PubSubMessage_ {
  from :: Uint8,
  content :: Uint8, -- Data field renamed due keyword collision
  seqno :: Uint8,
  topicIDs :: String,
  xxx_unrecognized :: Uint8
} deriving (Show, Eq, Ord, Generic)

pubsubUrl :: BaseUrl
pubsubUrl = BaseUrl Http "localhost" 5001 "/api/v0/pubsub"

type PubSub = "pub" :> QueryParams "arg" :> QueryParam "encoding" String :>  Get '[PlainText] String
type PubSubStream = "sub" :> QueryParams "arg" String :> QueryParam "encoding" String :> StreamGet NewlineFraming JSON (ResultStream PubSubMessage_)