msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Refactored Graph module. Remove some unneccessary states in slf networks.

Browse Source
This commit is contained in:
bringert
2006-01-05 16:35:04 +00:00
parent 40950c8bc1
commit 0603e75a14
3 changed files with 117 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrSLF.hs
View File

@@ -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)