diff options
Diffstat (limited to 'src/GF/Parsing/FCFG.hs')
| -rw-r--r-- | src/GF/Parsing/FCFG.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Parsing/FCFG.hs b/src/GF/Parsing/FCFG.hs index cf7f0d986..69c2e5d93 100644 --- a/src/GF/Parsing/FCFG.hs +++ b/src/GF/Parsing/FCFG.hs @@ -25,6 +25,7 @@ import GF.GFCC.AbsGFCC import GF.GFCC.Macros import GF.GFCC.ErrM +import qualified Data.Map as Map ---------------------------------------------------------------------- -- parsing @@ -39,9 +40,8 @@ parseFCF :: Err [Exp] -- ^ resulting GF terms parseFCF strategy pinfo startCat inString = do let inTokens = input inString - startCats = filter isStart $ grammarCats pinfo - isStart cat = fcat2cid cat == startCat - fcfParser <- parseFCF strategy + startCats <- Map.lookup startCat (startupCats pinfo) + fcfParser <- {- trace lctree $ -} parseFCF strategy let chart = fcfParser pinfo startCats inTokens (i,j) = inputBounds inTokens finalEdges = [makeFinalEdge cat i j | cat <- startCats] |