diff options
| -rw-r--r-- | src/GF/Conversion/GFC.hs | 6 |
1 files 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 ---------------------------------------------------------------------- |