Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

created dummy monomorphizer

Browse source
This commit is contained in:
sebastianselander 2023-03-23 18:15:25 +01:00
parent c19f821892
commit c6e8305215
3 changed files with 57 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/Monomorphizer/MonomorphizerIr.hs
View file

@ -1,12 +1,9 @@
module Monomorphizer.MonomorphizerIr (module Monomorphizer.MonomorphizerIr, module RE1, module RE2) where
import qualified Grammar.Abs as RE1 (Data (..), Ident (..),
Init (..))
import qualified TypeChecker.TypeCheckerIr as RE2 (ExpT, Id, Indexed)
import Grammar.Abs (Data (..), Ident (..), Init (..))
import TypeChecker.TypeCheckerIr (ExpT, Id, Indexed)
module Monomorphizer.MonomorphizerIr (module Monomorphizer.MonomorphizerIr, module RE, module GA) where
import Grammar.Abs (Data, Ident, Init)
import Grammar.Abs qualified as GA (Data, Ident, Init)
import TypeChecker.TypeCheckerIr (ExpT, Id, Indexed)
import TypeChecker.TypeCheckerIr qualified as RE (ExpT, Id, Indexed)
newtype Program = Program [Def]
deriving (Show, Ord, Eq)
@ -20,10 +17,10 @@ data Bind = Bind Id [Id] ExpT
data Exp
= EId Ident
| ELit Lit
| ELet Id ExpT ExpT
| EApp Type ExpT ExpT
| EAdd Type ExpT ExpT
| ECase Type ExpT [Injection]
| ELet Bind ExpT
| EApp ExpT ExpT
| EAdd ExpT ExpT
| ECase ExpT [Injection]
deriving (Show, Ord, Eq)
data Injection = Injection (Init, Type) ExpT
@ -37,5 +34,5 @@ data Lit
| LChar Char
deriving (Show, Ord, Eq)
newtype Type = Type Ident
data Type = TLit Ident | TFun Type Type
deriving (Show, Ord, Eq)