From d4d89c72f370fe4c63cc5aaa612e64cb09c6f650 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 17 Jan 2006 02:13:57 +0000
Subject: Use cat and language in ATK si. Support language switching with ATK.

---
 src/GF/Speech/PrFA.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

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

diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs
index e3c22ef1d..c5ac4e134 100644
--- a/src/GF/Speech/PrFA.hs
+++ b/src/GF/Speech/PrFA.hs
@@ -23,7 +23,6 @@ import GF.Conversion.Types
 import GF.Formalism.CFG
 import GF.Formalism.Utilities (Symbol(..),symbol)
 import GF.Infra.Ident
-import GF.Infra.Option
 import GF.Infra.Print
 import GF.Speech.CFGToFiniteState
 import GF.Speech.FiniteState
@@ -37,10 +36,10 @@ import Data.Maybe (fromMaybe)
 
 
 faGraphvizPrinter :: Ident -- ^ Grammar name
-		   -> Options -> CGrammar -> String
-faGraphvizPrinter name opts cfg = 
+		   -> String -> CGrammar -> String
+faGraphvizPrinter name start cfg = 
     prFAGraphviz $ mapStates (const "") fa
-  where fa = cfgToFA opts cfg
+  where fa = cfgToFA start cfg
 
 
 -- | Convert the grammar to a regular grammar and print it in BNF
@@ -53,8 +52,8 @@ regularPrinter = prCFRules . makeSimpleRegular
   showRhs = unwords . map (symbol id show)
 
 faCPrinter :: Ident -- ^ Grammar name
-	   -> Options -> CGrammar -> String
-faCPrinter name opts cfg = fa2c $ cfgToFA opts cfg
+	   -> String -> CGrammar -> String
+faCPrinter name start cfg = fa2c $ cfgToFA start cfg
 
 fa2c :: DFA String -> String
 fa2c fa = undefined
\ No newline at end of file
-- 
cgit v1.2.3