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

Methods

fmap :: (a -> b) -> ValueF a -> ValueF b

(<$) :: a -> ValueF b -> ValueF a

Foldable ValueF

Methods

fold :: Monoid m => ValueF m -> m

foldMap :: Monoid m => (a -> m) -> ValueF a -> m

foldr :: (a -> b -> b) -> b -> ValueF a -> b

foldr' :: (a -> b -> b) -> b -> ValueF a -> b

foldl :: (b -> a -> b) -> b -> ValueF a -> b

foldl' :: (b -> a -> b) -> b -> ValueF a -> b

foldr1 :: (a -> a -> a) -> ValueF a -> a

foldl1 :: (a -> a -> a) -> ValueF a -> a

toList :: ValueF a -> [a]

null :: ValueF a -> Bool

length :: ValueF a -> Int

elem :: Eq a => a -> ValueF a -> Bool

maximum :: Ord a => ValueF a -> a

minimum :: Ord a => ValueF a -> a

sum :: Num a => ValueF a -> a

product :: Num a => ValueF a -> a

Traversable ValueF

Methods

traverse :: Applicative f => (a -> f b) -> ValueF a -> f (ValueF b)

sequenceA :: Applicative f => ValueF (f a) -> f (ValueF a)

mapM :: Monad m => (a -> m b) -> ValueF a -> m (ValueF b)

sequence :: Monad m => ValueF (m a) -> m (ValueF a)

Eq a => Eq (ValueF a)

Methods

(==) :: ValueF a -> ValueF a -> Bool

(/=) :: ValueF a -> ValueF a -> Bool

Data a => Data (ValueF a)

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ValueF a -> c (ValueF a)

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (ValueF a)

toConstr :: ValueF a -> Constr

dataTypeOf :: ValueF a -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c (ValueF a))

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (ValueF a))

gmapT :: (forall b. Data b => b -> b) -> ValueF a -> ValueF a

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ValueF a -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ValueF a -> r

gmapQ :: (forall d. Data d => d -> u) -> ValueF a -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> ValueF a -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ValueF a -> m (ValueF a)

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ValueF a -> m (ValueF a)

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ValueF a -> m (ValueF a)

Read a => Read (ValueF a)

Methods

readsPrec :: Int -> ReadS (ValueF a)

readList :: ReadS [ValueF a]

readPrec :: ReadPrec (ValueF a)

readListPrec :: ReadPrec [ValueF a]

Show a => Show (ValueF a)

Methods

showsPrec :: Int -> ValueF a -> ShowS

show :: ValueF a -> String

showList :: [ValueF a] -> ShowS

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