diff options
| author | bringert <unknown> | 2005-09-08 14:40:49 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-09-08 14:40:49 +0000 |
| commit | 832a2219c55ba325011c9ba72969e1caa193cb26 (patch) | |
| tree | 1d647fee0bef9916c8334de6f3424ee5a4b96ce3 /src | |
| parent | 9508120dd1afa7494a6c9eb7d117a69370a933e0 (diff) | |
Started working on make_fa.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 8 |
1 files 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 |