diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-22 18:04:05 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-22 18:04:05 +0000 |
| commit | 29ba681242acd62a28e2facdad733619bf8d994f (patch) | |
| tree | 04c4a6bb83614c28600504c111d3840dde9d8301 /src/GF/Speech/PrFA.hs | |
| parent | 81aad9adebcef517447e059bcdd06df5934f8ee7 (diff) | |
Some tracing and formatting stuff looking for the the stack overflow problem in the FA generation.
Diffstat (limited to 'src/GF/Speech/PrFA.hs')
| -rw-r--r-- | src/GF/Speech/PrFA.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs index 1dac4fab0..e3c22ef1d 100644 --- a/src/GF/Speech/PrFA.hs +++ b/src/GF/Speech/PrFA.hs @@ -34,10 +34,13 @@ import Data.Char (toUpper,toLower) import Data.List import Data.Maybe (fromMaybe) + + faGraphvizPrinter :: Ident -- ^ Grammar name -> Options -> CGrammar -> String faGraphvizPrinter name opts cfg = - prFAGraphviz $ mapStates (const "") $ cfgToFA opts cfg + prFAGraphviz $ mapStates (const "") fa + where fa = cfgToFA opts cfg -- | Convert the grammar to a regular grammar and print it in BNF |