HERMIT.Kure.SumTypes

Sum Types

data Core

Core is a sum type for use by KURE. Core = ModGuts + CoreProg + CoreBind + CoreDef + CoreExpr + CoreAlt

Constructors

GutsCore ModGuts

The module.

ProgCore CoreProg

A program (a telescope of top-level binding groups).

BindCore CoreBind

A binding group.

DefCore CoreDef

A recursive definition.

ExprCore CoreExpr

An expression.

AltCore CoreAlt

A case alternative.

Instances

(ExtendPath c Crumb, ReadPath c Crumb, AddBindings c) => Walker c Core

Walking over modules, programs, binding groups, definitions, expressions and case alternatives.

Injection ModGuts Core

Injection CoreExpr Core

Injection CoreBind Core

Injection CoreAlt Core

Injection CoreDef Core

Injection CoreProg Core

Injection Core CoreTC

Extern [RewriteH Core]

Extern (BiRewriteH Core)

Extern (RewriteH Core)

Extern (TranslateH Core String)

Extern (TranslateH Core ())

Extern (TranslateH Core LocalPathH)

data TyCo

TyCo is a sum type for use by KURE. TyCo = Type + Coercion

Constructors

TypeCore Type

A type.

CoercionCore Coercion

A coercion.

Instances

(ExtendPath c Crumb, ReadPath c Crumb, AddBindings c) => Walker c TyCo

Walking over types and coercions.

Injection Coercion TyCo

Injection Type TyCo

Injection TyCo CoreTC

data CoreTC

CoreTC is a sum type for use by KURE. CoreTC = Core + TyCo

Constructors

Core Core

TyCo TyCo

Instances

(ExtendPath c Crumb, ReadPath c Crumb, AddBindings c) => Walker c CoreTC

Walking over modules, programs, binding groups, definitions, expressions and case alternatives.

Injection ModGuts CoreTC

Injection CoreExpr CoreTC

Injection CoreBind CoreTC

Injection CoreAlt CoreTC

Injection Coercion CoreTC

Injection Type CoreTC

Injection CoreDef CoreTC

Injection CoreProg CoreTC

Injection TyCo CoreTC

Injection Core CoreTC

Extern (RewriteH CoreTC)

Extern (TranslateDocH CoreTC)

Extern (TranslateH CoreTC String)

Extern (TranslateH CoreTC ())

Extern (TranslateH CoreTC LocalPathH)

Equality

Syntactic Equality

coreSyntaxEq :: Core -> Core -> Bool

Syntactic equality of Core fragments.

tyCoSyntaxEq :: TyCo -> TyCo -> Bool

Syntactic equality of TyCo fragments.

coreTCSyntaxEq :: CoreTC -> CoreTC -> Bool

Syntactic equality of CoreTC fragments.

Alpha Equality

coreAlphaEq :: Core -> Core -> Bool

Alpha equality of Core fragments.

tyCoAlphaEq :: TyCo -> TyCo -> Bool

Alpha equality of TyCo fragments.

coreTCAlphaEq :: CoreTC -> CoreTC -> Bool

Alpha equality of CoreTC fragments.

Collecting Free Variables

freeVarsCore :: Core -> VarSet

Find all free variables in a Core node.

freeVarsTyCo :: TyCo -> VarSet

Find all free variables in a TyCo node.

freeVarsCoreTC :: CoreTC -> VarSet

Find all free variables in a CoreTC node.

Promotion Combinators

Translate Promotions

promoteModGutsT :: (Monad m, Injection ModGuts g) => Translate c m ModGuts b -> Translate c m g b

Promote a translate on ModGuts.

promoteProgT :: (Monad m, Injection CoreProg g) => Translate c m CoreProg b -> Translate c m g b

Promote a translate on CoreProg.

promoteBindT :: (Monad m, Injection CoreBind g) => Translate c m CoreBind b -> Translate c m g b

Promote a translate on CoreBind.

promoteDefT :: (Monad m, Injection CoreDef g) => Translate c m CoreDef b -> Translate c m g b

Promote a translate on CoreDef.

promoteExprT :: (Monad m, Injection CoreExpr g) => Translate c m CoreExpr b -> Translate c m g b

Promote a translate on CoreExpr.

promoteAltT :: (Monad m, Injection CoreAlt g) => Translate c m CoreAlt b -> Translate c m g b

Promote a translate on CoreAlt.

promoteTypeT :: (Monad m, Injection Type g) => Translate c m Type b -> Translate c m g b

Promote a translate on Type.

promoteCoercionT :: (Monad m, Injection Coercion g) => Translate c m Coercion b -> Translate c m g b

Promote a translate on Coercion.

Rewrite Promotions

promoteModGutsR :: (Monad m, Injection ModGuts g) => Rewrite c m ModGuts -> Rewrite c m g

Promote a rewrite on ModGuts.

promoteProgR :: (Monad m, Injection CoreProg g) => Rewrite c m CoreProg -> Rewrite c m g

Promote a rewrite on CoreProg.

promoteBindR :: (Monad m, Injection CoreBind g) => Rewrite c m CoreBind -> Rewrite c m g

Promote a rewrite on CoreBind.

promoteDefR :: (Monad m, Injection CoreDef g) => Rewrite c m CoreDef -> Rewrite c m g

Promote a rewrite on CoreDef.

promoteExprR :: (Monad m, Injection CoreExpr g) => Rewrite c m CoreExpr -> Rewrite c m g

Promote a rewrite on CoreExpr.

promoteAltR :: (Monad m, Injection CoreAlt g) => Rewrite c m CoreAlt -> Rewrite c m g

Promote a rewrite on CoreAlt.

promoteTypeR :: (Monad m, Injection Type g) => Rewrite c m Type -> Rewrite c m g

Promote a rewrite on Type.

promoteCoercionR :: (Monad m, Injection Coercion g) => Rewrite c m Coercion -> Rewrite c m g

Promote a rewrite on Coercion.

BiRewrite Promotions

promoteExprBiR :: (Monad m, Injection CoreExpr g) => BiRewrite c m CoreExpr -> BiRewrite c m g

Promote a bidirectional rewrite on CoreExpr.