Module

Heterogeneous.Mapping

class Mapping f a b | f a -> b where

class MappingWithIndex f i a b | f a -> b, f -> i where

newtype ConstMapping f

class HMap f a b | a -> f b where

(Functor f, Mapping fn a b) => HMap fn (App f a) (App f b)
(RowToList rin rl, MapRecordWithIndex rl (ConstMapping fn) rin rout) => HMap fn (Record rin) (Record rout)
(Mapping fn a a', Mapping fn b b') => HMap fn (Tuple a b) (Tuple a' b')
(Mapping fn a a', Mapping fn b b') => HMap fn (Either a b) (Either a' b')
(RowToList rin rl, MapVariantWithIndex rl (ConstMapping fn) rin rout) => HMap fn (Variant rin) (Variant rout)
(RowToList rin rl, MapVariantFWithIndex rl (ConstMapping fn) rin rout x y) => HMap fn (VariantF rin x) (VariantF rout y)

class HMapWithIndex f a b | a -> f b where

class MapRecordWithIndex (xs :: RowList) f (as :: Row Type) (bs :: Row Type) | xs -> f as bs where

(IsSymbol sym, MappingWithIndex f (SProxy sym) a b, MapRecordWithIndex rest f as bs', Cons sym a bx bs', Cons sym b bx bs) => MapRecordWithIndex (Cons sym a rest) f as bs
MapRecordWithIndex Nil fn as as

class MapVariantWithIndex (xs :: RowList) f (as :: Row Type) (bs :: Row Type) | xs -> f as bs where

(IsSymbol sym, Cons sym a r1 r2, Cons sym b r3 r4, MappingWithIndex fn (SProxy sym) a b, MapVariantWithIndex rest fn r1 r4) => MapVariantWithIndex (Cons sym a rest) fn r2 r4
MapVariantWithIndex Nil fn () r

class MapVariantFWithIndex (xs :: RowList) f (as :: Row Type) (bs :: Row Type) x y | xs -> f as bs x y where

(IsSymbol sym, Cons sym (FProxy a) r1 r2, Cons sym (FProxy b) r3 r4, MappingWithIndex fn (SProxy sym) (a x) (b y), MapVariantFWithIndex rest fn r1 r4 x y, Functor b) => MapVariantFWithIndex (Cons sym (FProxy a) rest) fn r2 r4 x y
MapVariantFWithIndex Nil fn () r x y