diff options
Diffstat (limited to 'src/GF/Conversion/SimpleToFCFG.hs')
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index f5d771298..fc0177900 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -21,7 +21,6 @@ import Control.Monad import GF.Formalism.Utilities import GF.Formalism.FCFG -import GF.Conversion.FTypes import GF.Canon.GFCC.AbsGFCC import GF.Canon.GFCC.DataGFCC @@ -38,9 +37,7 @@ import Data.Maybe ---------------------------------------------------------------------- -- main conversion function -type FToken = String - -convertGrammar :: GFCC -> [(CId,FCFGrammar FCat FName FToken)] +convertGrammar :: GFCC -> [(CId,FGrammar)] convertGrammar gfcc = [(cncname,convert abs_defs conc) | cncname <- cncnames gfcc, conc <- Map.lookup cncname (concretes gfcc)] where |