From 6aacec3591e0e6e1d3ddca4605f6467e302cb65f Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Mon, 24 Sep 2007 08:12:11 +0000 Subject: remove FTypes module and move all definitions to Formalism.FCFG --- src/GF/Conversion/SimpleToFCFG.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/GF/Conversion/SimpleToFCFG.hs') 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 -- cgit v1.2.3