diff options
Diffstat (limited to 'src/GF/Speech/SRGS_ABNF.hs')
| -rw-r--r-- | src/GF/Speech/SRGS_ABNF.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/GF/Speech/SRGS_ABNF.hs b/src/GF/Speech/SRGS_ABNF.hs index 544628a25..2df1316a8 100644 --- a/src/GF/Speech/SRGS_ABNF.hs +++ b/src/GF/Speech/SRGS_ABNF.hs @@ -36,12 +36,13 @@ import Debug.Trace width :: Int width = 75 -srgsAbnfPrinter :: Maybe SISRFormat +srgsAbnfPrinter :: Options -> PGF -> CId -> String -srgsAbnfPrinter sisr pgf cnc = showDoc $ prABNF sisr $ makeNonLeftRecursiveSRG pgf cnc +srgsAbnfPrinter opts pgf cnc = showDoc $ prABNF sisr $ makeNonLeftRecursiveSRG opts pgf cnc + where sisr = flag optSISR opts -srgsAbnfNonRecursivePrinter :: PGF -> CId -> String -srgsAbnfNonRecursivePrinter pgf cnc = showDoc $ prABNF Nothing $ makeNonRecursiveSRG pgf cnc +srgsAbnfNonRecursivePrinter :: Options -> PGF -> CId -> String +srgsAbnfNonRecursivePrinter opts pgf cnc = showDoc $ prABNF Nothing $ makeNonRecursiveSRG opts pgf cnc showDoc = renderStyle (style { lineLength = width }) |