diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-12 23:22:35 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-12 23:22:35 +0000 |
| commit | 97956fc13f46d747bd9d1d24b4d00c2f1c673b6c (patch) | |
| tree | 2082c6187fea2bc9366c61d476d3224cc7de2523 /src/GF/Speech/PrSLF.hs | |
| parent | e07d9dea344e79bfa90def98d965d422b288f600 (diff) | |
The SLF removeTrivialEmptyNodes optimization could orphan the final node. Fixed this by not bypassing final nodes.
Diffstat (limited to 'src/GF/Speech/PrSLF.hs')
| -rw-r--r-- | src/GF/Speech/PrSLF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrSLF.hs b/src/GF/Speech/PrSLF.hs index fbba89692..7f96bba5e 100644 --- a/src/GF/Speech/PrSLF.hs +++ b/src/GF/Speech/PrSLF.hs @@ -58,7 +58,7 @@ mkFAs start cfg = (slfStyleFA main, [(c,slfStyleFA n) | (c,n) <- subs]) where MFA main subs = {- renameSubs $ -} cfgToMFA start cfg slfStyleFA :: Eq a => DFA a -> FA State (Maybe a) () -slfStyleFA = renameStates [0..] . removeTrivialEmptyNodes . oneFinalState Nothing () +slfStyleFA = renameStates [0..] . removeTrivialEmptyNodes . oneFinalState Nothing () . moveLabelsToNodes . dfa2nfa -- | Give sequential names to subnetworks. |