From 06e8ae025e6953ec8b43aca04bfcd89b8a578c1a Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 7 Jun 2006 18:37:11 +0000 Subject: [PATCH] Lang modules in terms of Grammar --- src/GF/Conversion/GFC.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/GF/Conversion/GFC.hs b/src/GF/Conversion/GFC.hs index 05a0e7683..2fff4be26 100644 --- a/src/GF/Conversion/GFC.hs +++ b/src/GF/Conversion/GFC.hs @@ -32,7 +32,7 @@ import qualified GF.Conversion.RemoveErasing as RemEra import qualified GF.Conversion.RemoveEpsilon as RemEps import qualified GF.Conversion.SimpleToMCFG as S2M import qualified GF.Conversion.SimpleToFCFG as S2FM -import qualified GF.Conversion.MCFGtoFCFG as M2FM +--import qualified GF.Conversion.MCFGtoFCFG as M2FM import qualified GF.Conversion.MCFGtoCFG as M2C import GF.Infra.Print @@ -58,7 +58,7 @@ convertGFC opts = \g -> let s = g2s g Just "epsilon" -> epsilon . nondet _ -> nondet s2fm= S2FM.convertGrammar - m2fm= M2FM.convertGrammar + m2fm= undefined --M2FM.convertGrammar g2s = case getOptVal opts gfcConversion of Just "finite" -> finite . simple Just "finite2" -> finite . finite . simple @@ -95,7 +95,7 @@ gfc2fcfg opts g = fcfg (_, fcfg, _) = snd (snd (convertGFC opts g)) mcfg2fcfg :: MGrammar -> FGrammar -mcfg2fcfg = M2FM.convertGrammar +mcfg2fcfg = undefined --M2FM.convertGrammar ----------------------------------------------------------------------