Waargonaut.Generic

This module contains the types and functions that power the Generic functions for Waargonaut. Code that writes the code so you don't have to.

Rationale

Although creating your Decoders and Encoders explicitly is the preferred way of utilising Waargonaut. The Generic mechanism within Haskell provides immense opportunity to reduce or eliminate the need to write code. Given the mechanical nature of JSON this a benefit that cannot be ignored.

There are two typeclasses provided, JsonEncode and JsonDecode. Each with a single function that will generate a Encoder or Decoder for that type. Normally, typeclasses such as these are only parameterised over the type that is to be encoded/decoded. Which is acceptable if there is only ever a single possible way to encode or decode a value of that type. However this is rarely the case, even with respect to strings or numbers.

To account for this, the JsonEncode and JsonDecode typeclasses require an additional type parameter t . This parameter allows you to differentiate between the alternative ways of encoding or decoding a single type a . This parameter is attached to the Encoder or Decoder using the Tagged newtype. Allowing the type system to help you keep track of them.

Quick Start

A quick example on how to use the Waargonaut Generic functionality. We will use the following type and let GHC and Generic write our Encoder and Decoder for us.

data Image = Image
  { _imageWidth    :: Int
  , _imageHeight   :: Int
  , _imageTitle    :: Text
  , _imageAnimated :: Bool
  , _imageIDs      :: [Int]
  }
  deriving (Eq, Show)

Ensure we have the required imports and language options:

{-# LANGUAGE DeriveGeneric #-}
import qualified GHC.Generic as GHC
import Waargonaut.Generic (Generic, HasDatatypeInfo, JsonEncode, JsonDecode, GWaarg)

Update our data type 'deriving' to have GHC to do the heavy lifting:

data Image = Image
  ...
  deriving (..., GHC.Generic)

Because Waargonaut uses the 'generics-sop' package to make the Generic functions easier to write and maintain. We need two more instances, note that we don't have to write these either. We can leave these empty and the default implementations, courtesy of Generic, will handle it for us.

instance HasDatatypeInfo Image
instance Generic Image

Now we can define our JsonEncode and JsonDecode instances. We need to provide the t parameter. Assume we have no special requirements, so we can use the GWaarg tag.

instance JsonEncode GWaarg Image
instance JsonDecode GWaarg Image

That's it! We can now use mkEncoder and mkDecoder to write the code for our Image type. These will be tagged with our GWaarg phantom type parameter:

mkEncoder :: Applicative f => Tagged GWaarg (Encoder f Image)
mkDecoder :: Monad f       => Tagged GWaarg (Decoder f Image)

The encoding and decoding "runner" functions will require that you remove the tag. You can use the untag function for this. The next section will discuss the Tagged type.

There is Template Haskell available that can write all of the Generic deriving for you, see the 'Generics.SOP.TH' module in the 'generics-sop' package for more. Given how little boilerplate code is required and that the Template Haskell extension enforces a strict ordering of code within the file. It is not the recommended solution. But I'm not your supervisor, I'm just a library.

Tagged

The Tagged type comes from the 'tagged' package. It is a 'newtype' that provides a phantom type parameter. As well as having a several useful typeclass instances and helpful functions already written for us.

When dealing with the Tagged Encoders and Decoders there are two functions that are particularly useful; untag, and proxy.

The untag function removes the tag from the inner type:

untag :: -- forall k (s :: k) b. Tagged s b -> b

When used with one of the Tagged Generic functions:

let e = mkEncoder :: Applicative f => Tagged GWaarg (Encoder f Image)

untag e :: Applicative f => Encoder f Image

The other function proxy, allows you to use mkEncoder or mkDecoder with the desired t parameter and then immediately remove the tag. This function requires the use of some proxy that carries the same t of your instance:

proxy :: Tagged s a -> proxy s -> a

One way to utilise this function is in combination with Proxy from base:

(proxy mkDecoder (Proxy :: Proxy GWaarg)) :: Monad f => Decoder f Image

This lets you skip the untag step but without losing the safety of the Tagged phantom type.

GHC >= 8 Convenience

All of the techniques described above are explicit and will work in all versions of GHC that Waargonaut supports. Should you be running a GHC that is version 8.0.1 or later, then you have access to a language extension called TypeApplications.

This extension allows you to avoid much of the explicit type annotations described in Tagged section of Waargonaut.Generic. For example the proxy function may be utilised like so:

(proxy mkDecoder (Proxy :: Proxy GWaarg)) :: Monad f => Decoder f Image

Becomes:

(proxy mkDecoder @GWaarg) :: Monad f => Decoder f Image

You can also use the TypeApplications directly on the mkEncoder or mkDecoder function:

mkEncoder @GWaarg :: Applicative f => Tagged GWaarg (Encoder f Image)
mkDecoder @GWaarg :: Monad f       => Tagged GWaarg (Decoder f Image)

TypeClasses

class JsonEncode t a where

Encoding Typeclass for Waargonaut.

This type class is responsible for creating an Encoder for the type of a , differentiated from the other possible instances of this typeclass for type a by the tag type t .

To create a Tagged Encoder for the purposes of writing an instance your self, you need only data constructor Tagged from Tagged. It has been re-exported from this module.

instance JsonEncode GWaarg Foo where
  mkEncoder = Tagged fooEncoderIWroteEarlier

Minimal complete definition

Nothing

Methods

mkEncoder :: Applicative f => Tagged t (Encoder f a)

default mkEncoder :: (Applicative f, Generic a, HasDatatypeInfo a, All2 (JsonEncode t) (Code a)) => Tagged t (Encoder f a)

Instances

JsonEncode (t :: k) Json

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f Json)

JsonEncode (t :: k) Bool

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f Bool)

JsonEncode (t :: k) Scientific

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f Scientific)

JsonEncode (t :: k) Int

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f Int)

JsonEncode (t :: k) Text

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f Text)

JsonEncode t a => JsonEncode (t :: k) (NonEmpty a)

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f (NonEmpty a))

JsonEncode t a => JsonEncode (t :: k) [a]

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f [a])

JsonEncode t a => JsonEncode (t :: k) (Maybe a)

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f (Maybe a))

(JsonEncode t a, JsonEncode t b) => JsonEncode (t :: k) (Either a b)

Defined in Waargonaut.Generic

Methods

mkEncoder :: forall (f :: Type -> Type). Applicative f => Tagged t (Encoder f (Either a b))

class JsonDecode t a where

Decoding Typeclass for Waargonaut

Responsible for creating a Decoder for the type a , differentiated from the other possible instances of this typeclass for type a by the tag type t .

To create a Tagged Decoder for the purposes of writing an instance your self, you need only data constructor Tagged from Tagged. It has been re-exported from this module.

instance JsonDecode GWaarg Foo where
  mkDecoder = Tagged fooDecoderIWroteEarlier

Minimal complete definition

Nothing

Methods

mkDecoder :: Monad f => Tagged t (Decoder f a)

default mkDecoder :: (Monad f, Generic a, HasDatatypeInfo a, All2 (JsonDecode t) (Code a)) => Tagged t (Decoder f a)

Instances

JsonDecode (t :: k) Json

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f Json)

JsonDecode (t :: k) Bool

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f Bool)

JsonDecode (t :: k) Scientific

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f Scientific)

JsonDecode (t :: k) Int

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f Int)

JsonDecode (t :: k) Text

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f Text)

JsonDecode t a => JsonDecode (t :: k) (NonEmpty a)

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f (NonEmpty a))

JsonDecode t a => JsonDecode (t :: k) [a]

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f [a])

JsonDecode t a => JsonDecode (t :: k) (Maybe a)

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f (Maybe a))

(JsonDecode t a, JsonDecode t b) => JsonDecode (t :: k) (Either a b)

Defined in Waargonaut.Generic

Methods

mkDecoder :: forall (f :: Type -> Type). Monad f => Tagged t (Decoder f (Either a b))

Tag

data GWaarg

This is a provided tag that may be used for tagging the JsonEncode and JsonDecode instances. You are encouraged to make your own tags for full control of your own instances.

Options

data NewtypeName

The options we currently have for using the Generic mechanism to handle 'newtype' values:

Constructors

Unwrap

Discard the newtype wrapper and encode the inner value.

newtype Foo = Foo Text

let x = Foo "Fred"

Will be encoded as: "Fred"

ConstructorNameAsKey

Encode the newtype value as an object using the constructor as the "key".

newtype Foo = Foo Text

let x = Foo "Fred"

Will be encoded as: {"Foo":"Fred"}

FieldNameAsKey

Encode the newtype value as an object, treaing the field accessor as the "key", and passing that field name through the _optionsFieldName function.

newtype Foo = Foo { deFoo :: Text }

let x = Foo "Fred"

Will be encoded as: {"deFoo":"Fred"}

Instances

Eq NewtypeName

Defined in Waargonaut.Generic

Methods

(==) :: NewtypeName -> NewtypeName -> Bool

(/=) :: NewtypeName -> NewtypeName -> Bool

Show NewtypeName

Defined in Waargonaut.Generic

Methods

showsPrec :: Int -> NewtypeName -> ShowS

show :: NewtypeName -> String

showList :: [NewtypeName] -> ShowS

data Options

The configuration options for creating Generic encoder or decoder values.

Constructors

Options

Fields

• _optionsFieldName :: String -> String

  When encoding/decoding a record type, this function will be used on the field names to determine how they will be encoded. Or what keys to look up on the JSON object when it is being decoded.

• _optionsNewtypeWithConsName :: NewtypeName

  How to handle 'newtype' values. See NewtypeName for more info.

defaultOpts :: Options

Default options for Generic functionality:

• Field names are left untouched: (id)
• Newtype values are encoded as raw values: (Unwrap)

trimPrefixLowerFirst :: Text -> String -> String

Helper function to alter record field names for encoding and decoding. Intended use is to be given the prefix you would like to have removed and then included in the Options for the typeclass you are implementing.

A common use case when encoding Haskell record types is to remove a prefix and then lower-case the first letter:

>>> trimPrefixLowerFirst "_image" "_imageHeight"
"height"

>>> trimPrefixLowerFirst "_image" "Height"
"Height"

>>> trimPrefixLowerFirst "_image" ""
""

>>> trimPrefixLowerFirst "" "_imageHeight"
"_imageHeight"

Creation

gEncoder :: forall t a f. (Generic a, Applicative f, HasDatatypeInfo a, All2 (JsonEncode t) (Code a)) => Options -> Tagged t (Encoder f a)

Create a Tagged Encoder for type a , tagged by t , using the given Options.

Combined with the defaultOpts this is the default implementation of JsonEncode.

Some examples:

instance JsonEncode GWaarg Image where
  mkEncoder = gEncoder defaultOpts

instance JsonEncode GWaarg Image where
  mkEncoder = gEncoder (defaultOpts { _optionsFieldName = trimPrefixLowerFirst "_image" })

gDecoder :: forall f a t. (Generic a, HasDatatypeInfo a, All2 (JsonDecode t) (Code a), Monad f) => Options -> Tagged t (Decoder f a)

Create a Tagged Decoder for type a , tagged by t , using the given Options.

Combined with the defaultOpts this is the default implementation of JsonEncode.

Some examples:

instance JsonEncode GWaarg Image where
  mkDecoder = gDecoder defaultOpts

instance JsonEncode GWaarg Image where
  mkDecoder = gDecoder (defaultOpts { _optionsFieldName = trimPrefixLowerFirst "_image" })

gObjEncoder :: forall t a f xs. (Generic a, Applicative f, HasDatatypeInfo a, All2 (JsonEncode t) (Code a), IsRecord a xs) => Options -> Tagged t (ObjEncoder f a)

Create a Tagged ObjEncoder for type a , tagged by t .

This isn't compatible with the JsonEncode typeclass because it creates an ObjEncoder and for consistency reasons the JsonEncode typeclass produces Encoders.

However it lets you more easily access the Contravariant functionality that is part of the ObjEncoder type.

data Foo = Foo { fooA :: Text, fooB :: Int } deriving (Eq, Show)
deriveGeneric ''Foo

objEncFoo :: Applicative f => ObjEncoder f Foo
objEncFoo = untag $ gObjEncoder (defaultOps { _optionsFieldName = drop 3 })

NB: This function overrides the newtype options to use the FieldNameAsKey option to be consistent with the behaviour of the record encoding.

Reexports

class All (SListI :: [Type] -> Constraint) (Code a) => Generic a where

Minimal complete definition

Nothing

Associated Types

type Code a :: [[Type]]

type Code a = GCode a

Methods

from :: a -> Rep a

to :: Rep a -> a

class Generic a => HasDatatypeInfo a where

Minimal complete definition

Nothing

Associated Types

type DatatypeInfoOf a :: DatatypeInfo

type DatatypeInfoOf a = GDatatypeInfoOf a

Methods

datatypeInfo :: proxy a -> DatatypeInfo (Code a)