diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-10-12 16:00:37 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-10-12 16:00:37 +0000 |
| commit | 873a160537bf72ead6cfcd6b739d4c7821eb4c85 (patch) | |
| tree | 88a65bddef3808f591015d9a62fa9e39e4427d32 /src/GF/Parsing/FCFG.hs | |
| parent | 96ed0bf4ac7e2898f6f8de82cacecb69d1e94684 (diff) | |
FCat is just a plain integer now
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] |