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

Tried fixing bug. Failed.

Browse source
This commit is contained in:
sebastianselander 2023-02-19 02:10:57 +01:00
parent 8b5cd3cf9a
commit db932048ba
3 changed files with 50 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/TypeChecker/HMIr.hs
View file

@ -20,7 +20,15 @@ data Exp
| EApp Type Exp Exp
| EAdd Type Exp Exp
| EAbs Type Ident Exp
deriving (C.Eq, C.Ord, C.Show, C.Read)
deriving (C.Eq, C.Ord, C.Read)
instance Show Exp where
show (EId t (Ident i)) = i ++ " : " ++ show t
show (EInt _ i) = show i
show (ELet t i e1 e2) = error "Show for let not implemented"
show (EApp t e1 e2) = show e1 ++ " " ++ show e2 ++ " : " ++ show t
show (EAdd _ e1 e2) = show e1 ++ " + " ++ show e2
show (EAbs t (Ident i) e) = "\\ " ++ i ++ ". " ++ show e ++ " : " ++ show t
type Id = (Type, Ident)