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/Compile/ShellState.hs | |
| parent | 96ed0bf4ac7e2898f6f8de82cacecb69d1e94684 (diff) | |
FCat is just a plain integer now
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index afc3d61f9..cec179202 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -162,9 +162,9 @@ emptyStateGrammar = StGr { grammar = M.emptyMGrammar, cf = emptyCF, mcfg = [], - fcfg = [], + fcfg = ([], Map.empty), cfg = [], - pInfo = Prs.buildPInfo [] [] [], + pInfo = Prs.buildPInfo [] ([], Map.empty) [], morpho = emptyMorpho, probs = emptyProbs, loptions = noOptions @@ -401,9 +401,9 @@ stateGrammarOfLangOpt purg st0 l = StGr { grammar = allCan, cf = maybe emptyCF id (lookup l (cfs st)), mcfg = maybe [] id $ lookup l $ mcfgs st, - fcfg = maybe [] id $ lookup l $ fcfgs st, + fcfg = maybe ([],Map.empty) id $ lookup l $ fcfgs st, cfg = maybe [] id $ lookup l $ cfgs st, - pInfo = maybe (Prs.buildPInfo [] [] []) id $ lookup l $ pInfos st, + pInfo = maybe (Prs.buildPInfo [] ([],Map.empty) []) id $ lookup l $ pInfos st, morpho = maybe emptyMorpho id (lookup l (morphos st)), probs = maybe emptyProbs id (lookup l (probss st)), loptions = errVal noOptions $ lookupOptionsCan allCan @@ -444,9 +444,9 @@ stateAbstractGrammar st = StGr { grammar = canModules st, ---- only abstarct ones cf = emptyCF, mcfg = [], - fcfg = [], + fcfg = ([],Map.empty), cfg = [], - pInfo = Prs.buildPInfo [] [] [], + pInfo = Prs.buildPInfo [] ([],Map.empty) [], morpho = emptyMorpho, probs = emptyProbs, loptions = gloptions st ---- |