From 5a480fac520db1bab6f1336bee9b2031dbd36cab Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 13 Dec 2005 21:03:56 +0000 Subject: Added semi-working speech_input command. --- src/GF/Speech/CFGToFiniteState.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/GF/Speech/CFGToFiniteState.hs') diff --git a/src/GF/Speech/CFGToFiniteState.hs b/src/GF/Speech/CFGToFiniteState.hs index 5a72f548a..405e4324e 100644 --- a/src/GF/Speech/CFGToFiniteState.hs +++ b/src/GF/Speech/CFGToFiniteState.hs @@ -27,9 +27,8 @@ import GF.Speech.FiniteState import GF.Speech.Relation import GF.Speech.TransformCFG -cfgToFA :: Ident -- ^ Grammar name - -> Options -> CGrammar -> DFA String -cfgToFA name opts = minimize . compileAutomaton start . makeSimpleRegular +cfgToFA :: Options -> CGrammar -> DFA String +cfgToFA opts = minimize . compileAutomaton start . makeSimpleRegular where start = getStartCat opts makeSimpleRegular :: CGrammar -> CFRules -- cgit v1.2.3