diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-05 20:35:22 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-05 20:35:22 +0000 |
| commit | dc3f7e1d61d56ff1ac5bf3f6db5f3757e8c1a63c (patch) | |
| tree | 1d7c066d0f50fc017eca6487513f6d0facf8693f /src/GF/Speech/PrSLF.hs | |
| parent | 7faaa9772b8fc3d358c472e0a8620d4cff6adcc4 (diff) | |
Generate monolithic FAs by expanding an MFA.
Diffstat (limited to 'src/GF/Speech/PrSLF.hs')
| -rw-r--r-- | src/GF/Speech/PrSLF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/PrSLF.hs b/src/GF/Speech/PrSLF.hs index 897113a03..ba7dea3c8 100644 --- a/src/GF/Speech/PrSLF.hs +++ b/src/GF/Speech/PrSLF.hs @@ -78,7 +78,7 @@ renameSubs (MFA main subs) = MFA (renameLabels main) subs' slfGraphvizPrinter :: Ident -> Options -> CGrammar -> String slfGraphvizPrinter name opts cfg - = prFAGraphviz $ gvFA $ slfStyleFA $ cfgToFA opts cfg + = prFAGraphviz $ gvFA $ slfStyleFA $ cfgToFA' opts cfg where gvFA = mapStates (fromMaybe "") . mapTransitions (const "") @@ -116,7 +116,7 @@ gvSLFFA n fa = slfPrinter :: Ident -> Options -> CGrammar -> String slfPrinter name opts cfg - = prSLF (automatonToSLF mkSLFNode $ slfStyleFA $ cfgToFA opts cfg) "" + = prSLF (automatonToSLF mkSLFNode $ slfStyleFA $ cfgToFA' opts cfg) "" -- -- * SLF printing (with sub-networks) |