diff options
Diffstat (limited to 'src/GF/Speech/PrFA.hs')
| -rw-r--r-- | src/GF/Speech/PrFA.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs index 79a9356db..1dac4fab0 100644 --- a/src/GF/Speech/PrFA.hs +++ b/src/GF/Speech/PrFA.hs @@ -37,7 +37,7 @@ import Data.Maybe (fromMaybe) faGraphvizPrinter :: Ident -- ^ Grammar name -> Options -> CGrammar -> String faGraphvizPrinter name opts cfg = - prFAGraphviz $ mapStates (const "") $ cfgToFA name opts cfg + prFAGraphviz $ mapStates (const "") $ cfgToFA opts cfg -- | Convert the grammar to a regular grammar and print it in BNF @@ -51,7 +51,7 @@ regularPrinter = prCFRules . makeSimpleRegular faCPrinter :: Ident -- ^ Grammar name -> Options -> CGrammar -> String -faCPrinter name opts cfg = fa2c $ cfgToFA name opts cfg +faCPrinter name opts cfg = fa2c $ cfgToFA opts cfg fa2c :: DFA String -> String fa2c fa = undefined
\ No newline at end of file |