diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-08-02 00:09:57 +0300 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-08-02 00:09:57 +0300 |
| commit | 5f8d9abe76187669cd7d4f691a2c40db2b4c8a6f (patch) | |
| tree | 26e9f18c2b73c7533c674070f1df21e2a6ff6268 /lib/Language/Elna/NameAnalysis.hs | |
| parent | d4471ca2fa765c8c4c4f1e8bec59fc0c441eb824 (diff) | |
| download | elna-5f8d9abe76187669cd7d4f691a2c40db2b4c8a6f.tar.gz | |
Require trailing semicolon for type declarations
Diffstat (limited to 'lib/Language/Elna/NameAnalysis.hs')
| -rw-r--r-- | lib/Language/Elna/NameAnalysis.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/Language/Elna/NameAnalysis.hs b/lib/Language/Elna/NameAnalysis.hs index 49b7915..4acde39 100644 --- a/lib/Language/Elna/NameAnalysis.hs +++ b/lib/Language/Elna/NameAnalysis.hs @@ -51,7 +51,6 @@ declaration :: SymbolTable -> AST.Declaration -> NameAnalysis SymbolTable declaration globalTable (AST.TypeDefinition identifier typeExpression) = flip (SymbolTable.enter identifier) globalTable . TypeInfo <$> withSymbolTable globalTable (dataType typeExpression) - declaration globalTable (AST.ProcedureDefinition identifier _parameters _variables _body) = let localTable = SymbolTable.empty in pure $ SymbolTable.enter identifier (ProcedureInfo localTable mempty) globalTable |