diff options
Diffstat (limited to 'src/GF/Speech/SRG.hs')
| -rw-r--r-- | src/GF/Speech/SRG.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index d59a391a1..2594e0a3e 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:32 $ +-- > CVS $Date: 2005/06/17 12:46:05 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.13 $ +-- > CVS $Revision: 1.14 $ -- -- Representation of, conversion to, and utilities for -- printing of a general Speech Recognition Grammar. @@ -53,7 +53,7 @@ type CatNames = FiniteMap String String makeSRG :: Ident -- ^ Grammar name -> Options -- ^ Grammar options - -> CGrammar -- ^ A context-free grammar + -> [CFRule_] -- ^ A context-free grammar -> SRG makeSRG i opts gr = SRG { grammarName = name, startCat = start, @@ -63,9 +63,8 @@ makeSRG i opts gr = SRG { grammarName = name, name = prIdent i origStart = fromMaybe "S" (getOptVal opts gStartCat) ++ "{}.s" start = lookupFM_ names origStart - gr' = makeNice gr - names = mkCatNames name (nub $ map ruleCat gr') - rs = map (cfgRulesToSRGRule names) (sortAndGroupBy ruleCat gr') + names = mkCatNames name (nub $ map ruleCat gr) + rs = map (cfgRulesToSRGRule names) (sortAndGroupBy ruleCat gr) cfgRulesToSRGRule :: FiniteMap String String -> [CFRule_] -> SRGRule cfgRulesToSRGRule names rs@(r:_) = SRGRule cat origCat rhs |