Make IR for array access

lib/Language/Elna/Frontend/SymbolTable.hs

@@ -9,6 +9,7 @@ module Language.Elna.Frontend.SymbolTable
     , lookup
     , member
     , scope
+    , size
     , toMap
     , update
     ) where
@@ -76,6 +77,9 @@ member :: Identifier -> SymbolTable -> Bool
 member identifier table =
     isJust $ lookup identifier table
 
+size :: SymbolTable -> Int
+size (SymbolTable _ map') = HashMap.size map'
+
 fromList :: [(Identifier, Info)] -> Either (NonEmpty Identifier) SymbolTable
 fromList elements
     | Just identifierDuplicates' <- identifierDuplicates =