diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-05 16:35:04 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-05 16:35:04 +0000 |
| commit | 12187f684e063bbc6da17308b33ec48985ae3aad (patch) | |
| tree | 9c9a0817ef99d573e3b327abb4e745eba12889b5 /src/GF/Speech/PrSLF.hs | |
| parent | a373760ebbcdc5ad694b3908d98ba0f52f440ba3 (diff) | |
Refactored Graph module. Remove some unneccessary states in slf networks.
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 a47057c80..bb8f5ddaf 100644 --- a/src/GF/Speech/PrSLF.hs +++ b/src/GF/Speech/PrSLF.hs @@ -86,7 +86,7 @@ mapMFA :: (DFA (MFALabel a) -> b) -> MFA a -> (b,[(String,b)]) mapMFA f (MFA main subs) = (f main, [(c, f fa) | (c,fa) <- subs]) slfStyleFA :: DFA (MFALabel String) -> SLF_FA -slfStyleFA = oneFinalState Nothing () . moveLabelsToNodes . dfa2nfa +slfStyleFA = removeTrivialEmptyNodes . oneFinalState Nothing () . moveLabelsToNodes . dfa2nfa mfaToSLFs :: MFA String -> SLFs mfaToSLFs (MFA main subs) |