diff options
Diffstat (limited to 'lib/Language/Elna/Frontend/NameAnalysis.hs')
| -rw-r--r-- | lib/Language/Elna/Frontend/NameAnalysis.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Language/Elna/Frontend/NameAnalysis.hs b/lib/Language/Elna/Frontend/NameAnalysis.hs index 8a183e1..89b1b3b 100644 --- a/lib/Language/Elna/Frontend/NameAnalysis.hs +++ b/lib/Language/Elna/Frontend/NameAnalysis.hs @@ -134,7 +134,7 @@ dataType environmentSymbolTable (AST.NamedType baseType) = do | otherwise -> NameAnalysis $ throwE $ UnexpectedTypeInfoError baseInfo _ -> NameAnalysis $ throwE $ UndefinedTypeError baseType dataType environmentSymbolTable (AST.ArrayType arraySize baseType) = - dataType environmentSymbolTable baseType <&> ArrayType arraySize + dataType environmentSymbolTable baseType <&> ArrayType (fromIntegral arraySize) checkSymbol :: SymbolTable -> Identifier -> NameAnalysis () checkSymbol globalTable identifier |