json-api: Utilities for generating JSON-API payloads

[ library, mit, network ] [ Propose Tags ]

Provides utilities for deriving JSON payloads conformant to the json-api specification

[Skip to Readme]
Dependencies aeson (>= && <, base (>=4.7 && <5.0), containers (>= && <, data-default (>=0.5.3 && <5.6.0), lens (>=4.13 && <5.0), lens-aeson (>= && <, text (>= && <, unordered-containers (>= && <, url (>=2.1.3 && <2.2.0) [details]
License MIT
Copyright 2016 Todd Mohney
Author Todd Mohney
Maintainer Todd Mohney <toddmohney@gmail.com>
Category Network
Home page https://github.com/toddmohney/json-api
Bug tracker https://github.com/toddmohney/json-api/issues
Source repo head: git clone https://github.com/toddmohney/json-api.git
head: git clone https://github.com/toddmohney/json-api
Uploaded by toddmohney at Sat Jan 7 21:10:11 UTC 2017
Distributions NixOS:
Downloads 1628 total (31 in the last 30 days)
Rating (no votes yet) [estimated by rule of succession]
Your Rating
  • λ
  • λ
  • λ
Status Hackage Matrix CI
Docs available [build log]
Last success reported on 2017-01-07 [all 1 reports]




Maintainer's Corner

For package maintainers and hackage trustees

Readme for json-api-

[back to package description]

Circle CI

Haskell Implementation of the JSON-API specification


From the specification itself:

If you’ve ever argued with your team about the way your JSON responses should be formatted, JSON API can be your anti-bikeshedding tool.

By following shared conventions, you can increase productivity, take advantage of generalized tooling, and focus on what matters: your application.

Clients built around JSON API are able to take advantage of its features around efficiently caching responses, sometimes eliminating network requests entirely.

All in all, API discoverability and other HATEOAS principles make JSON-API an attractive resource serialization option.

The specification

Find the specification here

Example usage

Let's start with an example User record:

data User = User
  { userId        :: Int
  , userFirstName :: String
  , userLastName  :: String
  } deriving (Eq, Show)

$(deriveJSON defaultOptions ''User)

From this, we can use the json-api package to produce a payload conformant to the JSON-API specification like so:

-- Builds the Document which will be serialized as our
-- web server's response payload
mkDocument :: User -> Links -> Document User Text Int
mkDocument usr links =
    (Singleton $ toResource usr)
    (Just links)

-- Helper function to convert a User into a resource object
-- This could be our canonical serialization function for a User in any
-- response payload
toResource :: User -> Resource User Text
toResource user =
  Resource resourceId resourceType user resourceLinks resourceMetaData
    resourceId       = ResourceId . pack . show . userId $ user
    resourceType     = ResourceType "User"
    resourceLinks    = Just $ userLinks user
    resourceMetaData = Nothing

-- helper function to build links for a User resource
userLinks :: User -> Links
userLinks user = toLinks [ ("self", selfLink) ]
    selfLink = toURL selfPath
    selfPath = "/users/" <> (show $ userId user)

When delivered as a response from a web server, for example, we get a payload that looks like this:


Neat! We can see that if we would like the full User data for the User with ID=1, we can query /users/1. Discoverability!

We can also see from the top-level links data that this particular payload originated from /users/1.

This is a very simple example to provide an introduction to the basic idea behind JSON-API and how to use this library. Check out these examples for more robust representations of resourceful payloads. Here, you'll start to see the more comprehensive benefits of a discoverable API.

Example Project

There is an example project illustrating how the library can be used in the context of a web server.


Module documentation can be found on Hackage