43 lines
889 B
Haskell
43 lines
889 B
Haskell
module IR where
|
|
|
|
type Param = (Text, IRExpr)
|
|
|
|
data IRExpr
|
|
= Var {varName :: Text}
|
|
| Level {level :: Integer}
|
|
| App
|
|
{ appFunc :: IRExpr
|
|
, appArg :: IRExpr
|
|
}
|
|
| Abs
|
|
{ absParamName :: Text
|
|
, absParamType :: IRExpr
|
|
, absBody :: IRExpr
|
|
}
|
|
| Pi
|
|
{ piParamName :: Text
|
|
, piParamType :: IRExpr
|
|
, piBody :: IRExpr
|
|
}
|
|
| Let
|
|
{ letVarName :: Text
|
|
, letAscription :: Maybe IRExpr
|
|
, letValue :: IRExpr
|
|
, letBody :: IRExpr
|
|
}
|
|
deriving (Show, Eq, Ord)
|
|
|
|
data IRDef
|
|
= Def
|
|
{ defName :: Text
|
|
, defParams :: [Param]
|
|
, defAscription :: Maybe IRExpr
|
|
, defBody :: IRExpr
|
|
}
|
|
| Axiom
|
|
{ axiomName :: Text
|
|
, axiomParams :: [Param]
|
|
, axiomAscription :: IRExpr
|
|
}
|
|
|
|
type IRProgram = [IRDef]
|