aboutsummaryrefslogtreecommitdiff
path: root/TypeRules.hs
diff options
context:
space:
mode:
Diffstat (limited to 'TypeRules.hs')
-rw-r--r--TypeRules.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/TypeRules.hs b/TypeRules.hs
index 2bafe63..b73daf2 100644
--- a/TypeRules.hs
+++ b/TypeRules.hs
@@ -1,5 +1,7 @@
module TypeRules where
+import Data.List
+
import AST
@@ -53,6 +55,7 @@ instance TypeOf Expression where
typeof (EUn _ _ mt) = mt
typeof (ELit _ mt) = mt
typeof (ESubscript _ _ mt) = mt
+ typeof (EGet _ _ mt) = mt
typeof (ECast t _) = Just t
typeof (ENew t _) = Just $ TArr t Nothing