Network.Ethereum.ABI.Event.Internal

This module is internal, the purpose is to define helper classes and types to assist in event decoding. The user of this library should have no need to use this directly in application code.

Documentation

data HList :: [Type] -> Type where

Constructors

HNil :: HList '[]

(:<) :: a -> HList as -> HList (a ': as) infixr 0

class HListRep a xs | a -> xs, a -> xs where

Generic representation to HList representation

Minimal complete definition

toHList, fromHList

Methods

toHList :: a -> HList xs

fromHList :: HList xs -> a

Instances

HListRep (NP k f as') as => HListRep (SOP k f ((:) [k] as' ([] [k]))) as

Methods

toHList :: SOP k f (([k] ': as') [[k]]) -> HList as

fromHList :: HList as -> SOP k f (([k] ': as') [[k]])

HListRep (NP * I ([] *)) ([] Type)

Methods

toHList :: NP * I [*] -> HList [Type]

fromHList :: HList [Type] -> NP * I [*]

HListRep (NP * I as) as => HListRep (NP * I ((:) * a as)) ((:) * a as)

Methods

toHList :: NP * I ((* ': a) as) -> HList ((* ': a) as)

fromHList :: HList ((* ': a) as) -> NP * I ((* ': a) as)

class Sort (xs :: [Type]) where

Sort a Tagged HList

Minimal complete definition

sort

Associated Types

type Sort' xs :: [Type]

Methods

sort :: HList xs -> HList (Sort' xs)

Instances

Sort ([] Type)

Associated Types

type Sort' ([Type] :: [Type]) :: [Type]

Methods

sort :: HList [Type] -> HList (Sort' [Type])

(Sort xs, Insert x (Sort' xs)) => Sort ((:) Type x xs)

Associated Types

type Sort' ((Type ': x) xs :: [Type]) :: [Type]

Methods

sort :: HList ((Type ': x) xs) -> HList (Sort' ((Type ': x) xs))

class Insert (x :: Type) (xs :: [Type]) where

Minimal complete definition

insert

Associated Types

type Insert' x xs :: [Type]

Methods

insert :: x -> HList xs -> HList (Insert' x xs)

Instances

Insert x ([] Type)

Associated Types

type Insert' x ([Type] :: [Type]) :: [Type]

Methods

insert :: x -> HList [Type] -> HList (Insert' x [Type])

InsertCmp (CmpNat n m) (Tagged Nat n x) (Tagged Nat m y) ys => Insert (Tagged Nat n x) ((:) * (Tagged Nat m y) ys)

Associated Types

type Insert' (Tagged Nat n x) ((* ': Tagged Nat m y) ys :: [Type]) :: [Type]

Methods

insert :: Tagged Nat n x -> HList ((* ': Tagged Nat m y) ys) -> HList (Insert' (Tagged Nat n x) ((* ': Tagged Nat m y) ys))

class InsertCmp (b :: Ordering) (x :: Type) (y :: Type) (ys :: [Type]) where

Minimal complete definition

insertCmp

Associated Types

type InsertCmp' b x y ys :: [Type]

Methods

insertCmp :: Proxy (b :: Ordering) -> x -> y -> HList ys -> HList (InsertCmp' b x y ys)

Instances

InsertCmp LT x y ys

Associated Types

type InsertCmp' (LT :: Ordering) x y (ys :: [Type]) :: [Type]

Methods

insertCmp :: Proxy Ordering LT -> x -> y -> HList ys -> HList (InsertCmp' LT x y ys)

Insert x ys => InsertCmp GT x y ys

Associated Types

type InsertCmp' (GT :: Ordering) x y (ys :: [Type]) :: [Type]

Methods

insertCmp :: Proxy Ordering GT -> x -> y -> HList ys -> HList (InsertCmp' GT x y ys)

class UnTag t where

Unwrap all the Tagged items in an HList

Minimal complete definition

unTag

Associated Types

type UnTag' t :: [Type]

Methods

unTag :: HList t -> HList (UnTag' t)

Instances

UnTag ([] Type)

Associated Types

type UnTag' ([Type] :: [Type]) :: [Type]

Methods

unTag :: HList [Type] -> HList (UnTag' [Type])

UnTag ts => UnTag ((:) * (Tagged k n a) ts)

Associated Types

type UnTag' ((* ': Tagged k n a) ts :: [Type]) :: [Type]

Methods

unTag :: HList ((* ': Tagged k n a) ts) -> HList (UnTag' ((* ': Tagged k n a) ts))

class HListMerge (as :: [Type]) (bs :: [Type]) where

Minimal complete definition

mergeHList

Associated Types

type Concat as bs :: [Type]

Methods

mergeHList :: HList as -> HList bs -> HList (Concat as bs)

Instances

HListMerge ([] Type) bs

Associated Types

type Concat ([Type] :: [Type]) (bs :: [Type]) :: [Type]

Methods

mergeHList :: HList [Type] -> HList bs -> HList (Concat [Type] bs)

HListMerge as bs => HListMerge ((:) Type a as) bs

Associated Types

type Concat ((Type ': a) as :: [Type]) (bs :: [Type]) :: [Type]

Methods

mergeHList :: HList ((Type ': a) as) -> HList bs -> HList (Concat ((Type ': a) as) bs)

class HListMergeSort as bs where

Minimal complete definition

mergeSortHList

Associated Types

type MergeSort' as bs :: [Type]

Methods

mergeSortHList :: HList as -> HList bs -> HList (MergeSort' as bs)

Instances

(HListMerge as bs, (~) [Type] (Concat as bs) cs, Sort cs, (~) [Type] (Sort' cs) cs') => HListMergeSort as bs

Associated Types

type MergeSort' (as :: [Type]) (bs :: [Type]) :: [Type]

Methods

mergeSortHList :: HList as -> HList bs -> HList (MergeSort' as bs)

class MergeIndexedArguments as bs where

Minimal complete definition

mergeIndexedArguments

Associated Types

type MergeIndexedArguments' as bs :: [Type]

Methods

mergeIndexedArguments :: HList as -> HList bs -> HList (MergeIndexedArguments' as bs)

Instances

(HListMergeSort as bs, (~) [Type] (MergeSort' as bs) cs, UnTag cs, (~) Constraint (UnTag cs') ds) => MergeIndexedArguments as bs

Associated Types

type MergeIndexedArguments' (as :: [Type]) (bs :: [Type]) :: [Type]

Methods

mergeIndexedArguments :: HList as -> HList bs -> HList (MergeIndexedArguments' as bs)