diff options
Diffstat (limited to 'TypeRules.hs')
-rw-r--r-- | TypeRules.hs | 3 |
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 |