daily pastebin goal
28%
SHARE
TWEET

Untitled

a guest Jul 11th, 2018 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data PubSubMessage_ = PubSubMessage_ {
  2.   from :: Uint8,
  3.   content :: Uint8, -- Data field renamed due keyword collision
  4.   seqno :: Uint8,
  5.   topicIDs :: String,
  6.   xxx_unrecognized :: Uint8
  7. } deriving (Show, Eq, Ord, Generic)
  8.  
  9. pubsubUrl :: BaseUrl
  10. pubsubUrl = BaseUrl Http "localhost" 5001 "/api/v0/pubsub"
  11.  
  12. type PubSub = "pub" :> QueryParams "arg" :> QueryParam "encoding" String :>  Get '[PlainText] String
  13. type PubSubStream = "sub" :> QueryParams "arg" String :> QueryParam "encoding" String :> StreamGet NewlineFraming JSON (ResultStream PubSubMessage_)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top