diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
| commit | 0cd5e62e836e8cb8d2b49f76bfb899081aa2366f (patch) | |
| tree | 3373e98b7c1b658fbe7b5add25c21cae3ce55264 /src/GF/Conversion/SimpleToFCFG.hs | |
| parent | f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff) | |
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Conversion/SimpleToFCFG.hs')
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index 6b580cb24..f5d771298 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -13,11 +13,9 @@ module GF.Conversion.SimpleToFCFG - (convertGrammar,convertGrammarCId,FCat(..)) where + (convertGrammar,FCat(..)) where -import GF.System.Tracing import GF.Infra.PrintClass -import GF.Infra.Ident import Control.Monad @@ -42,13 +40,8 @@ import Data.Maybe type FToken = String -convertGrammar :: Grammar -> [(Ident,FCFGrammar FCat FName FToken)] -convertGrammar g = [(IC c, f) | (CId c,f) <- convertGrammarCId (mkGFCC g)] - --- this is more native for GFCC - -convertGrammarCId :: GFCC -> [(CId,FCFGrammar FCat FName FToken)] -convertGrammarCId gfcc = [(cncname,convert abs_defs conc) | +convertGrammar :: GFCC -> [(CId,FCFGrammar FCat FName FToken)] +convertGrammar gfcc = [(cncname,convert abs_defs conc) | cncname <- cncnames gfcc, conc <- Map.lookup cncname (concretes gfcc)] where |