diff options
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index 72910235e..ec1305b5d 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -38,11 +38,14 @@ import Data.Maybe import Text.PrettyPrint.HughesPJ import Debug.Trace +width :: Int +width = 80 jsgfPrinter :: Maybe SISRFormat -> Options -> StateGrammar -> String -jsgfPrinter sisr opts s = show $ prJSGF sisr $ makeSimpleSRG opts s +jsgfPrinter sisr opts s = renderStyle st $ prJSGF sisr $ makeSimpleSRG opts s + where st = style { lineLength = width } prJSGF :: Maybe SISRFormat -> SRG -> Doc prJSGF sisr srg@(SRG{grammarName=name,grammarLanguage=ml, |