diff options
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) |