Data.Aeson.Extra.Merge

Documentation

merge :: (forall a. (a -> a -> a) -> ValueF a -> ValueF a -> ValueF a) -> Value -> Value -> Value

Generic merge.

For example https://lodash.com/docs#merge:

lodashMerge :: Value -> Value -> Value
lodashMerge x y = merge lodashMergeAlg x y

lodashMergeAlg :: (a -> a -> a) -> ValueF a -> ValueF a -> ValueF a
lodashMergeAlg r a' b' = case (a', b') of
    (ObjectF a, ObjectF b) -> ObjectF $ alignWith f a b
    (ArrayF a,  ArrayF b)  -> ArrayF $ alignWith f a b
    (_,         b)         -> b
  where f (These x y) = r x y
        f (This x)    = x
        f (That x)    = x

Since: aeson-extra-0.3.1.0

mergeA :: Functor f => (forall a. (a -> a -> f a) -> ValueF a -> ValueF a -> f (ValueF a)) -> Value -> Value -> f Value

Generic merge, in arbitrary context.

Since: aeson-extra-0.3.1.0

data ValueF a

An algebra of Value

Since: aeson-extra-0.3.1.0

Constructors

ObjectF (ObjectF a)

ArrayF !(ArrayF a)

StringF !Text

NumberF !Scientific

BoolF !Bool

NullF

Instances

Functor ValueF

Foldable ValueF

Traversable ValueF

Eq a => Eq (ValueF a)

Data a => Data (ValueF a)

Read a => Read (ValueF a)

Show a => Show (ValueF a)

type ObjectF a = HashMap Text a

A JSON "object" (key/value map).

Since: aeson-extra-0.3.1.0

type ArrayF a = Vector a

A JSON "array" (sequence).

Since: aeson-extra-0.3.1.0