From 832a2219c55ba325011c9ba72969e1caa193cb26 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Thu, 8 Sep 2005 14:40:49 +0000
Subject: [PATCH] Started working on make_fa.

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

diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index 0b4b680f8..26c5b0ad6 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/09/08 15:39:12 $ 
+-- > CVS $Date: 2005/09/08 15:40:49 $ 
 -- > CVS $Author: bringert $
--- > CVS $Revision: 1.17 $
+-- > CVS $Revision: 1.18 $
 --
 --  This module does some useful transformations on CFGs.
 --
@@ -148,8 +148,8 @@ make_fa :: State -> [Symbol Cat_ Token] -> State
 	-> CFRules -> FA () (Maybe Token) -> FA () (Maybe Token)
 make_fa q0 a q1 g fa = 
     case a of
-	   [] -> newTrans q0 Nothing q1 fa
-	   [Tok t] -> newTrans q0 (Just t) q1 fa
+	   [] -> newTrans q0 q1 Nothing fa
+	   [Tok t] -> newTrans q0 q1 (Just t) fa
 
 --
 -- * CFG rule utilities