diff options
| author | krangelov <kr.angelov@gmail.com> | 2019-09-20 10:37:50 +0200 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2019-09-20 10:37:50 +0200 |
| commit | 4d79aa8b198f411d0ab6d66d76d9f77dfd3f922f (patch) | |
| tree | 0f72e72c6f5ccf57111b22cdb736b3290c86d1dd /src/compiler/GF/Grammar/Parser.y | |
| parent | 9d3badd8b225378269814e79395ae48beb83fa4d (diff) | |
remove obsolete code
Diffstat (limited to 'src/compiler/GF/Grammar/Parser.y')
| -rw-r--r-- | src/compiler/GF/Grammar/Parser.y | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Parser.y b/src/compiler/GF/Grammar/Parser.y index 9377bd7d5..da96f9265 100644 --- a/src/compiler/GF/Grammar/Parser.y +++ b/src/compiler/GF/Grammar/Parser.y @@ -24,6 +24,7 @@ import GF.Grammar.Lexer import GF.Compile.Update (buildAnyTree) import Data.List(intersperse) import Data.Char(isAlphaNum) +import qualified Data.Map as Map import PGF(mkCId) } @@ -139,7 +140,7 @@ ModHeader : ComplMod ModType '=' ModHeaderBody { let { mstat = $1 ; (mtype,id) = $2 ; (extends,with,opens) = $4 } - in (id, ModInfo mtype mstat noOptions extends with opens [] "" Nothing emptyBinTree) } + in (id, ModInfo mtype mstat noOptions extends with opens [] "" Nothing Map.empty) } ComplMod :: { ModuleStatus } ComplMod |