A Haskell bindings for Cisco Webex Teams (formerly Cisco Spark) API
Webex-teams-api (formerly cisco-spark-api) package provides types and functions for accessing Cisco Webex Teams REST API. Details of the API is available from developer site of Cisco Webex
This package is designed to improve type safety over the API. Each entity is separately typed. JSON messages contained in REST responses are decoded into appropriate type of Haskell record. JSON messages sent in REST requests are encoded only from correct type of record.
Some Webex Teams REST API return list of objects. Those APIs require HTTP Link Header based pagination. Haskell functions for those APIs automatically request subsequent pages as needed. This repo provides optional packages for streaming response of list API. Webex-teams-conduit and webex-teams-pipes are thin wrappers of list API. They transform chunky response from list API into seamless stream of elements.
This package also provides some sample usage in command line application style. See source under app directory of the source package.
Sending a message to a Room.
let auth = Authorization "your authorization token" roomId = RoomId "Room ID your message to be sent" messageText = MessageText "your message" message = CreateMessage (Just roomId) Nothing Nothing (Just messageText) Nothing Nothing createEntity auth def createMessage >>= print . getResponseBody
Following example is calling List Membership API which returns membership between
Rooms and users (Person). You can extract each Membership from
Conduit pipe. The
streamListWithFilter, provided by webex-teams-conduit,
automatically performs pagenation when it is asked more element and last
response had link of subsequent page in HTTP Link Header.
let auth = Authorization "your authorization token" filter = MembershipFilter yourRoomId Nothing Nothing runConduit $ streamListWithFilter auth def filter .| takeC 200 .| mapM_C print
You can find more examples in app/Main.hs under webex-teams-pipes or webex-teams-conduit.
Support for Lens
This package provides many of records representing objects communicated via Webex Teams REST API. Those records are designed to allow create lenses by Control.Lens.TH.makeFields.
Following example creates overloaded accessors for ‘Person’, ‘Room’ and ‘Team’.
makeFields ''Person makeFields ''Room makeFields ''Team
You can access ‘personId’, ‘roomId’ and ‘teamId’ via overloaded accessor function ‘id’ like this.
let yourPersonId = yourPerson ^. id yourRoomId = yourRoom ^. id yourTeamId = yourTeam ^. id
This package does not provide pre-generated lenses for you because not everyone need it but you can make it by yourself so easily as described.
- WebHook API is not yet implemented.
- Relative reference in Link Header is not recognized as next page
- Include .cabal file in source repo.
- Migrate CI from Travis to GitHub Actions.
- Build and test for multiple platforms and GHC versions.
- First release of webex-teams-api.
- Module name was changed but most of functions remain same.
- Some key type classes with type families changed.
- Streaming API is moved to separate packages.
- Old streaming API is still available but deprecated.
- Final release of cisco-spark-api package.
- Cisco Spark is now Cisco Webex Teams.
- Catch up to conduit-1.3.0.
- Put explicit upper bound for conduit.
- Initial release.