diff options
| author | bringert <unknown> | 2005-09-14 15:08:35 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-09-14 15:08:35 +0000 |
| commit | b109bcaafad0cdcadd38831799346257aae76c17 (patch) | |
| tree | 703e1090e2917df0d4179e126fb862954424c711 /src/GF/Speech/PrSLF.hs | |
| parent | 6381c27bff7aa11c50e2a7d78f44fbf40a79b33a (diff) | |
Parametrized the type of FAs over the state type.
Diffstat (limited to 'src/GF/Speech/PrSLF.hs')
| -rw-r--r-- | src/GF/Speech/PrSLF.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Speech/PrSLF.hs b/src/GF/Speech/PrSLF.hs index fac25ed77..33ddf03ca 100644 --- a/src/GF/Speech/PrSLF.hs +++ b/src/GF/Speech/PrSLF.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/14 15:17:30 $ +-- > CVS $Date: 2005/09/14 16:08:35 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.9 $ +-- > CVS $Revision: 1.10 $ -- -- This module converts a CFG to an SLF finite-state network -- for use with the ATK recognizer. The SLF format is described @@ -71,7 +71,7 @@ regularPrinter = prCFRules . makeSimpleRegular join g = concat . intersperse g showRhs = unwords . map (symbol id show) -automatonToSLF :: FA (Maybe String) () -> SLF +automatonToSLF :: FA State (Maybe String) () -> SLF automatonToSLF fa = SLF { slfNodes = map mkSLFNode (states fa), slfEdges = zipWith mkSLFEdge [0..] (transitions fa) } |