From 5f986f599216d3c6aa86515ae1949612414ff9c6 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 18 May 2009 15:52:10 +0000 Subject: added filtering for useless productions in PMCFG --- src/GF/Compile/GenerateFCFG.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Compile/GenerateFCFG.hs') diff --git a/src/GF/Compile/GenerateFCFG.hs b/src/GF/Compile/GenerateFCFG.hs index 26fd2a4d9..bb8ba9452 100644 --- a/src/GF/Compile/GenerateFCFG.hs +++ b/src/GF/Compile/GenerateFCFG.hs @@ -329,6 +329,7 @@ getParserInfo :: GrammarEnv -> ParserInfo getParserInfo (GrammarEnv last_id catSet seqSet funSet prodSet) = ParserInfo { functions = mkArray funSet , sequences = mkArray seqSet + , productions0= prodSet , productions = prodSet , startCats = Map.map getFCatList catSet , totalCats = last_id+1 -- cgit v1.2.3