Language.Haskell.TH.Desugar

Desugars full Template Haskell syntax into a smaller core syntax for further processing. The desugared types and constructors are prefixed with a D.

Desugared data types

data DExp

Corresponds to TH's Exp type. Note that DLamE takes names, not patterns.

Constructors

DVarE Name

DConE Name

DLitE Lit

DAppE DExp DExp

DLamE [Name] DExp

DCaseE DExp [DMatch]

DLetE [DLetDec] DExp

DSigE DExp DType

Instances

Data DExp

Show DExp

Typeable DExp

Lift DExp

Desugar Exp DExp

data DLetDec

Declarations as used in a let statement.

Constructors

DFunD Name [DClause]

DValD DPat DExp

DSigD Name DType

DInfixD Fixity Name

Instances

Data DLetDec

Show DLetDec

Typeable DLetDec

Lift DLetDec

data DPat

Corresponds to TH's Pat type.

Constructors

DLitPa Lit

DVarPa Name

DConPa Name [DPat]

DTildePa DPat

DBangPa DPat

DWildPa

Instances

Data DPat

Show DPat

Typeable DPat

Lift DPat

data DType

Corresponds to TH's Type type.

Constructors

DForallT [DTyVarBndr] DCxt DType

DAppT DType DType

DSigT DType DKind

DVarT Name

DConT Name

DArrowT

DLitT TyLit

Instances

Data DType

Show DType

Typeable DType

Lift DType

Desugar Type DType

data DKind

Corresponds to TH's Kind type, which is a synonym for Type. DKind, though, only contains constructors that make sense for kinds.

Constructors

DForallK [Name] DKind

DVarK Name

DConK Name [DKind]

DArrowK DKind DKind

DStarK

Instances

Data DKind

Show DKind

Typeable DKind

Lift DKind

Desugar Kind DKind

type DCxt = [DPred]

Corresponds to TH's Cxt

data DPred

Corresponds to TH's Pred

Constructors

DAppPr DPred DType

DSigPr DPred DKind

DVarPr Name

DConPr Name

Instances

Data DPred

Show DPred

Typeable DPred

Lift DPred

Desugar Cxt DCxt

data DTyVarBndr

Corresponds to TH's TyVarBndr. Note that PlainTV x and KindedTV x StarT are distinct, so we retain that distinction here.

Constructors

DPlainTV Name

DKindedTV Name DKind

Instances

Data DTyVarBndr

Show DTyVarBndr

Typeable DTyVarBndr

Lift DTyVarBndr

Desugar TyVarBndr DTyVarBndr

data DMatch

Corresponds to TH's Match type.

Constructors

DMatch DPat DExp

Instances

Data DMatch

Show DMatch

Typeable DMatch

Lift DMatch

data DClause

Corresponds to TH's Clause type.

Constructors

DClause [DPat] DExp

Instances

Data DClause

Show DClause

Typeable DClause

Lift DClause

data DDec

Corresponds to TH's Dec type.

Constructors

DLetDec DLetDec

DDataD NewOrData DCxt Name [DTyVarBndr] [DCon] [Name]

DTySynD Name [DTyVarBndr] DType

DClassD DCxt Name [DTyVarBndr] [FunDep] [DDec]

DInstanceD DCxt DType [DDec]

DForeignD DForeign

DPragmaD DPragma

DFamilyD FamFlavour Name [DTyVarBndr] (Maybe DKind)

DDataInstD NewOrData DCxt Name [DType] [DCon] [Name]

DTySynInstD Name DTySynEqn

DClosedTypeFamilyD Name [DTyVarBndr] (Maybe DKind) [DTySynEqn]

DRoleAnnotD Name [Role]

Instances

Data DDec

Show DDec

Typeable DDec

Lift DDec

Desugar [Dec] [DDec]

data NewOrData

Is it a newtype or a data type?

Constructors

Newtype

Data

Instances

Eq NewOrData

Data NewOrData

Show NewOrData

Typeable NewOrData

Lift NewOrData

data DCon

Corresponds to TH's Con type.

Constructors

DCon [DTyVarBndr] DCxt Name DConFields

Instances

Data DCon

Show DCon

Typeable DCon

Lift DCon

Desugar Con DCon

data DConFields

A list of fields either for a standard data constructor or a record data constructor.

Constructors

DNormalC [DStrictType]

DRecC [DVarStrictType]

Instances

Data DConFields

Show DConFields

Typeable DConFields

Lift DConFields

type DStrictType = (Strict, DType)

Corresponds to TH's StrictType type.

type DVarStrictType = (Name, Strict, DType)

Corresponds to TH's VarStrictType type.

data DForeign

Corresponds to TH's Foreign type.

Constructors

DImportF Callconv Safety String Name DType

DExportF Callconv String Name DType

Instances

Data DForeign

Show DForeign

Typeable DForeign

Lift DForeign

data DPragma

Corresponds to TH's Pragma type.

Constructors

DInlineP Name Inline RuleMatch Phases

DSpecialiseP Name DType (Maybe Inline) Phases

DSpecialiseInstP DType

DRuleP String [DRuleBndr] DExp DExp Phases

DAnnP AnnTarget DExp

Instances

Data DPragma

Show DPragma

Typeable DPragma

Lift DPragma

data DRuleBndr

Corresponds to TH's RuleBndr type.

Constructors

DRuleVar Name

DTypedRuleVar Name DType

Instances

Data DRuleBndr

Show DRuleBndr

Typeable DRuleBndr

Lift DRuleBndr

data DTySynEqn

Corresponds to TH's TySynEqn type (to store type family equations).

Constructors

DTySynEqn [DType] DType

Instances

Data DTySynEqn

Show DTySynEqn

Typeable DTySynEqn

Lift DTySynEqn

data DInfo

Corresponds to TH's Info type.

Constructors

DTyConI DDec (Maybe [DInstanceDec])

DVarI Name DType (Maybe Name) Fixity

The Maybe Name stores the name of the enclosing definition (datatype, for a data constructor; class, for a method), if any

DTyVarI Name DKind

DPrimTyConI Name Int Bool

The Int is the arity; the Bool is whether this tycon is unlifted.

Instances

Data DInfo

Show DInfo

Typeable DInfo

type DInstanceDec

Arguments

 = DDec

Guaranteed to be an instance declaration

data Role

Same as Role from TH; defined here for GHC 7.6.3 compatibility.

Constructors

NominalR

RepresentationalR

PhantomR

InferR

Instances

Data Role

Show Role

Typeable Role

Lift Role

data AnnTarget

Same as AnnTarget from TH; defined here for GHC 7.6.3 compatibility.

Constructors

ModuleAnnotation

TypeAnnotation Name

ValueAnnotation Name

Instances

Data AnnTarget

Show AnnTarget

Typeable AnnTarget

Lift AnnTarget

The Desugar class

class Desugar th ds | ds -> th where

This class relates a TH type with its th-desugar type and allows conversions back and forth. The functional dependency goes only one way because Type and Kind are type synonyms, but they desugar to different types.

Methods

desugar :: Quasi q => th -> q ds

sweeten :: ds -> th

Instances

Desugar Exp DExp

Desugar Type DType

Desugar TyVarBndr DTyVarBndr

Desugar Cxt DCxt

Desugar Con DCon

Desugar Kind DKind

Desugar [Dec] [DDec]

Main desugaring functions

dsExp :: Quasi q => Exp -> q DExp

Desugar an expression

dsDecs :: Quasi q => [Dec] -> q [DDec]

Desugar arbitrary Decs

dsType :: Quasi q => Type -> q DType

Desugar a type

dsKind :: Quasi q => Kind -> q DKind

Desugar a kind

dsInfo :: Quasi q => Info -> q DInfo

Desugar Info

dsPatOverExp :: Quasi q => Pat -> DExp -> q (DPat, DExp)

Desugar a pattern, along with processing a (desugared) expression that is the entire scope of the variables bound in the pattern.

dsPatsOverExp :: Quasi q => [Pat] -> DExp -> q ([DPat], DExp)

Desugar multiple patterns. Like dsPatOverExp.

dsPatX :: Quasi q => Pat -> q (DPat, [(Name, DExp)])

Desugar a pattern, returning a list of (Name, DExp) pairs of extra variables that must be bound within the scope of the pattern

dsLetDecs :: Quasi q => [Dec] -> q [DLetDec]

Desugar Decs that can appear in a let expression

dsTvb :: Quasi q => TyVarBndr -> q DTyVarBndr

Desugar a TyVarBndr

dsCxt :: Quasi q => Cxt -> q DCxt

Desugar a Cxt

dsCon :: Quasi q => Con -> q DCon

Desugar a single Con.

dsForeign :: Quasi q => Foreign -> q DForeign

Desugar a Foreign.

dsPragma :: Quasi q => Pragma -> q DPragma

Desugar a Pragma.

dsRuleBndr :: Quasi q => RuleBndr -> q DRuleBndr

Desugar a RuleBndr.

Secondary desugaring functions

type PatM q = WriterT [(Name, DExp)] q

Desugaring a pattern also returns the list of variables bound in as-patterns and the values they should be bound to. This variables must be brought into scope in the body of the pattern.

dsPred :: Quasi q => Pred -> q DCxt

Desugar a Pred, flattening any internal tuples

dsPat :: Quasi q => Pat -> PatM q DPat

Desugar a pattern.

dsDec :: Quasi q => Dec -> q [DDec]

Desugar a single Dec, perhaps producing multiple DDecs

dsLetDec :: Quasi q => Dec -> q [DLetDec]

Desugar a single Dec, perhaps producing multiple DLetDecs

dsMatches

Arguments

:: Quasi q

=> Name

Name of the scrutinee, which must be a bare var

-> [Match]

Matches of the case statement

-> q [DMatch]

Desugar a list of matches for a case statement

dsBody

Arguments

:: Quasi q

=> Body

body to desugar

-> [Dec]

where declarations

-> DExp

what to do if the guards don't match

-> q DExp

Desugar a Body

dsGuards

Arguments

:: Quasi q

=> [(Guard, Exp)]

Guarded expressions

-> DExp

What to do if none of the guards match

-> q DExp

Desugar guarded expressions

dsDoStmts :: Quasi q => [Stmt] -> q DExp

Desugar the Stmts in a do expression

dsComp :: Quasi q => [Stmt] -> q DExp

Desugar the Stmts in a list or monad comprehension

dsClauses

Arguments

:: Quasi q

=> Name

Name of the function

-> [Clause]

Clauses to desugar

-> q [DClause]

Desugar clauses to a function definition

Utility functions

applyDExp :: DExp -> [DExp] -> DExp

Apply one DExp to a list of arguments

applyDType :: DType -> [DType] -> DType

Apply one DType to a list of arguments

dPatToDExp :: DPat -> DExp

Convert a DPat to a DExp. Fails on DWildP.

removeWilds :: Quasi q => DPat -> q DPat

Remove all wildcards from a pattern, replacing any wildcard with a fresh variable

reifyWithWarning :: Quasi q => Name -> q Info

Reify a declaration, warning the user about splices if the reify fails. The warning says that reification can fail if you try to reify a type in the same splice as it is declared.

getDataD

Arguments

:: Quasi q

=> String

Print this out on failure

-> Name

Name of the datatype (data or newtype) of interest

-> q ([TyVarBndr], [Con])

Extract the TyVarBndrs and constructors given the Name of a type

dataConNameToDataName :: Quasi q => Name -> q Name

From the name of a data constructor, retrive the datatype definition it is a part of.

dataConNameToCon :: Quasi q => Name -> q Con

From the name of a data constructor, retrieve its definition as a Con

nameOccursIn :: Data a => Name -> a -> Bool

Check if a name occurs anywhere within a TH tree.

allNamesIn :: Data a => a -> [Name]

Extract all Names mentioned in a TH tree.

flattenDValD :: Quasi q => DLetDec -> q [DLetDec]

If the declaration passed in is a DValD, creates new, equivalent declarations such that the DPat in all DValDs is just a plain DVarPa. Other declarations are passed through unchanged. Note that the declarations that come out of this function are rather less efficient than those that come in: they have many more pattern matches.

getRecordSelectors

Arguments

:: Quasi q

=> DType

the type of the argument

-> DCon

-> q [DLetDec]

Produces DLetDecs representing the record selector functions from the provided DCon.

mkTypeName :: Quasi q => String -> q Name

Like TH's lookupTypeName, but if this name is not bound, then we assume it is declared in the current module.

mkDataName :: Quasi q => String -> q Name

Like TH's lookupDataName, but if this name is not bound, then we assume it is declared in the current module.

newUniqueName :: Quasi q => String -> q Name

Like newName, but even more unique (unique across different splices), and with unique nameBases.

mkTupleDExp :: [DExp] -> DExp

Make a tuple DExp from a list of DExps. Avoids using a 1-tuple.

mkTupleDPat :: [DPat] -> DPat

Make a tuple DPat from a list of DPats. Avoids using a 1-tuple.

maybeDLetE :: [DLetDec] -> DExp -> DExp

If decs is non-empty, delcare them in a let:

maybeDCaseE :: String -> DExp -> [DMatch] -> DExp

If matches is non-empty, make a case statement; otherwise make an error statement

Extracting bound names

extractBoundNamesStmt :: Stmt -> Set Name

Extract the names bound in a Stmt

extractBoundNamesDec :: Dec -> Set Name

Extract the names bound in a Dec that could appear in a let expression.

extractBoundNamesPat :: Pat -> Set Name

Extract the names bound in a Pat