From 2ff350ae59816ee86fb1508d3ffbe83578b7c9d4 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 27 Jun 2007 14:25:39 +0000
Subject: Use shorter lines and paragraph-filling in SRGS, JSGF and GSL
 printing.

---
 src/GF/Speech/PrGSL.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/GF/Speech/PrGSL.hs')

diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index f1fb9013c..4d2dfe5c6 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -35,7 +35,7 @@ import Data.List (partition)
 import Text.PrettyPrint.HughesPJ
 
 width :: Int
-width = 80
+width = 75
 
 gslPrinter :: Options -> StateGrammar -> String
 gslPrinter opts s = renderStyle st $ prGSL $ makeSimpleSRG opts s
@@ -63,13 +63,13 @@ prItem = f
     f (REUnion xs) = (if null es then empty else text "?") <> union (map f nes)
       where (es,nes) = partition isEpsilon xs
     f (REConcat [x]) = f x
-    f (REConcat xs) = text "(" <> sep (map f xs) <> text ")"
+    f (REConcat xs) = text "(" <> fsep (map f xs) <> text ")"
     f (RERepeat x)  = text "*" <> f x
     f (RESymbol s)  = prSymbol s
 
 union :: [Doc] -> Doc
 union [x] = x
-union xs = text "[" <> sep xs <> text "]"
+union xs = text "[" <> fsep xs <> text "]"
 
 prSymbol :: Symbol SRGNT Token -> Doc
 prSymbol (Cat (c,_)) = prCat c
-- 
cgit v1.2.3