Enabled structure access

2025-02-21 17:26:27 +01:00 · 2025-02-21 17:26:27 +01:00 · 753f429ec8
commit 753f429ec8
parent 21bec764db
2 changed files with 4 additions and 0 deletions
--- a/src/Ubc/Parse/Syntax/Expression.hs
+++ b/src/Ubc/Parse/Syntax/Expression.hs
@ -30,6 +30,9 @@ data Expression = Binary BinaryOperator Expression Expression
 operatorTable :: Monad m => [[Operator String u m Expression]]
 operatorTable =
        [
+                [ Infix (UbcLanguage.reservedOperator "." $> Binary StructureAccess) AssocLeft
+                ]
+        ,
                [ Infix (UbcLanguage.reservedOperator "*" $> Binary Multiply) AssocLeft
                , Infix (UbcLanguage.reservedOperator "/" $> Binary Divide) AssocLeft
                , Infix (UbcLanguage.reservedOperator "%" $> Binary Modulo) AssocLeft
--- a/src/Ubc/Parse/Syntax/Operators.hs
+++ b/src/Ubc/Parse/Syntax/Operators.hs
@ -26,4 +26,5 @@ data BinaryOperator = Plus
        | LogicAnd
        | LogicOr
        | Assign
+        | StructureAccess
        deriving (Show)