From 1c996b3c8bb290d17e4d0dcdf809c8458866bb12 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 4 Dec 2024 16:11:06 +0100
Subject: Make IR for array access

---
 lib/Language/Elna/Frontend/SymbolTable.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/Language/Elna/Frontend/SymbolTable.hs')

diff --git a/lib/Language/Elna/Frontend/SymbolTable.hs b/lib/Language/Elna/Frontend/SymbolTable.hs
index e90a942..4333acc 100644
--- a/lib/Language/Elna/Frontend/SymbolTable.hs
+++ b/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 =
-- 
cgit v1.2.3