From dc3f7e1d61d56ff1ac5bf3f6db5f3757e8c1a63c Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 5 Jan 2006 20:35:22 +0000 Subject: Generate monolithic FAs by expanding an MFA. --- src/GF/Speech/PrSLF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Speech/PrSLF.hs') 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) -- cgit v1.2.3