Language.Haskell.Generate.Base

Documentation

newtype ExpM t a

A ExpM is a monad used to track the imports that are needed for a given expression. Usually, you don't have to use this type directly, but use combinators to combine several ExpM into bigger expressions. The t type parameter tracks the type of the expression, so you don't accidently build expression that don't type check.

Constructors

ExpM

Fields

unExpM :: StateT Integer (Writer (Set ModuleName)) a

Instances

Monad (ExpM t)

Functor (ExpM t)

Num t => Num (ExpG t)

Applicative (ExpM t)

GenExp (ExpG a)

GenExp x => GenExp (ExpG a -> x)

type ExpG t = ExpM t Exp

The ExpG type is a ExpM computation that returns an expression. Usually, this is the end result of a function generating a haskell expression

type family ExpType a :: *

This type family can be used to get the type associated with some expression.

runExpM :: ExpM t a -> (a, Set ModuleName)

Evaluate a ExpM action, returning the needed modules and the value.

newName :: String -> ExpM t Name

Generate a new unique variable name with the given prefix. Note that this new variable name is only unique relative to other variable names generated by this function.

useValue :: String -> Name -> ExpG a

Import a function from a module. This function is polymorphic in the type of the resulting expression, you should probably only use this function to define type-restricted specializations.

Example:

 addInt :: ExpG (Int -> Int -> Int) -- Here we restricted the type to something sensible
 addInt = useValue "Prelude" $ Symbol "+"

useCon :: String -> Name -> ExpM t QName

Import a value constructor from a module. Returns the qualified name of the constructor.

useVar :: Name -> ExpG t

Use the value of a variable with the given name.

caseE :: ExpG x -> [(Pat, ExpG t)] -> ExpG t

Generate a case expression.

applyE :: ExpG (a -> b) -> ExpG a -> ExpG b

Apply a function in a haskell expression to a value.

applyE2 :: ExpG (a -> b -> c) -> ExpG a -> ExpG b -> ExpG c

ApplyE for 2 arguments

applyE3 :: ExpG (a -> b -> c -> d) -> ExpG a -> ExpG b -> ExpG c -> ExpG d

Apply a function to 3 arguments

applyE4 :: ExpG (a -> b -> c -> d -> e) -> ExpG a -> ExpG b -> ExpG c -> ExpG d -> ExpG e

Apply a function to 4 arguments

applyE5 :: ExpG (a -> b -> c -> d -> e -> f) -> ExpG a -> ExpG b -> ExpG c -> ExpG d -> ExpG e -> ExpG f

Apply a function to 5 arguments

applyE6 :: ExpG (a -> b -> c -> d -> e -> f -> g) -> ExpG a -> ExpG b -> ExpG c -> ExpG d -> ExpG e -> ExpG f -> ExpG g

Apply a function to 6 arguments

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

Operator for applyE.

class GenExp t where

Generate a expression from a haskell value.

Associated Types

type GenExpType t :: *

Methods

expr :: t -> ExpG (GenExpType t)

This function generates the haskell expression from the given haskell value.

Instances

GenExp Char

GenExp Integer

GenExp Rational

GenExp a => GenExp [a]

GenExp (FunRef t)

GenExp (ExpG a)

GenExp x => GenExp (ExpG a -> x)

newtype ModuleM a

A module keeps track of the needed imports, but also has a list of declarations in it.

Constructors

ModuleM (Writer (Set ModuleName, [Decl]) a)

Instances

Monad ModuleM

Functor ModuleM

Applicative ModuleM

type ModuleG = ModuleM (Maybe [ExportSpec])

This is the resulting type of a function generating a module. It is a ModuleM action returning the export list.

data FunRef t

A reference to a function. With a reference to a function, you can apply it (by lifting it into ExprT using expr) to some value or export it using exportFun.

Constructors

FunRef Name

Instances

GenExp (FunRef t)

data Name

This type is used to represent variables, and also constructors.

Constructors

Ident String

varid or conid.

Symbol String

varsym or consym

Instances

Eq Name

Data Name

Ord Name

Show Name

Typeable Name

Pretty Name

exportFun :: FunRef t -> ExportSpec

Generate a ExportSpec for a given function item.

addDecl :: Name -> ExpG t -> ModuleM (FunRef t)

Add a declaration to the module. Return a reference to it that can be used to either apply the function to some values or export it.

runModuleM :: ModuleG -> String -> Module

Extract the Module from a module generator.

generateModule :: ModuleG -> String -> String

Generate the source code for a module.