From 5a480fac520db1bab6f1336bee9b2031dbd36cab Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 13 Dec 2005 21:03:56 +0000
Subject: Added semi-working speech_input command.

---
 src/GF/Speech/PrFA.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/Speech/PrFA.hs')

diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs
index 79a9356db..1dac4fab0 100644
--- a/src/GF/Speech/PrFA.hs
+++ b/src/GF/Speech/PrFA.hs
@@ -37,7 +37,7 @@ import Data.Maybe (fromMaybe)
 faGraphvizPrinter :: Ident -- ^ Grammar name
 		   -> Options -> CGrammar -> String
 faGraphvizPrinter name opts cfg = 
-    prFAGraphviz $ mapStates (const "") $ cfgToFA name opts cfg
+    prFAGraphviz $ mapStates (const "") $ cfgToFA opts cfg
 
 
 -- | Convert the grammar to a regular grammar and print it in BNF
@@ -51,7 +51,7 @@ regularPrinter = prCFRules . makeSimpleRegular
 
 faCPrinter :: Ident -- ^ Grammar name
 	   -> Options -> CGrammar -> String
-faCPrinter name opts cfg = fa2c $ cfgToFA name opts cfg
+faCPrinter name opts cfg = fa2c $ cfgToFA opts cfg
 
 fa2c :: DFA String -> String
 fa2c fa = undefined
\ No newline at end of file
-- 
cgit v1.2.3