Rename litType to typeof

This commit is contained in:
Martin Fredin 2023-05-10 09:44:55 +02:00
parent ee30b5db45
commit 06a25de61d
2 changed files with 7 additions and 7 deletions

View file

@ -50,9 +50,9 @@ liftMM2 f m1 m2 = do
x2 <- m2
f x1 x2
litType :: Lit -> Type
litType (LInt _) = int
litType (LChar _) = char
typeof :: Lit -> Type
typeof (LInt _) = int
typeof (LChar _) = char
int = TLit "Int"
char = TLit "Char"